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Liebe  Leser 

Wie  Sie  schon  der  Titelseite  entnehmen  konnten,  haben  wir  erneut  den 
Umfang  der  Schneider  CPC  International  erweitert. 

Wiederum  16  Seiten  mehr- beträgt  der  Gesamtumfang  doch  immerhin  schon 
satte  152  Seiten  -  da  ist  garantiert  für  jeden  das  Richtige  dabei! 

Gleichzeitig  gibt  es  jedoch  noch  eine  Erweiterung  zu  vermelden.  Der  DMV- 
Verlag  hat  in  den  vergangenen  Monaten  stark  expandiert,  so  daß  eine  Er¬ 
weiterung  des  Verlagsgebäudes  unumgänglich  wurde. 

ZurZeit  laufen  alle  Arbeiten  auf  Hochtouren,  in  wenigen  Wochen  wird  das 
neue  Gebäude  fertiggestellt  sein. 

Mit  dem  Bau  der  neuen  Räumlichkeiten  wird  der  DMV-Verlag  auch  eine 
zusätzliche  Redaktion  vorstellen. 

Am  15.  Oktober  1986  wird  der  heißumkämpfte  Markt  der  Computerzeit¬ 
schriften  durch  eine  weitere  Publikation  aus  dem  Hause  DMV  ergänzt. 
PASCAL  International  -  so  der  Titel  unserer  neuen  Fachzeitschrift  -  ist  das 
erste  hardwareunabhängige  Computermagazin  für  Programmiersprachen. 
Alle  Anwender,  Programmierer  und  Interessierte  von  UCSD-,  Hisoft-,  Prof¬ 
und  Turbo  Pascal  sowie  C-  und  Modula  werden  somit  endlich  das  geeignete 
und  kompetente  Sprachrohr  für  Ihre  Anwendungen  erhalten. 

Doch  nun  wünschen  wirersteinmal  viel  Vergnügen  beim  Studieren  der  neue¬ 
sten  Ausgabe  von  Schneider  CPC  International  und  möchten  Ihnen  schon 
jetzt  die  nächste  CPC  International  ans  Herz  legen  -  Sie  werden  staunen. 


Herz  liehst  Ihr 


(Stefan  Ritter) 


Einem  Teil  der  Auflage  ist  eine  Beilage  der  Firma 
Wcka- Verlag  beigefügt 


Mitglied  der  Informalionsgemeinschaft 
zur  Feststellung  der  Verbreitung  von 
Werbeträgern  e.V.  (IVW),  Bad  Godesberg 
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CPC  und  Wissenschaft.  Am  Beispiel  Astronomie  wollen  wir  Ihnen 
erläutern,  wie  man  auch  ohne  große  Vorkenntnisse  -  mit  etwas  Mühe 
und  Geduld  -  sinnvolle  Anwendungen  mit  dem  Schneider  CPC  reali¬ 
sieren  kann. 
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Der  CPC  an  der  Amateurfunkstation.  Diese  interessante  Anwendung 
stellen  wir  Ihnen  ausführlich  vor  und  geben  Ihnen,  neben  entsprechen¬ 
den  Hintergrundinformationen,  auch  das  nötige  Wissen  an  die  Hand, 

um  den  Anschluß  selbst  zu  realisieren.  _  .  n^ 
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„CP/M  und  seine  Möglichkeiten”  beschäftigt  sich  diesmal  mit  den 
diversen  Pascal-Versionen. 

Rando  und  die  Gappys  -  aus  der  Reihe  „  Grads-Tools”  zeigt,  wie  man 
schnelle  Bewegungsabläufe  unter  CP/M  programmiert. 
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Joyce-Software  auf einen  Blick.  Unsere  große  Software-Übersicht  stellt 
Ihnen  die  z.Zt.  verfügbaren  Programme  für  den  Joyce-Computer  vor. 
Natürlich  gibt  es  des  weiteren  viele  nützliche  Tips  und  sogar  ein  tolles 

Spielprogramm  als  Listing.  „  . 
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Das  original  RS-232-Interface  von  Amstrad  im  Praxistest.  Alles 
Wissenswerte  hierzu  zeigt  unser  ausführlicher  Testbericht. 
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Das  Wolf-Schaf-Gras-Modell.  Von  Wölfen  und  Schafen  handelt  die 
neueste  Folge  unseres  Software-Experimentes,  das  in  eindrucksvoller 
Art  und  Weise  die  Einflüsse  und  Auswirkungen  verschiedener  Bege¬ 
benheiten  auf  ein  ökologisches  System  anschaulicht  macht. 
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Eine  Bitte  an 
unsere  Leser 

Die  Rubrik  »Leserbriefe«  ist 
eine  Hinrichtung  für  alle  Le¬ 
ser,  die  in  irgendeiner  Form 
Fragen,  Probleme  oder  An¬ 
regungen  zu  Produkten,  Pro¬ 
grammierproblemen  oder  zu 
unserer  Zeitschrift  haben. 
Selbstverständlich  sind  wir 
bemüht,  alle  Leserfragen  zu 
beantworten.  Doch  haben 
Sie  bitte  Verständnis,  daß  wir 
nicht  alle  eingehenden  Briefe 
persönlich  beantworten  kön¬ 
nen.  Oft  erreichen  uns 
mehrere  Briefe  zum  gleichen 
Thema,  einer  davon  wird 
dann  stellvertretend  für  alle 
in  unserer  Zeitschrift  beant- 

SAVE  in  M-Code 

Wie  eröffne  ich  in  Maschi¬ 
nensprache  eine  Ausgabe¬ 
datei: 

Ich  weiß,  daß  jemand  in 
Heft  11/85  eine  ähnliche 
Frage  gestellt  hat,  aber  lei¬ 
der  wurde  dort  nicht  er¬ 
läutert,  wie  man  ein  Maschi¬ 
nenspracheprogramm  von 
Maschinensprache  absa- 
ved.Auch  mit  Hilfe  der  Refe¬ 
renzkarten  ist  es  mir  nicht 
gelungen,  dieses  Problem 
zu  lösen. 

Frank  Schimmel 
Gießen 

CPC: 

Mit  folgendem  kurzen  As- 
semblerlisting  lassen  sich 
MC-Programme  in  MC 
abspeichern: 


Symbol  Reset 

Erst  einmal  möchte  ich 
Ihnen  ein  großes  Lob  für  die 
gelungene  Ausgabe  CPC 
International  7/86  aussp re¬ 
chen.  Hervorragend  fand 


wortet.  Da  auch  wir  nicht  alle 
Fragen  auf  Anhieb  beant¬ 
worten  können,  müssen  wir 
recherchieren.  Und  das  dau¬ 
ert  bekanntlich  seine  Zeit!! 
Wir  möchten  hiermit  alle 
CPC-Leser  noch  einmal  auf 
unseren  Leser-Service  hin- 
weisen  und  bitten  bei  der 
Vielzahl  der  eingehenden 
Briefe  um  etwas  Geduld.  Für 
eilige  Anfragen  steht  unsere 
Redaktion  jeden  Mittwoch 
von  17  -  20  Uhr  am  »Heißen 
Draht«  zur  Verfügung.  Vie¬ 
len  Dank  für  Ihr  Verständnis. 

Ihre  CPC-Redaktion 

PS:  Die  Redaktion  behält  sich 
vor,  Leserzuschriften  in  ge¬ 
kürzter  Form  wiederzugeben. 

ich  die  beiden  neuen  Serien 
"Das  Softwa re-Experimen  t  ’  ’ 
mit  dem  Programm  "Apfel¬ 
männchen"  und  "Schnei¬ 
de  rware".  Ich  hoffe,  daß 
diese  Serien  und  der  Pascal¬ 
kurs  auch  weiterhin  ein  fe¬ 
ster  Bestandteil  Ihrer  Zeit¬ 
schriftbleiben.  Das  Konzept 
ist  hervorragend,  befriedigt 
es  doch  nicht  nur  die 
Spieltriebe,  wie  es  in  den 
meisten  anderen  Zeit¬ 
schriften  der  Fall  ist,  son¬ 
dern  bietet  auch  dem  etwas 
anspruchsvolleren  Program¬ 
mierern  und  Bastlern  etwas. 
Ich  hoffe,  Sie  können  mir 
folgende  Frage  beantwor¬ 
ten. 

In  einem  Programm  belege 
ich  die  Tastatur  mit  Sym¬ 
bol-Funktionen.  A  nschließend 
schütze  ich  einen  Speicher¬ 


bereich  mit  "Memory".  Uber 
dieses  Programm  sollen  nun 
andere  Programme,  eventuell 
ebenfalls  mit  Symbol-Funk¬ 
tionen  bzw.  mit  Memory’ ein¬ 
gelesen  werden. 


org  &8000 

;  =AESPEICHERN  EINER  SCREEN= 

ld  b,4 

; LAENGE  DATEINAME 

ld  hl , name 

; ADRESSE  DATEINAME 

ld  de,&9c00 

;2K  BUFFER 

call  &bc8c 

;OPENOUT 

ld  hl , &COOO 

; STARTADRESSE 

ld  de, &4000 

j  LAENGE 

ld  bc, 0 

; EXECUTION 

ld  a,2 

; DATEI ART 

call  &bc98 

; WRITE  DIRECT 

call  &bc8f 

jCLOSEOUT 

ret 

; ZURUECK 

name : 

defm  "BILD" 

; DATEINAME 

niMMIIIMIMM 


Dabei  tritt  die  Fehlermel¬ 
dung  "IMPROPER  ARGU¬ 
MENT”  auf. 

Frage:  Wie  lassen  sich  die 
Symbol-Funktionen  und  der 
geschützte  Speicherbereich 
zurücksetzen,  ohne  den  ge¬ 
samten  Rechner  reseten  zu 
müssen  (CPC  664)  und  ohne, 
daß  das  Programm  im  Spei¬ 
cher  verloren  geht? 

Martin  Hummel 
Parsberg 

CPC: 

Der  Memory-Befehi  kann 
einfach  wieder  hoch  gesetzt 
werden.  Um  die  Symbolde¬ 
finitionen  zu  löschen,  ge¬ 
ben  Sie  ein: 

Call  &  BB4E 


Marktübersicht  in 
Diskettenlaufwerke 
Sonderheft  2/86 

Ich  trage  mich  mit  dem  Ge¬ 
danken,  für  meinen  CPC 
464  ein  Zweitlaufwerk  zu 
erwerben.  Aus  Preisgründen 
habe  ich  mich  für  eine 
CUM  ANA  entschieden. 

Im  CPC  International  Son¬ 
derheft  2/86  ist  allerdings 
nur  von  der  SS S. 3.0  die 
Rede.  In  dem  gleichen  Heft 
bietet  aber  ein  Inserent  ein 
5.25”-Zweitlaufwerk  von 
CUMANA  an  (S.  57). 
Meine  Fragen  gehen  nun 
dahin:  Wie  groß  ist  die  Spei¬ 
cherkapazität,  wie  ist  es  mit 
dem  Format  und  kann  ich 
dieses  Laufwerk  problemlos 
auf  meinem  CPC  betreiben? 

Thomas  Thiel 
Karlsruhe 

CPC: 

Das  Zweitlaufwerk  von 
Cumana  hat  keinen  eige¬ 
nen  Controller  und  ent¬ 
spricht  daher  den  techni¬ 
schen  Daten  des  DDI-1. 


Maschinenpro¬ 
gramme  auf  den 
Schneider  CPC 
Computern 

Wer  die  Schneider  Computer 
in  Maschinensprache  pro¬ 
grammiert,  wird  seine  Pro¬ 


. . . . . 
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gramme  zuweilen  auch  als 
Basic-Programme  mit  Da- 
tazeilen  speichern,  weil  er 
sie  so  an  Zeitschriften  ein¬ 
senden  kann  und  kein  La¬ 
deprogramm  mit  abspeichem 
muß.  Ich  persönlich  ärgere 
mich  immer  wieder  über  ab¬ 
gedruckte  Datazeilen  im 
Hexformat,  weil  sich  Dezi¬ 
malzahlen  mit  dem  Ziffern¬ 
block  des  CPC  viel  besser 
eingeben  lassen. 

Als  nächstes,  wenn  es  sich 
bei  solchen  Programmen  um 
R  SX-Befeh  Is  erweitern  ngen 
handelt,  wünscht  man  sich, 
daß  die  Routinen  relozierbar 
(im  Speicher  frei  verschieb¬ 
bar)  sind,  -  was  bei  kleine¬ 
ren  Routinen  dadurch  er¬ 
reicht  werden  kann,  daß  man 
nur  relative  Sprünge  ver¬ 
wendet.  Bei  längeren  Pro¬ 
grammen  ist  dies  oft  nicht 
möglich.  Um  trotz  absoluter 
Sprungadressen  eine  Relo- 
zierbarkeit  zu  erreichen, 
müßte  man  die  beiden  Bytes 
in  den  Datazeilen  markie¬ 
ren. 

Dabei  kann  man  so  Vorge¬ 
hen:  Man  assembliert  das 
Programm  zweimal-  einmal 
mit  org  0,  dann  mit  org  1. 
Nun  vergleicht  man  die  bei¬ 
den  Versionen  und  vermerkt 
die  Unterschiede  in  den  ab¬ 
soluten  Adressen,  die  aus 
den  unterschiedlichen  ORG- 
Anweisungen  resultieren,  in 
den  Datazeilen.  Diese  Dop¬ 
pelbytes  können  zusammen¬ 
gefaßt  werden  und  z.B.  mit 
einem  vorangestellten  Klam¬ 
meraffen  gekennzeichnet  wer¬ 
den.  Beim  Einpoken  der  Da¬ 
tazeilen  werden  so  gekenn¬ 
zeichnete  absolute  Adress- 
werteneu  berechnet,  das  Pro¬ 
gramm  läßt  sich  dann  in  jede 
beliebige  Adresse  laden.  Das 
beschriebene  Verfahren  eig¬ 
net  sich  übrigens  auch  für 
andere  Rechner  mit  anderen 
Mikroprozessortypen. 

Ein  einfaches  Basic-Pro- 
gramm  würde  dies  natürlich 
selbständig  erledigen,  was 
bei  längeren  Programmen 
schon  eine  große  Hilfe 
wäre. 

Günter  Radestock, 
Ludwigshafen 


Eisenbahn  am  CPC 

Seit  September  1985  bin  ich 
Besitzer  des  CPC  664  und 
genausolange  schon  Abon¬ 
nent  Ihrer  CPC  Schneider 
International.  Letztere  ist  für 
mich  die  wichtigste  Infor¬ 
mationsquelle  für  den  Um¬ 
gang  mit  dem  Computer. 
Die  Computerei  betreibe  ich 
als  Hobby  ohne  praktischen 
Hintergrund,  macht  mir  aber 
gerade  deshalb  sehr  viel 
Spaß. 

Da  ich  schon  über  60  bin,  sind 
Computerspiele  nur  für  die 
Enkel  da. 

Nun  aber  zur  Sache:  aujier 
der  Computerei  habe  ich  auch 
noch  ein  sehr  altes  Hobby  - 
die  Eisenbahn.  Sie  können 
sich  schon  denken  was  jetzt 
kommt  -  wie  sieht  eine  Ver¬ 
bindung  von  ” Märklin-Digi - 
tal"  und  CPC  664  aus?  Die 
Firma  Märklin  selbst  bietet 
nur  sehr  spärliche  Informa¬ 
tionen  zu  diesem  Thema,  und 
die  sind  dann  nur  für  den 
Commodore  64;  damit  kann 
ich  nicht  allzuviel  anfangen. 
Frage:  Woher  bekomme  ich 
spezielle  Hinweise  zur  Pro¬ 
grammierung  und  zur  benö¬ 
tigten  Hardware? 

Oder  könnte  das  ein  Thema 
für  eine  Folge  in  Ihrer  Zeit¬ 
schrift  werden? 

Eugen  Walter, 
Sulzbach/Laufen 

CPC: 

Leider  müssen  wir  diese 
Frage  an  unsere  Leser  wei¬ 
terleiten.  Sicherlich  sind 
einige  Eisenbahnprofils  un¬ 
ter  Ihnen,  die  ihre  Erfahrun¬ 
gen  weiterleiten  möchten. 
Diese  werden  dann  ggf.  an 
dieser  Stelle  veröffentlicht. 


Farb-Tip 

Weil  es  mich  schon  länger 
ärgert,  daß  ich  beider Farb- 
programmierung  immer  wie¬ 
der  im  Handbuch  die  Bele¬ 
gung  von  PEN  und  PAPER 
mit  den  INK’s  in  den  drei 
Modes  nachlesen,  zusätzlich 
noch  mit  den  Befehlen  PEN 
und  PAPER  arbeiten  und 
schließlich  ein  CLS  eingeben 
mußte  (damit  der  gesamte 
Hintergrund  die  jeweilige 


Farbe  annimmt),  schrieb  ich 
diese  kurze  Basic-Erweite- 
rung.  Nach  fehlerlosem  Ab¬ 
tippen  des  Listings,  gestartet 
mittels  CALL  &8000,  steht 
der  Befehl  iSET.pen, paper, 
border  zur  Verfügung.  Pen, 
paperund  border  stellen  da¬ 
bei  die  INK’s  dar,  dürfen  also 
zwischen  0  und  26  liegen 
(anderenfalls  erfolgt  ein 
Rücksprung). 

1  MEMORY  &7FFF 

2  FOR  ad=&8000  TO  &8042 

3  READ  p— 

4  p=VAL(”&  ”+p%) 

5  POKE  ad,p 

6  NEXT  ad 

10 DATA  01, OE, 80,21,0A, 
80,  C3,D1,BC,  C9, 00, 00, 
00, 00, 3E,  80, FE,  03,  CO, 
DD,  7E,  00,  F5,  DD,  7E, 
02,F5,DD,  7 E, 04,  FE,  1B, 
DO,  4  7, 48,  CD,  93,  BB, 
CD, 32, BC, Fl, FE,  1B, 
DO,  4  7, 48,  CD,  99,  BB, 
CD, 32, BC, Fl, FE,  IB, 
DO, 47, 48, CD, 38, BC, 
C9,53,45,D4,00 

C.  Rothkopf 
Gummersbach 


Korrektur  zu 
XBasic 

Ein  kleiner  Fehler  hat  sich 
leider  in  die  Basicerweiterung 
in  Heft  6/86  eingeschlichen 
-  vielleicht  haben  Sie  es  schon 
gemerkt:  Die  neue  VAL- 
Funktiongibt  bei  einem  Leer¬ 
string  (”  ")  nicht  wie  gefor¬ 
dert  eine  0  zurück,  sondern 
wiederum  einen  Leerstring. 
Der  Fehler  kann  im  Basic- 
lader  korrigiert  werden. 
1350  DATA  CA,OA,FF,EB, 
E5, 16,00,58 
1440  DATA  18913 
oder  direkt  im  Maschinen¬ 
programm  durch  POKE 
&A139,&0A. 

Matthias  Uphoff 


Context 

Obwohl  es  bereits  sehr  v*. 
Anpassungen  und  Verände 
rungen  für  das  Programm 
Context  aus  Ihrer  Ausgabe 
4/86  gibt,  möchte  auch  ich 
eine  Anpassung  und  eine 
Veränderung  vorstellen,  weil 
ich  glaube,  daß  damit  das 
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Programm  noch  vielfältiger 
und  interessanter  wird. 
Zuerst  möchte  ich  mich  aber 
beiM.  Uphoff  bedanken,  da 
er  mir  eine  Geldausgabe  für 
ein  Textverarbeitungspro¬ 
gramm  erspart  hat.  Nun  zu 
den  Änderungen: 

Ich  bin  Besitzer  eines  Schnei¬ 
der  DMP  2000  Druckers.  Bis 
vor  kurzem  habe  ich  noch 
geglaubt,  keine  Anpassungs¬ 
probleme  zu  haben,  immer¬ 
hin  ist  das  Programm  auf 
einen  Schneider  Drucker  an¬ 
gepaßt. 

Erst  als  ich  durch  einen 
Zufall  eine  Unstimmigkeit 
bemerkte,  mußte  ich  mich 
mit  den  Steuerbefehlen  aus¬ 
einandersetzen: 

Der  Drucker  übernahm  nicht 
den  gewählten  Schriftsatz 
(Deutsch  oder  International). 
Hier  nun  die  nötigen  Anpas¬ 
sungsbefehle: 

80  casin—&9E02:cata= 

&  9E3E:cset—&  9F1 6: 
cabs=&9F19:nlq=&9FlC 
1 1 1  POKE  &9F15,82:POKE 
&9F16.2 

1360 IF  PEEK(cset)=0 
THEN  POKE  cset,2 
ELSE  POKE  cset,0 
1890  IF  PEEK(cset)—0 
THEN  PRINT’  T  ’ 
ELSE  PRINT’D  ” 

Zeile  111  läßt  sich  durch 
Änderung  des  Maschinenco¬ 
des  ersetzen.  Obwohl  Con- 
text  in  seinem  Preis-ZLei- 
stungsverhältnis  nicht  zu 
schlagen  ist,  bedaure  ich  es 
von  Anfang  an,  daß  die  Fä¬ 
higkeiten  meines  Druckers 
keineswegs  ausgeschöpfi  wur¬ 
den.  Da  ich  aber  keine  Ah¬ 
nung  von  Maschinensprache 
hatte,  konnte  ich  den  Befehls¬ 
teil  für  den  Drucker  nicht 
erweitern.  Mir  blieb  also 
nichts  anderes  übrig,  als 
eine  neue  Druckart  auf  Ko¬ 
sten  einer  anderen  in  das  Pro¬ 
gramm  aufzunehmen.  Daher 
verschob  ich  das  Problem. 
Später,  als  ich  mehr  Erfah¬ 
rung  im  Umgang  mit  Context 
gesammelt  hatte,  fiel  mir  auf 
daß  ich  das  Programm 
hauptsächlich  Jur  zwei  Dinge 
benötigte:  einerseits  um  Brie¬ 
fe  zu  schreiben,  wobei  ich 
eine  weitere  Schriftart  be¬ 
grüßen  würde  und  anderer¬ 
seits  um  Schulreferate  o.ä. 


anzufertigen,  wo  also  Indizes 
benötigt  werden. 

Daher  entschloß  ich  mich, 
eine  zusätzliche  Routine  in 
das  Programm  einzubauen: 
eine  Wahlmöglichkeit  zwi¬ 
schen  Indexschrift  und  Kur¬ 
sivschrift. 

Im  Menue  hatte  ich  dafür 
schnell  Platz  gefunden:  statt 
den  beiden  Punkten  ”Brief- 
qualität”  und  ” Entwurfs¬ 
druck ”  ließ  ich  nur  das  je¬ 
weils  zutreffende  anzeigen 
(Zeile  1340  nicht  eintippen): 

1340  IF  PEEK(nlq)=0 
THEN  POKE  nlql,l 
ELSE  POKE  nlq,0 
1345  GOSUB  1830.GOTO 
1290 

1830  PEN2:LOCA  TE 16, 4 

1840  IF  PEEK(nlq)=0 
THEN  PRINT’Ent- 
wurfsdruck”  ELSE 
PRINT” Brief qualität” 

1841  RETURN 

Damit  hatte  ich  eine  Zeile 
frei! 

Nun  mußte  ich  also  die  Kur¬ 
siv-Routine  einfügen: 

1350  IF  PEEK(&9F2  7)=84 
THEN  POKE  &9F27, 
53.POKE &9F3C,52: 
POKE  &9F3F.52: 
POKE  &9F40,0: 
POKE  &9F3D.18 
ELSE  POKE  &9F27, 
8 4: POKE  &9F3C,83: 
POKE  &9F3F,83: 
POKE  &9F40, 1: 
POKE  &9F3D.0 

1351  GOSUB  1845.GOTO 
1290 

1845  PEN2:L0CA  TE  16,6 

1846  IF  PEEK(&9F2  7)— 84 
THEN  PRINT” Indi¬ 
zes”  ELSE  PRINT 

” Kursiv ” 

1847  RETURN 

Da  die  Schrift  im  NL  Q-Mode 
dunkler  ist  als  im  Standard- 
Mode,  habe  ich  dafür  ge¬ 
sorgt,  daß  auch  die  anderen 
Schriftarten  im  NLQ-Mode 
dunkler  sind:  mit  Doppel¬ 
druck: 

1340  IF  PEEK(nlq)=0 
THEN  POKE  nlq,l: 
POKE  &9F4A,22: 
POKE  &9F4B,26: 
POKE  &9F4C,  1 7: 
POKE  &9F4D,  18 
ELSE  POKE  nlq,0: 


POKE  9F4A,6: 
POKE  &9F4B,  10: 
POKE  &9F4C,  1: 
POKE  &9F4D.2 

Man  muß  sich  nun  aber  ent¬ 
scheiden,  welchen  Schrift¬ 
modus  das  Programm  beim 
Start  haben  soll  und  die  nöti¬ 
gen  Werte  noch  vordem  Start 
in  den  Maschinencode  poken. 
Zum  Abschliß  miß  noch  ein 
Schönheitsfehler  beseitigt 
werden: 

260  GOSUB  1830.GOSUB 
1845 

Der  Erfolg  gab  mir  Recht: 
jetzt  konnte  ich  auch  kursiv 
drucken. 

Erklärung: 

Kursiv  ausschalten: 
&9F27.53 
Kursiv  einschalten: 
&9F3C,52 

&9F3F.52  / &9F40.0 
Schmalschrift  löschen: 
&9F3D.18 
Bedienung: 

<CTRL>  ö  (Pfeil  oben)  = 
Kursiv  in  normaler  Breite: 
kursiv 

<CTRL> / (Pfeil  unten)  = 
Kursiv  und  Schmalschrift: 
kursiv 

Ich  wünsche  allen  Usern  viel 
Spaß  mit  der  Erweiterung 
und  würde  mich  freuen,  wenn 
noch  mehr  Tips  zu  diesem 
Programm  veröffentlicht  wer¬ 
den.  Ich  denke  da  z.B.  an 
eine  Textspeichererweiterung 
für  den  CPC  6128. 

Manfred  Zink, 
Hannover 


Grafik  auf  Drucker 
+  Disk 

Viele  Ihrer  Tips  &  Tricks  und 
auch  Ihrer  Programme  sind 
für  uns  eine  sehr  wertvolle 
Hilfe  gewesen.  Doch  nun  sind 
wir  an  einer  Stelle  ange¬ 
kommen,  an  der  wir  nicht 
mehr  weiter  wissen.  Da  wir 
den  Computer  nicht  überall 
mit  hinnehmen  wollen,  wäre 
es  sehr  schön,  wenn  wir  eine 
Hardcopy  hätten,  um  den 
Bildschirm  maßstabsgerecht 
kopieren  zu  können. 

Wir  haben  zwar  einige  Hard¬ 
copyprogramme,  aber  es  be¬ 
steht  bei  allen  dasselbe  Pro¬ 


blem:  sie  sind  nicht  maß¬ 
stabsgerecht. 

Wir  möchten  den  Bildschirm 
vollständig  ausgedruckt  ha¬ 
ben  und/oder  so  auf  dem 
Blatt  Papier  verteilen,  daß 
die  Copy  in  der  Mitte  des 
Blattes  sitzt. 

Dies  ist  aber  nicht  die  einzige 
Bitte,  die  wir  haben.  Uns  be¬ 
schäftigt  die  Frage,  ob  es  mit 
dem  Schneider  CPC  464 
auch  möglich  ist,  ganze  Bil¬ 
der  abzuspeichern.  Da  der 
Computer  für  den  Aufbau 
eines  Bildes  etwa  eine  Stunde 
benötigt  (in  Basic),  wäre  es 
sehr  interessant,  diese  Bilder 
abspeichern  zu  können.  Die 
Bilder  sind  nur  zweifarbig. 
Zu  Ihrer  weiteren  Informa¬ 
tion:  wir  besitzen  den  Schnei¬ 
der  CPC  464,  den  Epson 
Drucker  RX-80  und  die  Vor¬ 
tex  Doppelfloppy-Station. 

Dagmar  Wallhorn, 
Issum 

CPC: 

Eine  annähernd  maßstabs¬ 
gerechte  Hardcopy  ermög¬ 
licht  das  Hardcopypro¬ 
gramm  aus  Heft  8/86.  Seite 
84.  Einen  kompletten  Bild¬ 
schirm  speichern  Sie  mit: 
Save  “Namc''.B.&C000,&4000. 


BTXm 

Was  muß  man  tun,  um  mit 
dem  CPC  464  BTX  zu  ma¬ 
chen  und  wie  wird  es  an  den 
464  angeschlossen? 

Peter  Götz, 
Regensburg 

CPC: 

Das  BTX-System  von 
Schneider  ist  noch  immer 
nicht  erhältlich.  Ob  das  Sy¬ 
stem  überhaupt  auf  den 
Markt  kommt,  ist  fraglich. 


NURSE 

In  Heft  7/86  Ihres  Ma^ 
habe  ich  folgende  Ändet . 
des  Disketten-Programmt 
"Nurse”  zu  machen.  Im 
Menuepunkt  4  habe  ich  fol¬ 
gendes  zu  bemängeln:  Gibt 
man  hierein  falsches  Kürzel 
ein,  so  kann  es  dazu  kom¬ 
men,  daß  die  Floppy  fürch- 
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DIGITAL  JOYCARD 


das  neue  Konzept  zur  Steuerung  von 
Computerspiel  und  Digitalgraphik 


SCHNEIDER  -  Version  für 

•  SCHNEIDER 

•  AMSTRAD 

STANDARD  -  Version  für 

•  COMMODORE 

•  ATARI 

•  SPECTRAVIDEO 

MSX  -  Version  für 

•  PHILIPS 

•  SONY 

•  TOSHIBA 

•  CANON 

•  MITSUBISHI 

AMSTRAD.  COMMODORE,  ATARI, 
SPECTRAVIDEO,  PHIUPS,  SONY, 
TOSHIBA,  CANON  U.  MITSUBISHI 
SIND  EINGETRAGENE  WARENZEICHEN 


D-2900  Oldenburg 
Marschweg  78-80 
Telefon  (0441)  507161 


Computer  products  GmbH 


D-4800  Bielefeld  17 
Salzufler  Straße  81 
Telefon  (05 21)  33  06  37 
Telex  932348 


•  Sensortasten, 
durch  fingerkontakt 
werden  superschnelle 
Aktionen  erzielt 

•  kein  Zerbrechen  mehr, 
da  keine  Mechanik 

•  leicht  zu  transportieren, 
paßt  in  jede  Hosentasche 

•  exaktes  diagonales 
System 

•  formschönes  Design  in 
den  Farben  Silber  und 
schwarz 
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Listing-Ausdruck  1 

115  MEMORY  S<5FFF: DEFINT  a  z: MODE  2 

120  PRINT  s  PRINT"D  i  skettentyp  e  ingeben"  s  PRINT 

125  INPUT" Sys tetnf  ormat  . . s  Dataformat . .  ..d";fm* 

130  IF  IJPPER*  <  fmt)  ="S“  THEN  ots=65  ELSE  IF  IJPPER*  <  fm*)  ="D"THEN  o  fs  =  193  ESSE  SO  TO 

120 

140  L0AD"d i scmon . b i n" , &6000  ? Masch i nenr out i ne  laden 

1040  PRINT  "sector";  s  x~sec tor- of s+1 s  Q0SUE  1900  s  sec t or=*+o f s-1 

1050  IF  sector<ofs  0R  sector>ofs+S  TUEN  PRINT  b*lb*"nur  1—9  raoeglich!  ";>S0T0  1 

040 

1110  IF  track>l  THEN  x= ( track-2) *9  «sec t or-ofs  ■  block=xö2  s  sbloc=x  MOD  2  +1 
1140  x=block*2+17+sbloc  :  t rack= ( ( xö9) + (2* (o f s=193) ) )  :  sector=x  MOD  9  +ofs 
1360  IF  sector<ofs+9  THEN  sector=sedor+l  ELSE  IF  track<39  THEN  t rack=l rack+1  ! 
sector=ofs  ELSE  PRINT  b*; 

1380  IF  secTor >ofs  THEN  sec t or-sec + or- 1  ELSE  IF  Track>0  THEN  1  rack=t rack-1  - 
sec  t or=of s+8  •  ELSE  PRINT  b*; 

1430  PRINT#k» " X  rack " ; Tracks "  sector "sector -ofs+i? 


terlich  anfängt  zu  rattern, 
weil  es  den  Programmnamen 
nicht  gibt.  Diese  Nebener¬ 
scheinung  kann  man  durch 
Änderung  der  Zeile  41 10  be¬ 
seitigen. 

Alte  Zeile: 

4110  adr=dirbuf+32*t 
neue  Zeile: 

4110  adr=dirbuf+32*t:IF 
PEEK(adr+l)=229 
THEN  PRINT 'Unter 
diesem  Kürzel  ist  kein 
Name  vorhanden” 
TOR  i—1  TO  2000 
:NEXT:GOTO  4030 

Markus  Kirchhof, 
Rotenburg/Wü. 


Diskettenmonitor 

In  Sonderheft  2/86  befindet 
sich  ein  ausgezeichneter  Dis¬ 
kettenmonitor,  der  aber  lei¬ 
der  nur  für  Disketten  im  Sy¬ 
stemformatgeeignet  ist. 

Um  die  Möglichkeiten  dieses 
Diskmonitors  auch  für  Dis¬ 
ketten  im  Dataformat  aus¬ 
nützen  zu  können,  muß  man 
die  entsprechenden  Offset¬ 
werte  einsetz en.  Um  dies  zu 
erreichen,  habe  ich  an  den 
Anfang  des  Programms  die 
Frage  nach  dem  Disketten¬ 
format  gestellt  (Zeile  120  - 
130): 

Mit  Hilfe  der  Variablen  ofs 
wird  dann  das  jeweilige  Dis¬ 
kettenformat  berücksichtigt. 
Dazu  sind  sieben  weitere 
Zeilen  zu  ändern.  Die  geän¬ 
derten  Zeilen  sind  aus  dem 
Listing-Ausdruck  1  ersicht¬ 
lich. 

Dieter  Bauer, 
Krefeld-Bocku  m 


Antwort  auf  die 
Leseranfrage  von 
Dieter  Lausberg 

Es  ist  ohne  Probleme  mög¬ 
lich,  CR  oder  LF  in  den 
Sign-on-String  oder  den 
Initial-Command-Buffer  zu 
schreiben. 

Richtig  ist,  daß  dieENTER- 
Taste  im  CP/M-Programm 
SETUP  die  Eingabe  been¬ 
det  (wie  auch  die  INPUT- 
Funktion  im  BASIC),  doch 


wurde  eine  andere  Möglich¬ 
keit  vorgesehen,  Steuerzei¬ 
chen  (ASCII-Codes  0  bis 
31)  einzugeben,  die  auch  im 
"DDI-1  Benutzerhandbuch” 
Kapitel  3.8  beschrieben  ist: 
"Für  die  ENTER-Taste  sind 
die  beiden  Zeichen  |  M  zu 
verwenden.  ” 

Wobei  mit  t  die  mathemati¬ 
sche  Funktion  ” Potenzie¬ 
ren ”,  auf  der  Tastatur  links 
neben  der  CLR-Taste,  ge¬ 
meint  ist  und  nicht  etwa  die 
CTRL-Taste. 

Es  können  also  alle  im 
”CPC  464  Bedienungshand- 
buch” /Kapitel  9/Seite  2  auf¬ 
geführten  CTRL-Codes  ein¬ 
gegeben  werden,  wobei  die 
Übersetzungstabelle  im  An¬ 
hang  III/ Seite  1  gute  Hilfe 
leistet. 

Beispiel: 

Die  Basic-Funktion  MODE 
soll  unter  CP/M  benutzt 
werden ;  im  Kapitel  9/Seite  2 
findet  man: 

”...  EOT...  Bildschirmmode 
setzen.  ”  und  in  der  Überset¬ 
zungstabelle  entspricht  EOT 
den  ASCII-Characters: 
CTRL-D. 

Also  muß  unter  CP/M  für 
die  Funktion  MODE  nur  t 
D  eingegeben  werden  (na¬ 
türlich  benötigt  diese  Funk¬ 
tion  noch  Parameter,  die 
aber  separat  zu  berechnen 
sind). 


Allerdings  ist  diese  Überset¬ 
zungstabelle  (Anhang  III/ 
Seite  1)  nicht  vollständig,  es 
fehlen  folgende  Characters: 
(s.  Tabelle  1) 

T.  Martin  Schmidhofer 
Zürich 


Bugs  und  Wanzen 

Aufmerksam  verfolgte  ich  die 
Bugs-Veröffentlichung  und 
wie  man  diese  wieder  aus- 
bessemkann(z.B.  ” MERGE ” 
im  Disc-Betrieb).  Trotzdem 
werde  ich  das  Gefühl  nicht 
los,  daß  mein  464  schlauer 
ist  als  andere.  A  uch  hier  kann 
man  von  einem  Fall  von 
künstlicher  Intelligenz  spre¬ 
chen,  für  mich  ist  es  nur 
immer  wieder  ärgerlich. 

5  ’  im  TAPE-Betrieb 
10  DI Ma(2,2) 

15  FOR  zahl—1  TO  10 
20  name$=” MEYER. DAT" 
30  OPENOUT  ”  ”+name% 
40  FOR  i=l  TO  2 
50  FOR  n—1  TO  2 
60  PRINT  *9,a(i,n) 

70  N EXT  n,i 
80  CLOSEOUT 
90  NEXT  zahl 

Obenstehendes  Programm 
geht  in  seltensten  Fällen  gut. 
Mal  heißt  das  File  ”MEY 
.MEYER",  mal  ” MEYER 
. MEY ”  oder  auch  mal 


"MDAT.EYER”.  Einmal 
hatte  ich  sogar  die  Namen 
” MEYERDATMEYERME ” 
Bricht  man  den  Savevor¬ 
gang  ab  und  gibt  ein: 
CLOSEOUT,  OPENOUT  ” 
”+name%  und  GOTO  40,  so 
geht  es  immer  gut. 

Im  Disc-Betrieb  habe  ich 
solche  Fehler  auch.  Dort 
treten  sie  aber  nur  auf  wenn 
der  Name  von  Programmen 
geändert  werden  muß  (z.B. 
" GRAF01.BIN ”, 
"GRAF02.BIN”  usw.). 
Woran  liegt’s?  Wie  kann 
man  das  eventuell  beseitigen 
oder  zumindest  umgehen? 

Martin  Stoldt, 
Lichtenegg 

CPC: 

DerGrund  für  diesen  Fehler 
ist  uns  nicht  bekannt,  aber 
durch  Einfügen  von: 

21  NAME$=NAME$ 
kann  er  behoben  werden. 


Lies  mich! 

Der  Listschutz  für  Basic- 
Programme  beim  Schneider 
CPC  mag  zwar  seine  Berech¬ 
tigunghaben,  wird  aber  spä¬ 
testens  dann  lästig,  wenn  man 
Programme  voH  Kassette  auf 
Diskette  transferieren  will. 
Und  dieses  Problem  tritt  be¬ 
sonders  beim  CPC  664/6128 
auf  da  doch  das  größere 
Softwareangebot  zur  Zeit 
noch  mit  Kassettenbetrieb  zu 
finden  ist.  Für  diese  beiden 
Modelle  ist  das  Maschinen¬ 
programm  auch  geschrieben. 
Wie  es  an  den  CPC  464  an¬ 
gepaßt  wird,  wird  später  ge¬ 
klärt. 

Nachdem  der  Basic-Lader 
gestartet  wurde,  löscht  sich 
das  Programm  und  das  Ma¬ 
schinenprogramm  läuft  von 


Tabelle  1 

DEC 

ASCII 

characters 

2? 

ESC 

(CctrUC) 

28 

FS 

(tCTRU\) 

29 

GS 

(  CCTRIJJ  ) 

30 

RS 

(CCTRLlt) 

31 

US 

CtCTRUJ 
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A65E 

10 

ÜF:G 

S-:h65E 

; =42590 

A65E  21 6EA6 

20 

L-D 

HL 

BLOCK 

;  Interruptblock 

Aöfal  i 169A6 

30 

LD 

DE 

,  PRO  6 

;  Ki  ei  nes  F'r  ogr  amm 

A6ö4  0681 

40 

LD 

B , : 

?,8 1 

; Ar t  des  Interrupts 

A666  C3E0BC 

50 

JP 

&BCE0 

; KL  New  Fast  Ticker 

A669  AF 

60  F'ROG 

XQR 

A 

;  A'-Reqi  ster  loeschen 

A66A  322CAE 

70 

LD 

CSci 

AE2C) ,t 

1  ;  =F'eek  tuer  aeschuetztes  Programm 

A66D  C9 

80 

RET 

A66E 

90  BLOCK 

DB 

20 

;  Platz  tu.er  Kernal 

Programm:  Loader 

Start: 

&A6! 

5E 

Ende: 

&A681  Laenge:  &0024  Fehler:  0 

Dazu  der  BAS IC-Lader; 

10  MEMORY  4258? 

20  FÜR  i  =42590  TO  42605 :  READ  a$ :  POLE  l  ,  VAL  ( 11  & "  +a$ )  :  NE  XT 
30  CALL  42590 
40  NEW 

50  DAT A  21, 6e ,  a6 , 1 1 , 69 ,  a6 , 06 ,81 ,  c3 ,  eO ,  bc  ,  a-f ,  32 , 2c  ,  ae ,  c? 

(664/6128) 

*  Anmerkung:  Dies  gilt  fu.er  CRC  664/6128. 

Fu.er  CRC  464  muss  es  heissen  &AE45. 

Daraus  aendert  sich  das  Programm  wie  -folgt; 

10  MEMORY  42589 

20  FÜR  1=42590  TO  42605; READ  a$: FÜKE  i , VAL ( "2<"+a$) : NEXT 
30  CALL  42590 
40  NEW 

50  DATA  2 1 , 6a ,  a.6 , 1 1 , 69 ,  a.6 , 06 ,81,  c 3 ,  eu ,  b c ,  af  ,  32 , 45 ,  ae ,  c 9  (464) 


nun  an  im  oberen  Speicher¬ 
bereich  des  Rechners.  Es 
wird  eine  kleine  Interrupt- 
Routine  verwendet,  um  immer 
das  PEEK  zu  löschen,  das, 
falls  ein  geschütztes  Pro¬ 
gramm  vorliegt,  gesetzt  ist 
(also  >  0).  Der  Computer 
kommt  so  nicht  dazu,  nach 
dem  Laden  eines  Programms 
von  Kassette  oder  Diskette 
festzustellen,  ob  es  sich  um 
ein  geschütztes  Programm 
handelt. 

Das  jeweilige  Programm  wird 
ganz  normal  mit  LOAD 
''Name”  geladen  und  steht 
dann  für  alle  Operationen, 
wie  SAVE,  LIST,  I DISC... 
zur  Verfügung. 

Eduard  Pfarr 
Bad  Schussenried 


Wordstar  auf  6128 
mit  Vortex  Fl-X 

Seit  kurzem  bin  ich  stolzer 
Besitzer  der  Vortex  Fl-X- 
Floppy  und  seitdem  ist  mir 
das  Arbeiten  mit  Wordstar 
unter  CP/M-Plus  zur  Freude 
geworden:  endlich  genug 


Speicherplatz  zusammen  mit 
einer  komfortablen  PRO- 
FILE-Datei.  Diese  Erfah¬ 
rungen  würde  ich  gerne  Ihren 
Lesern  mitteilen,  da  ich  mei¬ 
ne,  daß  nicht  jeder  soviel  Zeit 
mit  dem  Studium  der  Hand¬ 
bücher  vertun  sollte,  wie  ich 
A  nfanger  ( es  gibt  sicher  noch 
mehr  Anfänger  als  mich).  Die 
CP/M-Plus-Benutzer  werden 
ja  überall  etwas  stiefmütter¬ 
lich  behandelt,  besonders  im 
Schneider-Handbuch:  ich 
habe  nirgendwo  eine  prak¬ 
tische  Anleitung  über  das 
Arbeiten  mit  PROFILE  und 
den  komfortablen  CP/M- 
Plus-Kommandos  gefunden. 
Gleichzeitig  stelle  ich  die 
Frage  an  Sie,  ob  man  es  nicht 
noch  besser  machen  könnte. 
Zunächst  ging  ich  von  der 
Überlegung  aus,  daß  ich  die 
Kommandodateien  (WS  etc.) 
auf  Laufwerk  A  (3”)  unter¬ 
bringe,  und  die  längeren  Text¬ 
dateien  auf  Laufwerk  B 
(5,25”),  was  mir  den  Um¬ 
gang  mit  ca.  600KB  Text 
(aufgeteilt  in  kleinere  Blöcke) 
ermöglicht.  Die  Einrichtung 
der  Dateien  wird  bequemer 


und  professioneller,  wenn 
man  sie  mit  Datumsstempel 
versieht  (Formatieren  der 
Diskette  im  Laufwerk  B  mit 
INITDIR  und  Stempel  über 
SET (U PDA  TE=ON)).  Die 
Diskette  bekommt  ihren  Na¬ 
men  mit  SET(NAME=name) 
und  damit  auch  ein  Datum, 
woran  Sie  später  ablesen 
können,  wie  lange  Ihre  Dis¬ 
kette  schon  in  Gebrauch  ist. 
Die  Tastatur  wird  mit  LAN- 
GUAGE  2  auf  Deutsch  um¬ 
geschaltet  und  zusätzliche 
Tastenfunktionen  (Cursorta¬ 
sten  wie  gewohnt  benutzbar 
etc.)  werden  mit  SETKEYS 
KEYS.  WP  eingeschaltet. 
Mit  SETDEF(TEMPORA- 
RY=B:)  werden  Zwischen¬ 
dateien  auf  Laufwerk  B  ab¬ 
gelegt,  undmitSETDEFA:,* 
werden  alle  COM-Dateien 
zuerst  auf  A:,  dann  auch  auf 
dem  angemeldeten  Laufwerk 
gesucht.  Das  angemeldete 
Laufwerk  ist  am  besten  B, 
da  unter  Wordstar  dann 
immer  das  Inhaltsverzeich¬ 
nis  von  B  angezeigt  wird:  kein 
B:  vordem  Dateinamen  nö¬ 
tig- 


RGB-Modulator  (Art-Nr.  1150) 


Preis  DM  221,50 

Der  RGB-Modulator  ermöglicht  den  Anschluß 
eines  Schneider  CPC  464,  CPC  664  oder  CPC 
6128  direkt  über  AV  (Videoeingang)  bzw. 
VHFAntenneneipgang  an  ein  Fernsengeiät 
Der  RGB-Moduiator  liefert  außerdem  alle  Be 
Iriebsspannungen  für  Rechner  und  Floppysta 
tion 


V  ' 


RS  232 N  24  l/0\^^  (Art  Nr.  1500) 
Tester  Profi  Preis  DM  259,- 

Der  RS  232/V24  I/O  Tester  Profi  ist  ein  söge 
nannter  Breakort  Teste-,  d  h.  Sie  können  mit 
dem  Gerät  sowohl  die  Signaloegcl  der  Daten 
leitung  untersuchen,  als  auch  Leitungen  über 
die  eingebauten  Scnalter  trennen 
Lieferung  per  Vorauskasse/Nachnahme  zzgl 
DM  7.  Versand  und  Verpackung 

Bestellungen  an; 

EDV-Partner 
Birkenwaldstr.  157 
7000  Stuttgart-1 
Tel.:  0711/253008 


SIE  WS UiN 

m  % 

EFFEKTIVER  AISEITER? 
Dann  brauchen  Sie 
die  Feature's  von 

*  OUICK'IATA  S.6  ISX™  * 
Schreibet...  TistmOrecfc...  S«bM 

Ul  Ui  Ui 

Kunden-  u.  Artikelstamm 
Statistik  (GSX™) 

Rechnung,  Auftrag,  Lieferschein 
Offene  Posten- Liste 
Serienbriefe,  Fremdtexte 
Nachnahme,  Postkarten,  Adressen 
Absolute  Rechengenauigkeit  BCD 
GSX™-Graphik  kompatibel 
Datenbank 
90  Zeichen- Modus 
Vorbereitungen  automatisch 
3  x  schneller  als  üblich 

Iflr  ill«  JOTCE-Meielle 

BROSCHÜRE  SOFORT  AHFOROERH 

QUICK-CALC  2.0  :  148.00  DM 

QUICK-BILL  2.0  :168.00  DM 

QUICK-NAME  2.0  :128.00  DM 

QUICK-CINE  2.0  :  98.00  DM 

QUICK-DATA  3.0  :  228.00  DM 

***  EINFÜHRUNGSANGEBOT  *** 

Dyianlc  RANDOM-Accra  MiRirin 
Nr  JOYCE  SIS  KB  RAM-FLOPPT 

KIT  PCW  8256/TMS:  00.00  DM 

Fa.  WERDER/ Bramfelder  Ch.  21 5 
2000  Hamburg  71 /Tel.:  641  17  79 

(GSX™  eingetr.  Warenz.  v.  Digital  Research) 
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Sie  können  nun  alle  SUB- 
und  COM-Dateien  auf  Lauf¬ 
werk  A  legen  und  mit  SET 
A:,  *.  *(R0)  schreibschützen. 
Sie  werden  in  einer  PRO¬ 
FILE.  SUB-Datei  zusammen¬ 
gefaßt  und  über  SUBMIT 
automatisch  eingelesen,  wenn 
CP/M-Plus  gestartet  wird. 
Die  PROFILE. SUB-Datei 
schreiben  Sie  mit  der  N- 
Funktion  des  Wordstar;  sie 
sieht  dann  z.B.  so  aus: 

language  2 

b: 

Deutsche  Tastatur 

auf  Laufwerk  B  umschalten 

a:setdef  A:,* 

COM-Dateien  aufA  suchen 

setdefÄtemporary=b:Ü 
Zwischendateien  aufB 

setdefÄpageÜ 

Konsolen-Modus  auf  Seiten¬ 
stop 

setkeys  aikeys.wp 
einige  Tastenfunktionen 

showÄlÜ 

zeigt  Label  und  Datum  der 
Diskette 

show 

zeigt  freien  Speicherplatz 
aufA  und  B 

dirÄfullÜ 

volles  Inhaltsverzeichnis 
von  B 

date  set 

fragt  Sie  nach  Datum  und 
Uhrzeit 

ws 

lädt  Wordstar  von  A;  Haupt- 
laufwerk=B 


fragt.  Wenn  Sie  wollen, 
können  Sie  natürlich  entge¬ 
gen  der  Abfrage  die  Monats¬ 
und  Tages-Angabe  umdrehen 
(TT/MM/JJ);  Sie  müssen 
das  natürlich  dann  immer 
tun. 

Auf  Ihrer  Programmdiskette 
müssen  dann  folgende  Da¬ 
teien  sein: 

CPM3.EMS 

LANGUAGE.COM 

SUBMIT.COM 

KEYS.WP 

DATE.COM 

SETKEYS.COM 

SETDEF.COM 

PROFILE.  SUB 

WS.COM 

WSMSGS.OVR 

WSOVLY.OVR 

MAILMERGE.OVR 

DIR.COM 

SET.COM 

SHOW.COM 

Damit  ist  diese  Disketten¬ 
seite  schon  fast  voll:  162  KB. 
Auf  der  anderen  Seite  dieser 
Diskette  sollte  sich  dann 
mindestens  noch  die  Datei 
INITDIR.  COM  für  die  Ini¬ 
tialisierung  neuer  Disketten 
befinden;  PIP.  COM  und 
CPM3.EMS  wären  noch 
praktisch. 

Die  Datei  CPM3.EMS  ist  die 
unter  VDOS  gepatchte  Form 
von  CP/M3.  Der  Aufruf  von 
CP/M  erfolgt  durch  ” öCPM " 
(ö  ist  die  Taste  zwischen p  und 
den  offenen  Klammem)  und 
nicht  öPM,  1  wie  im  Vortex- 
Handbuch  beschrieben  (viel¬ 
leicht  gibt  es  inzwischen  eine 
verbesserte  Auflage).  Auf¬ 
passen,  daß  sich  auch  im 
Laufwerk  B  eine  Diskette 
befindet,  sonst  erkennt  VDOS 
nur  ein  Laufwerk. 


Dabei  ist  ”Ä"  die  eckige 
Klammer  auf  und  ”Ü”  die 
eckige  Klammer  zu  (durch 
LANGUAGE  2  umdefiniert). 
Den  Kommentar  bitte  nicht 
mit  eintippen! Nach  SETDEF 
A:,  *  brauchen  Sie  beim  Auf¬ 
ruf  der  folgenden  COM-Da¬ 
teien  das  Laufwerk  A:  nicht 
mehr  anzugeben:  CP/M-Plus 
sucht  sie  automatisch  aufA:. 
Bevor  Wordstar  eingelesen 
wird,  werden  Sie  nach  dem 
Datum  und  der  Uhrzeit  in  der 
englischen  Schreibweise  ge¬ 


Nach  diesen  Vorschlägen 
können  Sie  sich  sicher  selbst 
eine  maßgeschneiderte  PRO¬ 
FILE.  SUB-Datei  basteln. 

Noch  ein  Tip  zu  Installation 
des  Wordstar:  es  funktio¬ 
niert  auch  unter  CP/M-Plus. 

Doch  wollen  Sie  an  einem 
schon  installierten  WS  noch 
etwas  verbessern,  so  können 
Sie  bei  der  Frage  nach  dem 
Namen  der  zu  installierenden 
Datei  nicht  WS.COM  ein¬ 


geben:  da  dreht  das  IN- 
STALL-Programm  beim  Ko¬ 
pieren  von  WS.COM durch. 

Benennen  Sie  die  alte  WS 
.COM-Datei  vorher  um,  z.B. 
in  WS1.COM.  Die  fertige 
Datei  sollte  immer  WS.  COM 
heißen,  wenn  Sie  sie  nachher 
mit  WS  aufrufen  wollen. 

Eine  unter  z.B.  WS1.COM 
installierte  Datei  funktioniert 
beim  Aufruf  nicht,  wenn  sie 
nachträglich  in  WS.COM 
umbenannt  wurde. 

Jetzt  fehlt  eigentlich  nur  noch 
eine  permanente  Einblen¬ 
dung  der  Uhrzeit  im  Bild¬ 
schirm  (z.B.  rechts  oben)  und 
einige  Begrüßungszeilen  beim 
Aufruf  von  CP/M,  dann  würde 
unser  Schneider  wie  ein  Pro¬ 
ficomputer  aussehen  und 
funktionieren. 

Ihre  Zeitschrift  finde  ich  toll; 
die  meisten  der  obigen  Vor¬ 
schläge  kamen  aus  Anre¬ 
gungen  durch  Artikel  in  Ihrer 
Zeitschrift  zustande  -  aber 
erst  nach  längerem  Probieren. 

Dr.  Wolfgang  Schwarz, 
München 


Fragen  zum  JOYCE 

Seit  einigen  Monaten  besitze 
ich  einen  PCW  8256  und 
benutze  diesen  hauptsächlich 
als  Textcomputer.  Beim  Ar¬ 
beiten  mit  dem  Rechner  und 
dem  weiteren  Ausloten  seiner 
Möglichkeiten  ist  mir  die 
CPC-International  mit  der 
Joyce-Rubrik  eine  große  Hil¬ 
fe.  Da  ich  jedoch  als  absolu¬ 
ter  Anfänger  an  das  Gerät 
gehe,  habe  ich  einige  Fragen: 

1. Bei  dem  Versuch,  einen 
längeren  Text  abzuspeichem, 
meldete  sich  das  Gerät  mit 
der  Anzeige  ” Diskette  voll”, 
obwohl  der  Diskmanager  noch 
”7k  frei”  meldet  Dies  änderte 
sich  auch  nach  dem  Löschen 
einiger  anderer  Texte  auf  der 
Diskette  nicht. 

2.  Laut  Handbuch  ist  Loco- 
Script  in  der  Lage,  Sonder¬ 
zeichen  zu  erzeugen.  Bei  dem 
Erstellen  meiner  Texte  be¬ 
nötige  ich  das  Zeichen  für 
Promille.  Wie  kann  ich  dies 


(und  selbstverständlich  auch 
andere)  bekommen? 

3.  Mir  ist  der  Unterschied 
zwischen  Arbeits-,  Start-  und 
Daten-Dis kette  nicht  klar. 

Sind  aff  einer  Datendiskette 
nurdieLocoScript-Texte  und 
nicht  auch  das  Programm 
selbst.  Falls  dem  so  ist,  wie 
erstelle  ich  eine  Arbeits-  und 
eine  Datendisk?  Ist  es  besser 
oder  einfacher,  hierfür  mit 
zwei  Laufwerken  zu  arbei¬ 
ten? 

4.  Ich  möchte  mit  dem  Joyce 
Zugang  zu  Datenbanken  be¬ 
kommen,  speziell  zu  JURIS 
oder  auch  JUPITER.  Die 
Übertragung  von  Daten  mei¬ 
nes  PC's  zu  anderen  interes¬ 
siert  mich  nicht  so  sehr.  Was 
benötige  ich  hierfür  neben  der 
RS  232C  und  einem  Modem 
noch  an  Software? 

CPC: 

Zu  1.:  Leider  hat  man  wäh¬ 
rend  der  Bearbeitung  eines 
Textes  keine  Information 
über  die  augenblickliche 
Größe  desselben.  Solange 
der  Platzbedarf  des  Textes 
den  noch  freien  Disketten¬ 
platz  nicht  übersteigt,  ent¬ 
stehen  beim  Speichern  keine 
Probleme.  Auch  kann  wäh¬ 
rend  des  Bearbeitens  das 
Platzproblem  auftreten,  da 
LocoScript  bei  großen  Tex¬ 
ten  nur  einen  Teil  im  Spei¬ 
cher  des  Rechners  hält,  den 
Rest  aber  auf  Diskette. 

Außerdem  wird  der  bearbei¬ 
tete  Text  in  eine  neue  Datei 
geschrieben,  um  einen  Ab¬ 
bruch  der  Arbeit  zu  ermög¬ 
lichen  und  den  Ursprungs¬ 
text  zu  erhalten.  Dafür  wird 
entsprechend  Platz  benötigt 

Tritt  die  Fehlermeldung 
"Diskette  voll"  auf,  so  hat 
man  die  Möglichkeit,  die 
Operation  abzubrechen  oder 
die  Diskverwaltung  aufzu¬ 
rufen.  Der  erste  Fall  bewirkt 
bei  der  Bearbeitung  den 
Verlust  sämtlicher  Textän¬ 
derungen  -  der  Ursprungs¬ 
text  bleibt  unverändert  er¬ 
halten.  Entscheidet  man  sich 
für  die  Disk-Verwaltung,  so 
hat  man  zwei  Möglichkeiten, 
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den  benötigten  Platz  auf  der 
Diskette  bereitzustellen: 

-  einen  nichtmehr benötig¬ 
ten  Text  löschen 

-  einen  Text  auf  eine  andere- 
Diskette  "versetzen'’,  d.h. 
beim  PCW  8256  von  der 
Diskette  in  die  RAM-Disk. 
Nach  Beendigung  der  Ar¬ 
beit  am  aktuellen  Text 
kann  dann  die  Diskette  im 
Laufwerk  gewechselt  wer¬ 
den,  und  der  "versetzte" 
Text  aus  der  RAM-Disk 
wieder  dauerhaft  gespei¬ 
chert  werden.  Beim  PCW 
8512  kann  dies  wegen  sei¬ 
nen  zwei  Diskettenlauf¬ 
werken  ohne  den  Umweg 
über  die  RAM-Disk  ge¬ 
schehen. 

Nun  kann  aber  der  Fall  auf- 
treten,  daß  der  gewonnene 
Platz  noch  nicht  ausreicht, 
da  der  gelöschte  oder  ver¬ 
setzte  Text  "zu  klein"  war. 
In  dem  Fall  tritt  die  Fehler¬ 
meldung  wieder  auf  und  es 
müssen  weitere  Texte  von 
der  Diskette  entfernt  werden, 
was  u.U.  bei  einem  "großen", 
zu  speichernden  Text  die 
Entfernung  von  etlichen 
"kleinen"  Texten  bedeutet. 
In  der  Regel  ward  "irgend¬ 
wann"  genug  Platz  vorhan¬ 
den  und  die  Operation  kor¬ 
rekt  beendet  sein.  Es  sei  denn, 
der  Text  hat  sogar  die  ge¬ 
samte  Diskettenkapazität 
überschritten,  was  aber  in 
der  Praxis  mangels  Ge¬ 
schwindigkeit  kaum  auftre- 
ten  dürfte. 

Zu  2.:  Mit  LocoScript  steht 
ein  sehr  umfangreicher  Zei¬ 
chensatz  zur  Verfügung.  Wie 
(und  welche)  besonderen 
Zeichen  eingegeben  werden 
können,  ist  anhand  der  Ta¬ 
staturabbildung  in  Verbin¬ 
dung  mit  den  Tasten  ALT 
und  EXTRA  zu  ersehen. 

Andere  Zeichen  außer  die¬ 
sen  sind  nicht(!)  möglich. 
Jedoch  kann  man  mit  Hilfe 
der  verschiedenen  Schrift¬ 
arten,  insbesondere  durch 
Hoch-  und  Tiefstellung, 
(und  Freude  am  Experi¬ 
mentieren)  das  eine  oder 
andere  benötigte  Zeichen 
konstruieren. 


Zu  3.:  Prinzipiell  gibt  es  nur 
Datendisketten,  da  für  den 
Computer  auch  die  Pro¬ 
gramme  letztendlich  Daten 
sind  -  halt  nur  besondere. 
Folgende  Unterteilung  für 
den  Anwender  dürfte  all¬ 
gemein  bräuchlich  sein: 

Mit  dem  Begriff  "Arbeits¬ 
diskette"  werden  Disketten 
bezeichnet,  die  im  alltägli¬ 
chen  Gebrauch  sind,  und 
auf  denen  Programme  sowie 
Daten  gespeichert  sind.  Ihr 
Gegenstück  ist  die  "Sicher- 
heitskopie”,  die  ihre  meiste 
Zeit  außerhalb  des  Rechners 
verbringt:  Sofern  Programme 
nicht  kopiergeschützt  sind, 
sollte  man,  wie  von  den  mei¬ 
sten  Herstellern  auch  empfoh¬ 
len,  diese  kopieren,  nur  mit 
diesen  Kopien  "arbeiten"  und 
das  Original  an  einem  siche¬ 
ren  Platz  (Safe?)  aufbewaren. 
Warum?  Disketten  unterlie¬ 
gen  dem  Verschleiß  oder  kön¬ 
nen  z.B.  durch  Magnetismus 
zerstört  werden.  Deshalb  soll¬ 
te  man  auch  von  seinen  Da¬ 
tendisketten  (s.u)  in  regel¬ 
mäßigen  Intervallen  Sicher¬ 
heitskopien  machen.  Man 
hat  also  die  Möglichkeit,  im 
Unglücksfall  eine  neue  Ar¬ 
beitsdiskette  zu  erstellen. 

Als  Startdisketten  werden  i.a. 
solche  bezeichnet,  mit  denen 
der  Rechner  nach  dem  Ein¬ 
schalten  "gefüttert"  wird  Diese 
enthalten  zumindest  das  (im¬ 
mer)  benötigte  Betriebssystem 
(hier  CP/M).  Außerdem  kön¬ 
nen  noch  weitere  Programme 
vorhanden  sein,  die  während 
des  "Startvorgangs"  automa¬ 
tisch  ausgeführt  werden:  z.B. 
Tastaturdefinition,  Geräteein¬ 
stellungen  usw.,  bzw.  gestartet 
werden. 

Disketten,  auf  denen  i.a.  nur 
Daten  gespeichert  sind,  wer¬ 
den  als  Datendisketten  be¬ 
zeichnet,  Disketten  mit  Pro¬ 
grammen)  als  Programm¬ 
oder  Startdisketten.  Datendis¬ 
ketten  werden  meistens  nur 
mit  Hilfe  eines  Dienstpro¬ 
grammes  des  Betriebssystems 
(kurz:  BS)  formatiert  (z.B. 
DISCKIT.COM)  und  werden 
dann  in  der  Regel  von  dem 
Anwendungsprogramm  und/ 
oder  mit  den  Diensten  des  BS 
gepflegt  Viele  Programme  er¬ 
lauben  außer  ihren  eigenen 
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Daten  auch  die  anderer  Pro¬ 
gramme  auf  derselben  Dis¬ 
kette.  Es  gibt  Programme,  die 
für  den  Speicher  des  Rech¬ 
ners  zu  umfangreich  sind, 
aus  mehreren  Teilen  bestehen, 
die  nach  Bedarf  von  der  Dis¬ 
kette  geladen  werden  und 
auch  den  ganzen  Platz  der 
Diskette  benötigen  (z.B.  DR. 
DRAW).  In  diesem  Fall  ist  die 
Verwendung  einer  zweiten 
Disketten-Statfon,  einer  RAM- 
Disk  oder  einer  Festplatte  (bei 
entspr.  Programm-  und  Da¬ 
tenmenge)  zu  empfehlen,  um 
nicht  ständig  Programm-  und 
Daten-Disketten  wechseln  zu 
müssen.  Bei  anderen  Pro¬ 
grammen,  wie  z.B.  LocoScript, 
ist  ein  Nachladen  nicht  not¬ 
wendig,  d.h.  die  Programm¬ 
diskette  kann  nach  Start  des 
Programms  durch  eine  Da¬ 
tendiskette  ersetzt  werden. 
Auch  ist  es  möglich,  Daten 
und  Programme  bei  ausrei¬ 
chender  Kapazität  des  Lauf¬ 
werks  auf  einer  Diskette  zu 
haben. 

Zu  4.:  Generell  handelt  es  sich 
bei  einem  Zugriff  auf  solche 
Datenbanken  auch  nur  um 
eine  Datenübertragung  wie 
zwischen  zwei  PC’s. 

Dabei  werden  Sie  von  der 
Datenbank  als  eine  Daten- 
Endstation  (Terminal)  ange¬ 
sehen,  die  gewissen  Anforde¬ 
rungen  genügen  muß.  Viele 
Datenübertragungspiogramme 
wie  z.B.  MAIL232.COM  oder 
Kermit,  stellen  dazu  einen 
Terminalmodus  (z.B.  VT  100) 
bereit  Mit  einem  solchen 
Terminal-Emulator  kann  auf 
viele  Datenbanken  zugegrif¬ 
fen  werden. 

Allerdings  können  von  man¬ 
chen  Datenbanken  auch  be¬ 
sondere  Anforderungen  an 
die  Soft-  u.  Hardware  gestellt 
werden,  wie  z.B.  bei  "PLA¬ 
TO"  (USA),  wo  auch  grafische 
Darstellungen  angeboten  wer¬ 
den.  Ein  anderes  Beispiel 
wäre  BTX  Außerdem  gestat¬ 
ten  die  meisten  Datenbanken 
nur  autorisierten  Benutzern 
den  Zugriff  auf  ihren  Daten¬ 
bestand  und  lassen  sich  für 
ihren  Dienst  bezahlen.  Über 
diese  Anforderungen  geben 
die  Betreiber  von  Datenban¬ 
ken  detaillierte  Auskunft 


Augen  auf  beim  Computerkauf  1 

Schneider  PCW  8256  Joyce  1648, — 

Schneider  PCW  851 2  Joyce  Plus  2298,— 

Schneider  CPC  464  Keyboard  448,— 

Schneider  CPC  664  Keyboard  (mit  Floppy)  798. — 

Schneider  CPC  61 28  Keyboard  (mit  Floppy)  898, — 
Schneider  Grünmonitor  GT-65  (für  alle  CPC)  348, — 
Schneider  Farbmonitor  CTM-644  (lür  alle  CPC)  798  — 
Schneider  CPC  464  mit  Grünmonilor  598, — 

Schneider  CPC  464  mit  Farbmonitor  998, — 

Schneider  CPC  664  mit  Grünmonilor  998, — 

Schneider  CPC  664  mit  Farbmonitor  1498, — 

Schneider  CPC  61 28  mit  Grünmonitor  998, — 

Schneider  CPC  6128  mit  Farbmonitor  1498  — 
Schneider  3-Zutl-Floppy-Disk  DDI-1  648,— 

mit  CP/M  und  Logo 

dilo  als  2  Laufwerk  (ohne  CP/M  u  Logo)  559, — 
Vortex  5  25"-F!oppy-Disk  F  1-S  (Einze)St-)  1198,— 
Vorlex  5  25"-Floppy-Disk  f  1-D  (Doppelst)  1698, — 
Vortex  Aufrüstkit  A  1-S,  F  1-S  auf  E  1-D  498, — 

NEU  Vortex  M1-X  35  Zull  Zweitlaufwerk  758  — 
NEU  Vortex  F 1  -X  5  25  Zoll  Zweitlaufwerk  758  — 
NEU  Vorlex  M  1  -XRS  3  5  Zoll  Zweillaufwerk  858. — 
NEU  Vorlex  F  1  -XRS  5  25  Zoll  Zweitlaufwerk  858. — 
Cumana  3  Zoll  Zweillaufwerk  428, — 

Cumana  5  25  Zoll  Zweillaufwerk  598 — 

Daienrecorder  Sony  lür  CPC  664/6128  98, — 

3  Zod  Disketten  Panasonic  5  Stuck  59— 

ab  1 0  Stück  ie  1 1 ,50  ab  100  Stück  je  10,50 

5  25  Zoll  Disketten  96  tpi  lür  Vortex-Lautwerke 
10  Stück  m  PVC  Hartbox  69.95 

Netzteil  MP  I  lür  Schneider  CPC  464  1 39, — 

Netzteil  MP  2  lür  Schneider  CPC  664/61 28  1 59  — 

RAM-Erweileiungen  der  FA  Voitex 
RAM-Erweilerung  SP-64  insgesami  128  KByte  275— 
HAM-Erweilerung  SP-I28  348. — 

RAM-Erweilcrung  SP-256  478. — 

RAM-Erweilerung  SP-320  528, — 

HAM-Erweilerung  SP-51 2  589.— 

RAM-Erweilerung  lür  Joyce  auf  512  KB  148  — 

FD-2  (2  Laufwerk  für  Joyce  1  M8)  698,— 

Bildschirmlilter  tür  Joyce  89, — 

Monitor- D'enluß  Nergungswmk  slulenlos  einstellb  39  95 
Veilänge'uitgskabel  1  5  m  lür  CPC  464  29,95 

dito  für  CPC  664  unc  61 28  34,95 

Quickshol  1 1  mil  Au tofire  1 9,95 

Compelilion  Pro  5000  mit  Mikroschalter  59.95 
DisketienDcx  tür  40  St  3  Zoll-Diskelten  39  95 
Disketienbox  für  4C  St  3  5  Zoll-Diskellen  39 95 
D  skellenbox  lur  40  St  5 25  Zoll-Disketten  49 95 
Diskettenoox  I  IOC  St-,  5  25”-DisKetten  m  Schieß 34  9  5 
Slaubsch.iTzhaube"  aus  weichem  Kunstleder  (Schncrdcr- 
grau)  lür  CPC  464/664/6128.  NLQ  401  CDI-1  Mondo- 
Grun/Farbe  ie  17,95 

komplett  f  CPCu  Monitor  (bitte  Gerate  angeben)  29.95 
Akustikkoppler  S  21  d  279  — 


Supersollware  lur  Ihren  CPC 


Wordstar  3  0 

199,- 

lexromal 

99,- 

dBase  II 

199- 

Datamat 

99,- 

Mulliplan 

199,- 

Proli  Parnler 

99 

Turbo  Pascal  3  0 

219- 

Profimat 

99- 

Turbo  Pascal  30 

Matrwma! 

99- 

mit  Grafikunterst 

279,- 

Budgelmanagsr 

99,- 

Turbo  Tulor 

99- 

Turb-Lad  Business  148. 

Turbo  Toolbox 

219,- 

lurb  Graph  Toolbox  2 19,- 

C-Basic-Compiler  169,- 

Pascal/MT-F 

169- 

Srnall-C 

148- 

Turb -l  ad  Science 

189- 

DR  DRAW 

199- 

DR  GRAPH 

199- 

FIBU-Star  Plus 

296,- 

Datei-Star 

98.- 

Slar-Mail 

96.- 

Star-Writer  1 

198,- 

zum  Teil  sind  d  e  Programme  auch  tür  den  Joyce  geeignet 
daher  bitte  Comoulertyp  und  Diskformat  angeben 

DRUCKERPARADE  DRUCKERPARAOE 

Malrixdrucker  0MP  2000  676,— 

Epson  LX-80  10C  Zeich/Sek  1  KByte  Prüfer  898, — 
Epson  FX-65  160  Zeich/Sek  8  KByte  Puffer  1378, — 
Epson  FX-105  160  Zeich/Sek  8  KByte  Puffer  1798  — 
Epson  HI-80  4-FaraploUer  A  4  1296, — 

Panasonic  KX-P  1 080  1 00  Zeich  /Sex  798  — 

Panasonic  KX-P  1 091  1 20  Zeich/Sek  898— 

Panasonic  KX-P  1 092  190  Zeich  /Sek  1198, — 

Panasonic  KX-P  1592  Breiltormal  1648, — 

Panasonic  KX-P  3151  Typenraddrucker  1548. 

Star  NL  10  898  — 

Rilenan  F+  105  Zeich./Sek  2  KByie  Puffer  998  — 
DruckeranschluOkabel  CPC  464/664  49  — 

dito  jedoch  61 28  59— 

Super-  Druckerstancer  98,— 

Ersalzfarbbänder  ab  Lager  lieferbar 
Endlospapier  weiß  m  M.kroperlcration  500  Blatt  19,95 
dito  |edoch  1000  Blatt  34,95 

dito  jeodch  2000  Blatt  49,95 

Alle  Geräte  mit  FTZ  unc  deutschem  Handbuch 
Technische  Unterlagen  |e  Gerät  gegen  1.50  CM  n  Brief¬ 
marken  Expressversand  speziell  in  die  Schweiz  und  nacn 
Österreich  einfachste  Abwicklung  Cer  Bezahlung 
Kein  Ladengeschaft  mehr,  nur  Versand 
Abholung  bitte  telefonisch  avisieren!! 


Wangener  Str.  99 
D-7980  Ravensburg 
Tel.:  0751/26138 
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Schneider  Aktuell 

Prospero  Software 

Die  Programme  der  engli¬ 
schen  Firma  Prospero,  Pro- 
Pascal  und  ProFortran,  sind 
nun  auch  in  einem  deutschen 
Vertrieb  erhältlich. 

Die  Fa.  Unicom  wird  zu¬ 
nächst  diese  beiden  Produk¬ 
te  mit  in  den  Vertrieb  auf¬ 
nehmen;  voraussichtlicher 
Verkaufspreis  ca.  DM  140,— 
bis  160,-.  Der  genaue  Preis 
stand  bei  Redaktionsschluß 
noch  nicht  fest. 

Info: 

Unicom  Computertechnik 
4100  Duisburg  1  □ 


Joyce- 

Anwendungen 

Zwei  professionelle  Anwen¬ 
derprogramme  für  den  Joyce 
erweitern  den  Einsatzbereich 
um  ein  weiteres  Stück. 
Fahrschulen  können  sich 
über  das  Programm  "Fahr¬ 
schule  perfekt"  freuen,  das 
sie  vieler  Verwaltungsaufga¬ 
ben  entledigt.  Von  der  An¬ 
meldung  des  Fahrschülers 
bis  hin  zur  korrekten  Ein-/ 
Ausgabenbuchführung  ist 
alles  nötige  in  diesem  Pro¬ 
grammpaket  enthalten. 
Das  Programm  Autover¬ 
mittlung  ist  speziell  für  den 
Handel  mit  KFZ,  bzw.  die 
Vermittlung  von  KFZ  er¬ 
stellt  worden. 

Das  Programm  ist  indivi¬ 
duell  gestaltet  und  kann 
leicht  an  eigene  Bedürfnisse 
angepaßt  werden.  Auch  hier 
ist  von  der  Dateneingabe 
über  Verwaltung  bis  hin  zum 
kompletten  Rechnungsdruck 
alles  integriert. 

Info: 

E  &  C  Zellmeier 

8520  Erlangen  □ 


Analog/Digital- 

Wandler 

Ein  Analog/Digital-Wandler 
für  Hochgenauigkeitsmes¬ 
sungen  ist  jetzt  von  der  Fa. 
Dobbertin  erhältlich.  Die 
oberste  Grenze  sind  bei  die¬ 
sem  System  16  Bit  -  eine 
feine  Leistung  -  haben  doch 


in  der  Regel  Meßdatener¬ 
fassungen  eine  Obergrenze 
von  12  Bit. 

In  Verbindung  mit  einem 
Schneider  Rechner  wurde 
z.B.  eine  4-kanalige  Meß- 
werterfassungs-Anlage  für 
Kugellager-Kugeln  realisiert 
Das  System  ist  für  alle 
Schneider  CPC  erhältlich. 
Info: 

Fa.  Dobbertin 

6835  Brühl  □ 


Write-Hand-Man 

Von  Hisoft  kommt  in  Kürze 
das  Write-Hand-Man  Pro¬ 
gramm  für  Computer  der 
CPC-Serie  sowie  für  Joyce. 
Das  Programm  stellt  nütz¬ 
liche  Features  zur  Verfü¬ 
gung  und  ist  vergleichbar 
mit  dem  Programm paket 
"Sidekick”,  das  Borland  für 
den  IBM  PC  entwickelte. 
So  beeinhaltet  Write-Hand- 
Man  einen  Taschenrechner, 
einen  Notizblock,  ein  elek¬ 
tronisches  Telefonverzeich¬ 
nis  und  stellt  zudem  einige 
Tools  für  die  Programmie¬ 
rung  von  Anwenderpro¬ 
grammen  zur  Verfügung. 
Die  Joyce-Version  nutzt 
übrigens  den  kompletten 
Bildschirm  (31*90)  aus. 
Der  Preis  wird  voraussicht¬ 
lich  bei  ca.  30  £  liegen. 

Info: 

Hisoft 

180  High  Street 
North 

GB-Dunstable  □ 


Neue  Druckerserie 
von  Selkoslta  SP-1 80 

Seikosha  stellt  das  Nach¬ 
folgemodell  für  die  erfolg¬ 
reiche  GP-500-Serie  mit  er¬ 
heblichen  technischen  Ver¬ 
besserungen  und  einem  er¬ 
staunlichen  Preis-/Leistungs- 
verhältnis  vor. 

-  Druckgeschwindigkeit: 

80  eps  (EDV),  20  eps  (NLQ) 

-  Druckmatrix:  6x9  (EDV), 
12  x  18  (NLQ) 

-  Druckkopf:  9  Nadeln 

-  Druckrichtung:  bidirektio¬ 
nal  mit  Druckweg-Opti¬ 
mierung 
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-  Papierbreite:  bis 254 mm/ 
10  Zoll 

-  Friktionsantrieb 

-  Traktor:  Option 

-  Farbband:  Farbbandkas¬ 
sette  wie  bei  SP-800,  SP- 
1000  mit  einer  Lebens¬ 
dauer  von  2,5  Mio.  Zeichen 

-  Modelle:  Es  werden  Mo¬ 
delle  für  alle  gängigen 
Home-  und  Personal-Com¬ 
puter  zur  Verfügung  stehen 

-  Geräuschpegel: 
kleiner  60  dB  A 

-  Erstvorstellung:  Hannover 
Ce  Bit  1986 

-  Lieferbar:  ab  Juli  1986 

-  unverb.  empf.  End  Ver¬ 
kaufspreis  inkl.  MwSt.: 
DM  598,- 

Info: 

Microscan  GmbH 

2000  Hamburg  60  □ 


Star  Wrlter  HV  3.0 

Wie  uns  die  Firma  Star 
Division  mitleilte,  liegt  der 
Star  Writer  I  jetzt  in  der 
Version  3.0  vor.  Dieser  hat 
sich  im  Vergleich  zu  den 
vorhergehenden  Versionen 
noch  verbessert. 

Im  einzelnen  sind  folgende 
Features  hinzugekommen. 

-  Grafiken  können  in  den 
Text  eingebunden  werden. 

-  Überarbeitung  des  Grafik¬ 
programmes  (FILL,  Ra¬ 
diergummi...) 

-  Überarbeitung  der  Adress- 
verwaltung  (Direktdruck, 
Sortieren...) 

-  Überarbeitung  des  DFÜ- 
Programmes 

-  textorientiert 

-  spezielle  Version  für  den 
CPC  6128  (mehr  Textspei¬ 
cher) 

-  spezielle  Version  für  Vor¬ 
tex  RAM-Erweiterung 
(voll  nutzbar) 

-  spezielle  Version  für  Vor- 
tex-Laufwerke  (auch  jetzt 
erhältlich) 

-  Überarbeitung  des  Hand¬ 
buches 

Via  Softwarepaß  registrierte 
Benutzer  früherer  Star  Wri- 
ter-Versionen  können  durch 
Einsendung  ihrer  original 
Star  Writer-Diskette  und 
Entrichtung  eines  Unko¬ 
stenbeitrages  ihre  Version 
3.0  bekommen. 


Info: 

Star  Division 

2120  Lüneburg  □ 


”Mac  Lin”  für  Joyce 

Mit  "Mac  Lin”,  ein  für  den 
Joyce  neuartiges  Program¬ 
miersystem,  können  nun 
auch  Einsteiger  ohne  Pro¬ 
grammierkenntnisse  ihre  ei¬ 
genen  Programme  zur  Er¬ 
stellung,  Bearbeitung  und 
zum  Ausdruck  von  Daten 
erstellen.  Aus  den  vorgege¬ 
benen  Fragen  und  den  Ant¬ 
worten  des  Benutzers  kön¬ 
nen  beliebige  kommerzielle 
Programme  wie  beispiels¬ 
weise  Lagerverwaltung,  Fak¬ 
tura,  Buchhaltung  etc.  in 
kurzer  Zeit  erstellt  werden. 
Von  "Mac  Lin"  werden  auf 
Grund  dieser  Daten  sofort 
lauffähige  Programme  in 
Mallard-Basic  erzeugt,  die 
mit  entsprechenden  Pro¬ 
grammierkenntnissen  wei¬ 
terverarbeitet  werden  kön¬ 
nen!  Somit  kann  "Mac  Lin" 
auch  neben  bereits  vorhan¬ 
dener  StandardscTftware  als 
Ergänzung  für  Aufgaben  ein¬ 
gesetzt  werden,  die  im  Stan¬ 
dard  nicht  enthalten  sind 
bzw.  total  anders  geartet 
sind. 

Info: 

Falco  GmbH 
4415  Albersloh/ 

Senden  hörst  □ 


Analogie 

Das  Analogie-System  stellt 
Anwendern  von  Schneider 
Computern  ein  komplettes 
Meßwerkzeug  zur  Verfü¬ 
gung. 

Analogie  beeinhaltet  vier 
Geräte:  Analog-Scope, 

Speicher-Scope,  Meßwert- 
Schreiber,  1 -Kanal-Digital¬ 
voltmeter. 

Das  System  ist  ausbaufähig, 
der  Hersteller  bietet  zusätz¬ 
lich  mehrere  Erweiterungen 
wie  z.B.  8-Kanal-Vorsatz  an. 
Info: 

Lambert  Digital 
Electronik 

6000  Frankfurt  90  □ 
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Wissenschaft 
und  der  CPC 

Wenn  man  über  Anwendungen  für  den 
Schneider  CPC  nachdenkt,  dann  fallen 
einem  wahrscheinlich  zuerst  Begriffe 
wie  Textprogramme,  Datenverwaltung 
oder  grafische  Spiele  ein. 

Daß  der  CPC  darüber  hinaus  auch  zu 
wissenschaftlich-technischen  Dingen 
eingesetzt  werden  kann,  wissen  aber 
die  wenigsten. 

Anhand  mehrerer  Beispiele  wollen  wir 
Ihnen  zeigen,  zu  welchen  Leistungen 
der  CPC  fähig  ist  und  was  für  Anwen¬ 
dungen  realisierbar  sind. 

Wie  bei  den  "großen”  PC's  setzt  man 
fyeute  die  kommerzielle  EDV  in  vier 
Bereichen  ein. 

Zunächst  ist  die  praktischste  Anwen¬ 
dung  für  einen  Computer  mit  Sicher¬ 
heit  im  kaufmännischen  Bereich.  z.B. 
im  Bankwesen,  zu  sehen.  Hier  wer¬ 
den  hunderttausende  von  Daten  er¬ 
faßt  und  verarbeitet,  Kunden¬ 
stammsätze  verwaltet,  Rechnungen 
geschrieben  und  Beträge  verbucht. 
Das  zweite  Anwendungsgebiet  für 
einen  Rechner  liegt  in  der  Technik, 
wo  Meß-  und  Regelfunktionen  durch 
den  Computer  gesteuert  oder  kontrol¬ 
liert  werden.  Ob  im  Stahlwerk,  in 
einem  Krankenhaus  oder  auch  in  der 
Raumfahrt  -  ohne  rechnergesteuerte 
Systeme  wäre  die  moderne  Technik 
nicht  mehr  denkbar. 

Auch  in  der  grafischen  Industrie  -  als 
dritten  Bereich  -  gewinnt  der  Com¬ 
puter  immer  mehr  an  Bedeutung,  sei 
es  zur  Gestaltung  von  Zeitschriften 
(auch  die  CPC  International)  oder 
zum  Zeichnen  von  Trickfilmen. 

Als  letzter  großer  Bereich  findet  die 
moderne  EDV  in  der  Wissenschaft 
ihren  Platz  -  als  Rechenanlage,  um 
z.B.  mathematische  oder  physikali¬ 
sche  Vorgänge  zu  berechnen. 

Hobby  und  Computer 

Für  den  Hobby-PC-Anwender,  der 
keine  großen  Datenmengen  zu  verar¬ 
beiten  hat  und  normalerweise  keine 
Meß-  und  Regeltechniken  anwendet, 
sind  die  beiden  zuletzt  genannten  Be¬ 
reiche  vielleicht  die  interessantesten. 
Grafische  Spiele  -  Grafik  im  allge¬ 
meinen  -  gehören  schon  seit  langem 
zu  den  beliebtesten  Anwendungen. 
Für  den  wissenschaftlichen  Einsatz 
ihres  PC's  dagegen,  haben  die  mei¬ 
sten  eine  gewisse  Abneigung.  Eigent¬ 
lich  schade,  denn  gerade  durch  diese 


Anwendung  kann  der  PC-Benutzer  einem  CPC  kann  man  ferner  die 
die  höchsten  und  sinnvollsten  Lei-  Grenzen  des  Wachstums  oder  das 
stungen  erbringen  und  auch  Spaß  Wachstum  von  Pflanzen  im  Ver- 
dabei  haben.  hältnis  zur  Lichteinwirkung  errech- 

Wissenschaft  scheint  eine  ideale  An-  nen. 

wendung  für  einen  Computerzu  sein.  Es  gibt  unzählige  von  wissenschaftli- 
Um  wissenschaftliche  Probleme  mit  chen  Fragen,  die  man  mit  Hilfe  eines 
Hilfe  des  Computers  zu  lösen,  muß  Computers  beantworten  könnte  und 
man  auch  kein  Genie  sein.  auch  kann! 

Was  sagte  Einstein  schon:  "Genie  ist 
zu  99%  Schweißarbeit."  Also  auch 

ohne  größere  Vorkenntnisse  und  mit  Am  Beispiel  Astronomie 

ein  wenig  Arbeit,  kann  jeder  Hobby-  - 

PC-ler  interessante  Probleme  lösen  Gehen  wir  mal  ein  Beispiel  "metho- 
und  erbekommt  dadurch  das  Gefühl,  disch"  durch.  Zuerst  die  Fragestel- 
etwas  wirklich  nützliches  mit  seinem  lung:  Wir  wollen  wissen,  wie  die  Pia- 
Rechner  anzufangen.  neten  Merkur.  Venus,  Erde  usw.  in 

Relation  zueinander  stehen  und  zw  ar 
Für  eine  wissenschaftliche  Anwen-  zu  einem  Zeitpunkt,  den  man  selbst 
düng  ihres  CPC's  fehlt  vielen  nur  der  bestimmen  kann. 

"methodische  Ansatz"  oder  mit  ande-  Die  Frage  lautet  also:  Wie  sieht  das 
ren  Worten,  der  richtige  Anfang  zu  Sonnensystem  von  "oben"  aus  -  als 
einer  Arbeit.  Aber  das  ist  im  Prinzip  ob  man  die  Planeten  von  außerhalb 
ganz  leicht.  des  Sonnensystems  betrachten  würde? 

Man  muß  nur  eine  Frage  stellen  und  Kannein  PC-(CPC)-Anwender  ohne 
versuchen,  diese  mit  Hilfe  des  Com-  große  Vorkenntnisse  diese  Frage 
puters  zu  beantworten.  Es  kann  überhaupt  beantworten?  Wir  be- 
irgendeine  beliebige  Frage  sein  -  z.B.  haupten  ja! 

in  welchem  Zusammenhangsteht  der  Wie  kann  man  diese  Frage  lösen? 
Bevölkerungszuwachs  mit  der  Nähr-  Nun.  man  benötigt  im  Prinzip  nur  die 
Stoffproduktion  (ein  geeignetes  Bei-  tägliche  Bewegung  der  Planeten,  um 
spiel  dazu  finden  Sie  übrigens  auch  diese  dann,  von  einer  bekannten 
im  Software-Experiment  von  Mat-  Position  aus,  hochzurechnen, 
thias  Uphoff  in  diesem  Heft).  Mit  Um  eine  wissenschaftliche  Frage  zu 


Foto:  Stättmayer,  Volkssternwarte  München 
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beantworten,  braucht  man  also  einige 
Fakten.  Diese  kann  man  sich  z.B.  aus 
der  örtlichen  Bibliothek  oder  aus  der 
Schule  beschaffen.  Manchmal  reicht 
sogar  der  Atlas  aus,  um  bestimmte 
Informationen  zu  erhalten.  Im  Fol¬ 
genden  zeigen  wir  Ihnen  ein  paar  ein¬ 
fache  Berechnungen. 

Der  Planet  Merkur  z.B.  kreist  um  die 
Sonne,  in  ca.  88  "Erdtagen".  Erdtage 
hört  sich  ein  wenig  wie  Raumschiff 
Enterprise  an.  aber  da  alles  relativ  ist, 
muß  man  ein  Vergleichsobjekt  ha¬ 
ben.  und  das  ist  eben  unser  kleiner 
Planet  Erde. 

Die  Venus  kreist  in  224.7  Erdtagen 
um  die  Sonne,  die  Erde  in  365.25,  der 
Mars  in  687,  Jupiter  in  1 1.9  Erdenjah¬ 
ren.  Saturn  in  29.5.  Uranus  in  84, 
Neptun  in  168.8  und  Pluto  in  248.4  Er¬ 
denjahren.  Das  sind  unsere  einfa¬ 
chen  "Stammdaten",  übrigens  aus 
einem  Atlas  entnommen. 

Wir  wollen  nun  errechnen,  wie  weit 
sich  ein  Planet  pro  Tag  in  Grad  (Alt¬ 
grad)  bewegt.  Nun,  das  ist  relativ  ein¬ 
fach.  Wenn  z.B.  der  Merkur  in  88  Ta¬ 
gen  360  Grad  (einen  kompletten 
Kreis)  zurücklegt,  dann  legt  er  360/88 
Grad  oder  4,0909091  Grad  pro  Tag 
zurück. 

Ähnlich  werden  die  Durchschnitts¬ 
bewegungen  der  Planeten  pro  Tag  be¬ 
rechnet. 

Der  Jupiter  z.B.  bewegt  sich  360  Grad 
in  (dividiert  durch)  11.9  Jahren  mal 
365.25  Erdtage;  also  ca.  0,082825738 
Grad  pro  Tag. 

Sobald  wir  die  Durchschnittsbewe¬ 
gungen  aller  Planeten  proTagerrech- 
net  haben,  benötigen  wir  nur  noch  die 
relativen  Positionen  der  Planeten  für 
einen  bestimmten  Ausgangstag  -  sa¬ 
gen  wir  für  den  1.1.1980  -  und  schon 
können  wir  ihre  Positionen  für  einen 
beliebigen  Tag  errechnen. 

Mit  diesen  "Rohdaten"  sind  wir  in  der 
Lage,  ein  brauchbares  System  auf¬ 
zubauen.  Wir  könnten  aber  auch 
noch  ein  bißchen  mehr  Zeit  investie¬ 
ren  und  die  Sache  wesentlich  genauer 
machen  (Dies  soll  zunächst  nicht 
unser  Ziel,  mehr  eine  Anregung 
sein!). 

Die  errechneten  Durchschnittsbewe¬ 
gungen  pro  Tag  sind  nicht  hun¬ 
dertprozentig  genau.  So  ist  z.B.  die 
Bewegung  von  Merkur  nicht  360/ 
88=4.090909,  sondern  auf  Stunden¬ 
basis  4,092179199  Grad  pro  Tag  (in 
unserem  vereinfachten  Beispiel  las¬ 
sen  sich  Schaltjahre  nur  annähernd 
in  Tage  um  rechnen). 

Die  Planeten  bewegen  sich  auch 
nicht  in  Kreisen,  sondern  in  Ellipsen 
und  sie  "eiern"  in  ihrer  Bahn. 

Das  sind  aber  bereits  Feinheiten,  die 
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uns  bei  unseren  allgemeinen  Überle¬ 
gungen  nicht  so  sehr  interessieren 
sollten.  Falls  Sie  wirklich  tiefer  in  die 
Astronomie  einsteigen  wollen,  müßten 
Sie  diese  Bewegungen  genauer  be¬ 
stimmen.  Die  Berechnung  der  Plane¬ 
tenbewegungen  läßt  sich  durch  fol¬ 
gende  Formel  korrigieren: 
Exzentrizität  mal  Sinus  (Position- 
Grad  der  Perihelion) 

Mehr  darüber,  sowie  die  benötigten 
Daten,  finden  Sie  z.B.  im  Buch  "C’ele- 
stial  Basic"  von  Eric  Burngess.  er¬ 
schienen  im  Sybex  Verlag. 

Aber  wie  gesagt,  das  sind  Feinheiten, 
die  für  unseren  Einstieg  in  die  Ma¬ 
terie  nicht  unbedingt  notwendig  sind. 
Übrigens  ist  es  eine  Frage,  ob  Pluto 
überhaupt  ein  Planet  oder  nur  ein 
"ausgerissener”  Satellit  von  Neptun 
ist.  Vielleicht  können  Sie  dies  einmal 
als  Projekt  untersuchen.  Die  große 
Exzentrizität  der  Pluto-Umlaufbahn 
legt  diese  Überlegung  nahe. 

Auch  eine  interessante  Frage  in  die¬ 
sem  Zusammenhang,  ist  der  folgende 
Effekt,  wenn  sich  Planeten  auf  einer 
Seite  der  Sonne,  wie  an  einer  Perlen¬ 
schnur  aufgereihl,  ein  Stelldichein 
geben.  Über  die  Auswirkungen  der 
sich  ergebenden,  verstärkten  Anzie¬ 
hungskräfte  ist  man  sich  noch  nicht 
im  Klaren.  Versuchen  Sie  doch  ein¬ 
mal.  den  Zeitpunkt  für  dieses  Er¬ 
eignis  zu  berechnen. 

Die  Daten  im  nachfolgenden  Pro¬ 
gramm  reichen  dazu  aus.  Sie  brau¬ 
chen  auch  nicht  weit  zurückzurech¬ 
nen,  denn  dieser  Effekt  trat  in  den 
letzten  zehn  Jahren  auf. 

Wie  Sie  sehen,  kann  man  eine  Menge 
wissenschaftlicher  Fragen  stellen 
und  mit  Hilfe  des  CPC  auch  lösen  - 
wenn  auch  zunächst  nur  ansatz¬ 
weise. 

Aber  zurück  zu  unserer  Darstellung 
des  Sonnensystems  "von  oben"  -  die 
sogenannte  heliozentrische  oder  son¬ 
nenzentrische  Darstellung. 

Dazu  bieten  wir  im  folgenden  eine 
Lösungsmöglichkeit  an.  Vielleicht 
versuchen  Sie  einmal,  eine  andere 
Lösung  mit  den  gleichen  Daten  zu  er¬ 
reichen  oder  fangen  direkt  mit  etwas 
Neuem  an.  z.B.  die  Bahn  des  Halley- 
schen  Kometen  auf  den  Bildschirm  zu 
bringen. 

Natürlich  wird  man  die  Position  des 
Halleyschen  Kometen  nicht  so  exakt 
berechnen  können,  daß  eine  Sonde 
ihn  treffen  könnte  -  aber  darauf 
kommt  es  uns  auch  gar  nicht  an. 

Wir  wollen  hier  keine  technische 
Wissenschaft  betreiben,  sondern 
sinnvolle  Anwendungen  für  unseren 
CPC  suchen.  Wie  in  der  Politik,  ist 
das  Prinzip  manchmal  wichtiger  als 
die  Ergebnisse! 


Foto:  Stättmayer,  Volksstemwarte  München 


Von  Bedeutung  ist  lediglich,  daß  wir 
wissenschaftliche  und  anspruchsvolle 
Fragen  stellen  und  versuchen,  diese 
mit  Hilfe  des  Computers  zu  lösen. 
Entscheidend  ist  für  uns  der  metho¬ 
dische  Ansatz  und  wenn  wir  mit 
unseren  Lösungen  ein  paar  Grad  da¬ 
neben  liegen,  so  mindert  das  keines¬ 
falls  den  Wert  unserer  Arbeit. 

(R.  Kontny/SR) 


Das  Räderwerk  der  Planeten 


1.  Das  erste  und  zweite  Keplerische 
.  Gesetz 

Jahrhundertelang  haben  sich  die 
Astronomen  gestritten,  in  welcher 
Weise  sich  wohl  Sonne  und  Planeten 
bewegen. 

Dreht  sich  nun  die  Sonne  um  die 
Erde  oder  umgekehrt?  Im  Jahre  1986 
sind  wir  nun  in  der  Lage,  dank  unse¬ 
res  CPC  (und  natürlich  auch  der 
Astronomen)  dieser  Diskussion  ein 
Ende  zu  setzen: 

Die  Erde  kreist  tatsächlich  um  die 
Sonne.  Was  Kepler  in  mehreren  Ge¬ 
setzen  formulierte,  können  wir  auf 
unserem  Computer  simulieren. 

Die  Planeten  werden  von  Gravita¬ 
tionskräften  in  ihren  Bahnen  gehal¬ 
ten.  Die  Größe  dieser  Gravitations¬ 
kraft  wird  von  der  Masse  der  Sonne, 
der  Masse  des  Planeten  und  von 
ihrem  gegenseitigen  Abstand  be¬ 
stimmt. 

m(sonne)  *  m(erde) 


f  ist  die  Gravitationskonstante  und 
gilt  für  alle  Körper;  m(sonne)  und 
m(erde)  sind  die  Massen  von  Sonne 
und  Erde,  r  ihr  gegenseitiger  Ab¬ 
stand. 
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Bekanntlich  hat  eine  Kraft  F  auf 
einen  Körper  mit  der  Masse  m  immer 
eine  Beschleunigung  a  mit  a  =  F/m 
zur  Folge.  Die  Beschleunigung  der 
Erde  beträgt 

Fg  m(sonne)  f* 
a(er  e)  m(erde)  r  *  r 


Um  die  Bahn  zu  berechnen,  spalten 
wir  die  Beschleunigung  a(erde)  in 
zwei  Richtungen  ax  und  ay  auf.  Dies 
geschieht  über  eine  Verhältnisrech¬ 
nung: 


sx  ist  die  x-Komponente  des  Abstan¬ 
des  Erde-Sonne. 

sy  ist  die  y-Komponente  des  Abstan¬ 
des  Erde-Sonne. 

Die  Beschleunigung  a(erde)  wirkt 
längs  der  Linie  Sonne-Erde. 

Nach  Zeichnung  gilt: 

ax  sx 


a(erde) 


r 


Nach  ax  aufgelöst  und  a(erde)  einge¬ 
setzt  erhalten  wir: 

m(sonne)  sx 

ax  =  -f  * - * - 

r  *  r  r 


analog  dazu 

m(sonne)  sy 


Das  Minuszeichen  benötigen  wir. 
weil  die  Kraft  auf  die  Sonne  zeigt. 


Mit  diesen  wenigen  physikalischen 
Grundlagen  kann  das  Programm  be¬ 
reits  erstellt  werden  (siehe  Listing  2). 

Zeile  200: 

Gravitationskonstante  f  und  m(sonne) 
verändern  sich  nie.  Deshalb  können 
wir  diese  zu  einer  neuen  Konstanten  c 
zusammenfassen. 

Zeile  210: 

Ausgangsposition  der  Erde  bei  Be¬ 
ginn  der  Simulation  (sx  ist  identisch 
mit  der  Entfernung  der  Erde  zur 
Sonne). 

Zeile  220: 

Ausgangsgeschwindigkeit  der  Erde 
bei  Beginn  der  Simulation. 

Zeile  230: 

Jeweils  nach  t=3600  Sekunden  wird 
die  Position  und  die  Geschwindigkeit 
der  Erde  berechnet. 

Zeile  270: 

Die  Bahnkurve  soll  für  ein  ganzes 
Jahr  ermittelt  werden. 

Zeile  290: 

Aus  sx  und  sy  kann  man  über  den 
Satz  des  Pythagoras  den  Abstand  zur 
Sonne  berechnen. 

Zeile  300: 

Berechnung  der  Beschleunigung. 
Zeile  3 10+320: 

Nach  dem  Weg-Zeit-Gesetz  für  eine 
Bewegung  mit  konstanter  Be¬ 
schleunigung  (für  eine  Stunde  kön¬ 
nen  wir  die  Beschleunigung  als  kon¬ 
stant  betrachten)  wird  die  neue 
Position  der  Erde  ermittelt. 

Zeile  330: 

Nach  dem  Geschwindigkeits-Zeit- 
Gesetz  für  eine  Bewegung  mit  kon¬ 
stanter  Beschleunigung  wird  die  neue 
Geschwindigkeit  nach  einer  Stunde 
berechnet. 

Zeile  340: 

Hier  wird  die  Position  der  Erde  maß¬ 


stabsgetreu  auf  dem  Bildschirm  aus¬ 
gegeben. 

Wenn  Sie  das  Programm  laufen  las¬ 
sen,  müssen  Sie  sich  etwas  Zeit  neh¬ 
men.  Für  ein  ganzes  Jahr  muß  die 
Schleife  im  Programm  immerhin 
24*365  mal  durchlaufen  werden. Auf 
dem  Bildschirm  entsteht  eine  schwach 
elliptische  Bahn,  denn  alle  Planeten 
bewegen  sich  auf  elliptischen  Bah¬ 
nen  um  die  Sonne.  Verändern  Sie 
doch  einmal  vy  in  Zeile  220  auf20000, 
und  es  entsteht  eine  Ellipse,  wie  sie 
durch  das  erste  Keplersche  Gesetz 
postuliert  wird. 

Die  Planeten  bewegen  sich  auf  El¬ 
lipsen,  in  deren  einem  Brennpunkt 
die  Sonne  steht. 

Spielen  Sie  ruhig  mit  den  Parametern 
sx  und  vy.  Wenn  Sie  es  geschickt  tun. 
können  Sie  erreichen,  daß  die  Erde 
im  Weltraum  verschwindet  oder  auf 
die  Sonne  fällt. 

Mit  Hilfe  der  Zeile  370  kann  das  2. 
Keplersche  Gesetz  veranschaulicht 
werden: 

Der  von  der  Sonne  zum  Planeten  ge¬ 
zogene  Fahrstrahl  überstreicht  in 
gleicher  Zeit  gleiche  Flächen. 


2.  Die  Marsschleifen 


Noch  bevor  die  Entscheidung  gefal¬ 
len  war.  ob  nun  die  Erde  der  Mittel¬ 
punkt  des  Planetensystems  sei  oder 
die  Sonne,  brachte  das  Verhalten  eini¬ 
ger  Planeten  die  Köpfe  der  Astrono¬ 
men  zum  Rauchen.  Man  beobach¬ 
tete.  wie  der  Mars  vor  dem  Sternen- 
hintergrund  gemächlich  seine  Wege 
zog...,  um  dann  plötzlich  stehen  zu 
bleiben  und  in  die  entgegengesetzte 
Richtung  zu  ziehen,  alsdann  die 
Richtung  nochmals  zu  ändern  und  in 


18  CRC  9 '86 


.  . . in  MiiiiM  um  m  ii  ii  i  ii  ii  ii  um  1 1 1  mini  m  ii  ii  ii  mim  ii  in  m  ii  imi  ii  im  ii  um  m  iinin  um  i  in  tiiiiiimi  um  iiiiii  in  ii  • 


Bericht 


gehabter  Weise  weiter  zu  ziehen,  als 
sei  nichts  geschehen. 

Um  dem  Geheimnis  dieses  Vagabun¬ 
den  auf  die  Spur  zu  kommen,  rech¬ 
nen  wir  einfach  nach,  in  welcher 
Position  der  Mars  von  der  Erde  aus 
im  Verlauf  von  drei  Jahren  gesehen 
wird. 

Vereinfacht  nehmen  wir  dabei  an, 
daß  die  Bahnen  von  Mars  und  Erde 
Kreise  um  die  Sonne  sind. 

Im  Programm  Marsschleife  werden 
in  den  Zeilen  550  -  590  die  Bahnen 


von  Mars  und  Erde  um  die  Sonne  ge¬ 
zeichnet.  In  der  Zeile  630  werden 
noch  die  Relativkoordinaten  von 
Mars  bezüglich  der  Erde  gezeichnet. 
Läßt  man  nun  das  Programm  laufen, 
sosieht  man,  wiesich  der  Mars  im  lin¬ 
ken  Diagramm  auf  dem  äußeren 
Kreis  langsamer  bewegt  als  die  Erde 
auf  dem  inneren  Kreis. 

Immer  dann,  wenn  die  Erde  den 
Mars  überholt,  kommt  es  zu  der  Er¬ 
scheinung,  daß  sich  der  Mars  schein¬ 
bar  rückwärts  bewegt.  Dies  wird  auf 


der  rechten  Seite  des  Diagramms  ver¬ 
deutlicht.  Inmitten  dieses  Diagramms 
steht  nun  die  Erde  still  und  um  sie 
herum  werden  Abstand  und  Richtung 
von  Mars  aufgetragen. 

Ein  mechanisches  Modell  für  dieses 
Phänomen  ist  übrigens  im  Deutschen 
Museum  in  München  aufgebaui. 
Nun  haben  wir  mit  einfachen  Pro¬ 
grammen  zwei  der  vielen  Geheim¬ 
nisse  des  Weltalls  deuten  können. 
Wozu  so  ein  Computer  doch  alles  gut 
ist,  nicht?  (Dr.  Rüter  Frey/SR) 


Listing  1 


planet-f Inder 
(c)  Rainer  Kontny 


Main  Control 


100  GOSUB  1000:  '  technical  Start 
110  ' 

200  WHILE  progend  =  0 
210  ' 


300  GOSUB  2000:  '  display  rnenu 
310  ' 

400  GOSUB  3000:  '  display  pl.  circle 
410  * 

500  GOSUB  4000:  '  display  pl.  data 
510  ' 

600  GOSUB  5000:  '  display  restart 
610  ' 

700  WEND: '  restart  -  yes 
710  ' 

800  GOTO  20000:  'restart  -  no  • ‘break* • 

810  ' 

930  ' 

980  '  Unterprogramme 

990  ' _ 

1000  'technical  start 
1010  ' 

1020  DIM  ptag( 1 2 ) 

1030  FOR  p  =  1  TO  12 
1040  READ  ptag(p) 

1050  NEXT  p 

1060  DATA  31 ,28,31 ,30,31 ,30,31 ,31  ,30,31 ,30 
,31 

1070  ' 

1080  DEF  FNf rac (zahl ) »ROUND  ((zahl) -FIX  (z 
ahl),6) 

1085  ' 

1090  DIM  pname? ( 9 ) 

1100  FOR  p  .  1  TO  9 
1110  READ  pname$(p) 

1120  NEXT  p 

1130  DATA  "Merkur(m)", "Venus  "/'Erde 

"/'Mars  (M)  "/'Jupiter  "/'Saturn  ","U 
ranus  "/'Neptun  "/'Pluto  " 

1135  ' 

1140  DIM  position ( 9 ) : '  planet  Position  on 

1980.1.1 

1150  FOR  p  -  1  TO  9 
1160  READ  position(p) 

1170  NEXT  p 

1180  DATA  242.5352528,356.3298392,99.44113 
707,131 .3867597,150.4441072 
1190  DATA  170.8914991,231.3638537,259.8523 
031 ,204.0724906 
1200  ' 

1210  DIM  velocity( 9 ) : '  average  planet 
vel ocity 

1220  FOR  p  =  1  TO  9 
1230  READ  velocity  (p) 

1240  NEXT  p 
1250  ' 

1260  DATA  4.092179199,1.6021046,0.98560200 
7,0.524027203 

1270  DATA  0.083078881,0.033460735,0.011745 
630,0.005958761 ,0.003953409 
1280  ' 


(983) 

1117) 

[476  1 

[1906] 

1117) 

[1386] 

(29651 

(117] 

11677] 

[117] 

[1645] 

[117] 

[  1 91 3  J 

(117] 

[2134] 

1117] 

[2020] 

[1171 

13084 ] 

[117] 

(341  ] 

M17  J 

[1349] 

(1171 

1117] 

1916] 

[2965] 

[983  1 

1117] 

[743] 

[772] 

13661 

1364) 

12039] 

[117] 
(2931  ] 

[117] 

(513] 

[627] 

[1002] 

[364] 

(8584  1 


[117] 

[2148] 

[6271 
11387] 
[364  ] 
[2330] 

12450] 

[117] 

12389) 

[627] 

[1090] 

(364) 

[117] 

[2497] 

(2921  J 


1300  '  display  distances 
1310  DIM  distance(9) 

1320  FOR  p  »  1  TO  9 
1330  READ  distance  (p) 

1340  NEXT  p 
1350  ' 

1360  DATA  30,50,70,90,110,130,150,170,190 
1370  ' 

1380  progend  =  0 
1390  ’ 

1400  DEG 

1500  '  display  positions 
1510  xs  1 :  y  =  2 
1520  DIM  dpos (2,9) 

1530  FOR  a  =  1  TO  2 
1540  FOR  p  =  1  TO  9 
1550  dpos(a,p)  »  -10 
1560  NEXT  p 
1570  NEXT  a 
1580  ' 

1600  'planet  Symbol 
1610  ' 

1620  DIM  psymbol? ( 9 ) 

1630  FOR  p  =  1  TO  9 
1640  READ  psymbol$ ( p) 

1650  NEXT 
1660  ' 

1670  DATA  "m","V","E","M","j","S","U","N", 

tipii 

1680  ' 

1690  'färben  fuer  farbmonitor 
1700  'INK  0,11 : INK  1,26 
1710  'BORDER  11 
1720  'PEN  1: PAPER  0 
1730  ' 

1900  RETURN:  'end  technical  start 
1910  ' 

2000  '  display  menu 
2010  MODE  2 

2020  PRINT  TAB ( 28 )  "Planet-Finder  " 

2030  PRINT  TAB (60)  "  (c)  R.  Kontny  " 

2040  PRINT  STRING? (80,"»") 

2050  ' 

2060  PRINT 

2070  INPUT  "Dieses  Programm  berechnet  die 
relativen  Positionen  der  Planeten  im  Sonne 
nsystem. Bitte  geben  Sie  ein  Anfangsdatum  ( 
TT ,MM, JJ )  ein" ;stag, smon, sjah 
2080  ' 

2090  PRINT 

2100  IF  sj  ah  »  2000  OR  sjah  <  1900  THEN  PR 
INT  "Jahr  incorrect":  PRINT: GOTO  2070 
2110  IF  smon  >  12  OR  smon  <  1  THEN  PRINT"M 
onat  inCorrect":  PRINT:GOTO  2070 
2120  IF  FNf rac (sj ah/4)  =  0  THEN  ptag(2)  » 
ptag ( 2 )  ♦  1 

2130  IF  stag  <  1  OR  stag  >  ptag (smon)  THEN 
PRINT  "Tag  incorrect": PRINT:  GOTO  2070 
2140  ' 

2150  PRINT 

2200  PRINT  "Sie  koennen  einen  Wiederholung 
sfaktor  und  einen  Beobachtung sinterval  bes 
timmen.  Vorschlag:  10,30  (  10  mal  einen  In 
terval  von  30  Tagen  darstellen). 

2210  INPUT  "Bitte  geben  Sie  den  Wiederholu 
ngsfaktor  und  das  Interval  der  Beobachtung 
ein  period, interval 

2900  RETURN 
2910  ' 


11058] 

[1240] 

1627] 

(1343) 

[364] 

1117] 

(18351 

[117] 

(541  J 

[117] 

[133] 

(1746  ] 

[857] 

11102] 

[770] 

1627] 

[288] 

1364] 

1383) 

[117] 

(877) 

[117] 

[  360  J 

1627] 

117871 

(350) 

(117) 

(1781  1 

1117] 

(2217) 

[856] 

(602) 

(735  J 

(117) 

(2106) 

[117] 

[852] 

(513) 

(9051 

[1930] 

(1468) 

[117] 

(361  ] 

(13277) 


1117] 
1361  ) 
(4437] 

[5497] 

[2579] 

(6044  ] 

(117) 
(361  ] 
114150] 


[7541  ] 
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'Umschlaggrafik:  Das  Himmelsjahr  1986".  mit  freundlicher  Genehmigung  der  Franckh  ‘sehen  Uerlagshandlung  W.  Keller  &  Co. ,  Stuttgart.  Copyright  Conmd  Hollerer. 


3000  '  Display  pl .  circle 
3010  CLS 
3120  ' 

3130  ORIGIN  100,0 
3140  ' 

3150  FOR  p  =  1  TO  360 
3160  PLOT  320,200 

3170  PLOT  320  +  198  *COS( p), 200  +  1  98 • SIN  ( p) 
3180  NEXT 
3190  ' 

32 Ö0  TAG 

3210  MOVE  320,208 
3220  PRINT  CHR$ (231 ); 

3230  TAGOFF 
3240  ' 

3350  ' 

3900  RETURN 
3910  ' 

4000  1  display  pl .  data 
4010  ' 

4020  ' 

4030  ' 

4050  GOSUB  10000:  'calculate  day/year 
4060  ' 

4070  ' 

4080  WIIILE  period  >  0 
4090  ' 

4100  dloc  »  4 

4110  GOSUB  11000:  'calculate  act.  date 
4120  ' 

4130  GOSUB  12000:  'display  act.  date 
4140  ' 

4150  FOR  planet  =  1  TO  9 
4160  ' 

4170  GOSUB  13000:  'calculate  pl. Position 
4180  ' 

4190  GOSUB  14000:  'display  pl.  position 
4200  ' 

4210  NEXT  planet 
4220  ' 

4230  FOR  t  =»  1  TO  10000 
4240  NEXT  t 
4290  ’ 

4300  period  =  period  -  1 
4310  ' 


1988] 
191  1 
1117  ) 
13041 
[1171 
[7291 
[621  1 
[2020  1 
[3501 
(1171 
13181 
16621 
[1150  1 
(1066  1 
[1171 
(117) 
(5551 
11171 
[931  1 

(117) 

(117) 

(117) 

(28841 

(1171 

(1171 

[13321 

(1171 

(2071 

(2509  1 

[1171 

(1631  1 

[1171 

1990) 

[1171 

(2098) 

[1171 

(1180) 

(1171 

1543) 

[1171 

(1168) 

13601 

11171 

(996) 

[117] 


4320  jahrtag  =  jahrtag  +  interval  (1249) 

4330  anztage  =  anztage  ♦  interval  [33181 

4340  '  [1171 

4350  GOSUB  15000:'  calculate  end  of  year  (1962) 

4360  '  (1171 

4370  WEND  [390 J 

4380  '  (1171 

4390  '  (117) 

4400  ’  [1171 

4900  RETURN  (555) 

5000  '  display  restart  11006) 

5010  '  (1171 

5020  '  (1171 

5030  CLS  (91 1 

5040  INPUT  "  Soll  ein  neuer  Lauf  gestartet  [50881 
werden  j/n";  resp$ 

5050  '  (117) 

5060  '  (117) 

5070  IF  resp$  =  "j"  OR  resp$  =  "J"  THEN  pr  12610) 
ogend  =  0  ELSE  progend  =  1 

5080  '  (1171 

5100  '  clear  positions  1 1 430  I 

5130  FOR  a  =  1  TO  2  [7701 

5140  FOR  p  =  1  TO  9  (627) 

5150  dpos(a,p)  =  -10  [288) 

5160  NEXT  p  (364) 

5170  NEXT  a  13831 

5180  '  (117J 

5900  RETURN  (555) 

5910  '  (1171 

10000  '  calculate  day/year  [17591 

10010  intag=stag:inmon=smon:injah=»sjah  13022) 

10020  asjah  =  injah  -  1  (329) 

10030  asjah  =  FIX(asjah  •  365.25)  +  428  (5691 

10040  injah  »  sjah  (7491 

10050  IF  inmon  >  2  THEN  GOTO  10090  (899) 

10060  injah  =  injah  -1  (1182) 

10070  inmon  =  inmon  +12  [9331 

10080  '  [117) 

10090  inmon  =  inmon  ♦  1  1907) 

10100  anztage  =  FIX(injah  *  365.25)+  FIX(i  (2505) 
runon  •  30.6)  +  intag 

10110  jahrtag  =  anztage  -  asjah  (16011 

10120  *  [1171 

10130  anztage  =  anztage  -  723258:  '  date  f  (34821 

or  1980.1.1 


\] 

k; 

s 

i 

t 


i 


i 

y 
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10140  ’  M17J 

.  10900  RETURN  1555) 

10910  *  [117} 

11000  ’  calculate  act.  date  [16421 

11010  counttag  =0  [11401 

11020  countmon  =0  [11191 

11030  WH ILE  jahrtag  >  counttag  (19671 

11040  countmon  =  countmon  ♦  1  (17631 

11050  counttag  =  counttag+ptag ( countmon )  [33101 

11060  WEND  (3901 

11070  dismon  =  countmon  [8571 

11080  distag  =  jahrtag  -  (counttag-ptag(co  [26161 
untmon) ) 

11900  RETURN  [5551 

11910  •  11171 

12000  *  display  act.  date  [9381 

12010  1  [117  1 

12020  GOSUB  11000:  ’  calculate  day  [17281 

12030  1  (1  171 

12040  disjah  =  sjah  [6431 

12050  ’  [1171 

12060  LOCATE  1,1  (61 1 1 

12070  PRINT  STRING$(18,"  " ) :  ’clear  displa  (23961 

y 

12080  ’  [1171 

12100  LOCATE  1,1  [611 1 

12110  1  [1171 

12120  PRINT  distag;". " ;dismon ; " . " ;disjah  (28401 

12130  1  [1171 

12140  PRINT  STRINGS (15,"=")  [15351 

12150  *  [1171 

12900  RETURN  (5551 

12910  ’  [1171 

13000  '  calculate 'pl. Position  [2667] 

13010  1  [1171 

13020  '  [1171 

13030  '  [1171 

13060  planloc  =  anztage  *  velocity (planet )  (10301 
+  position ( planet ) 

13070  ’  [1171 

13080  planloc  =  FNf rac (planloc/360 ) *360  [13861 

13090  '  [1171 

13100  IF  planloc  <0  THEN  planloc  =  planloc  [2275] 

+  360 

13110  '  [1171 

13900  RETURN  1555] 

13910  '  [1171 

14000  '  display  pl.  position  [1374 J 

14010  '  [117] 

14020  '  (1171 

14100  PRINT  CHR$(23);CHR$(1 )  [1978] 

14110  '  [1171 

14120  TAG  [318] 

14130  '  (1171 

14140  MOVE  dpos (x, planet ) ,dpos(y »planet )  [28001 

14150  PRINT  psymbolS (planet ) ;  [9251 

14160  '  [1171 

14170  dpos (x, planet )  =  320+distance(planet  [26671 
) *COS( planloc ) 

14180  1  [117] 

14190  dpos (y »planet )  =  200+distance ( planet  130131 
) *SIN( planloc ) 

14200  '  [1171 

14210  MOVE  dpos (x, planet ) ,dpos(y, planet )  [28001 

14220  PRINT  psymbolS (planet);  [9251 

14230  '  [117] 

14240  '  [1171 

14250  TAGOFF  [10661 

14260  ’  (1171 

14270  PRINT  CHRS ( 23 ) ; CHR$ ( 0 )  [1984] 

14280  ’  [117] 

14290  dloc  =  dloc  +  2  [7411 

14300  '  [1171 

14310  LOCATE  1 »dloc  [1006] 

14320  '  [1171 

14330  PRINT  pnameS (planet ); INT (planloc) ;"  126641 

14340  '  [117] 

14900  RETURN  (5551 

14910  '  [1171 

15000  '  calculate  end  of  year  [23071 

15010  '  [117] 

15020  '  [1171 

15060  IF  jahrtag  <  338  +  ptag(2)  THEN  GOT  (10951 

O  15900 

15070  '  [117] 

15080  sjah  =  sjah  +  1  [8701 

15090  '  [1171 

15100  ptag( 2 )  =  28  (371  1 


15110  *  (1171 

15120  IF  FNf rac ( sjah/4 )  =  0  THEN  ptag ( 2 )  =  121691 
29 

15130  '  [1171 

15140  jahrtag  =  jahrtag  -  337-ptag(2)  (18381 

15150  '  [1171 

15160  '  check  for  interval  >  year  [1553] 

15170  ’  [117] 

15180  GOTO  15060  [419 1 

15190  '  1117) 

15200  '  (1171 

15900  RETURN  [5551 

15910  '  M171 

20000  1  end  of  program  19671 

20100  '  1117] 

20200  CLS: PRINT  " • *  * • Programmende’ • • •"  [2439  1 

20210  *  [117] 

20300  END  [1101 


Listing  2 


100  -  ****##**##**#**#**##*#**** 
110  '  Gravitation 
120  '  ************************** 
130  ** 

140  CLS 
150  ' 

160  '  Fe6t legen  der  Konstanten 
170  ' 

180  f  =  6.67E-11 

190  msonne  =  1.99E+30 

200  c=f  * msonne 

210  sx=l. 496E+11: sy=0 

220  vx=0: vy=29800 

230  t=3600: jahr=24*365:zeit=0 

240  ' 

250  'Bestimmung  der  Bahnkurve 
260  ' 

270  VHILB  zeit  <=jahr 
280  ' 

290  r=SQR<sx*sx+sy*sy> : b=r*r*r 
300  ax=-c*sx/b: ay=-c*sy/b 
310  sx=sx+vx*t+0. 5*ax*t*t 
320  sy=sy+vy*t+0. 5*ay*t*t 
330  vx=vx+ax*t : vy=vy+ay*t 
340  x*sx/lE+09: y=sy/lE+09 
350  PLOT  300+x, 200+y 
360  zeit  =zeit+l 


[9781 

[1049] 

[978] 

[117] 

[91] 

[117] 

(1231] 

[117] 

[535] 

[13521 

[718] 

[1170] 

[1521] 

[1539] 

[1171 

[1396] 

[117] 

[1618] 

[117] 

[1778] 

[1036) 

[1267] 

[1354] 

[1477] 

[2816] 

[602J 

[1945] 


370  IF  zeit=l  OR  zeit=24*10  OR  zeit=24*180  [3095] 


OR  zeit=24*190  THEN  DRAV  300,200 
380  VBND  (390] 

390  END  [110) 


Listing  3 


400  '*****************************  [11431 

410  'Karsschleife  [1849] 

420  ******************************  [11431 

430  CLS  (911 

440  '  [117] 

450  'Radius  der  Mars-bzw. Erdumlauf bahn  in  [2900] 
Millionen  Kilometern 

460  '  (117] 

470  rmars=227.  94:  rerde=149. 6  [1376] 

480  '  [117] 

490  'Umlaufdauer  von  Mars  und  Erde  um  die  [2138] 
Sonne  in  Jahren 

500  '  [117] 

510  TMARS= 1.881: TERDB= 1  [1919] 

520  '  [117] 

530  'KREISBAHNEN  von  Mars  und  Erde  um  die  [3760] 
Sonne  innerhalb  von  drei  Jahren 

540  '  [117] 

550  FOR  T=0  TO  3  STEP  0.015  [1088] 

560  xerde=rerde*COS(2*PI*t/terde> : yerde=re  [4042] 
rde*SIN(2*PI*t/terde > 

570  xmars=rmars*C0S<2*PI*t/tmar6)  :  ymars=rm  [2863] 
ars*SIN(2*PI*t/tmars> 

580  PLOT  200+xerde/l . 3 , 200+yerde/l . 3  [1893) 

590  PLOT  200+xmars/l . 3 , 200+ymars/l . 3  [2046) 

600  '  (1171 

610  'Relativkoordinaten  Erde-Mars  [3383] 

620  '  [1171 

630  PLOT  400+(xmars-xerde>/1.8,220+<ymars-  [3408] 
yerde)/l . 8 

640  NEXT  t  (360) 

650  END  [110] 
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JOYCE 


Der  Wert  eines  Computers  entspricht 
nicht  nur  dem  Geld,  welches  man  heim 
Kauf  desselben  auf  den  Tisch  legen 
muß  -  vielmehr  bestimmt  die  für  den 
Computer  verfügbare  Software  den 
wahren  Wert  des  Gerätes. 

Zwar  verfügt  der  Joyce  durch  die  Ver¬ 
wendung  des  Betriebssystems  CP/M- 
Plus  eigentlich  über  einen  großen 
Software-Pool,  jedoch  bereitet  bei 
manchen  Programmen  die  Installation 
auf  dem  Joyce  für  Laien  schier  unüber¬ 
windbare  Probleme. 

Mittlerweile  sind  jedoch  schon  viele 
dieser  Programme  in  lauffähigen 
Versionen  für  den  Joyce  zu  erhalten 
und  eine  nicht  viel  geringere  Zahl  von 
Programmen  speziell  für  den  Joyce 
entwickelt  worden. 

Die  folgende  Übersicht  soll  die 
Orientierung  im  aktuellen  Programm¬ 
angebot  erleichtern,  ist  aber  bestim  mt 
nicht  vollständig,  da  zu  dem  Zeit¬ 
punkt,  an  dem  Sie  dies  lesen,  be¬ 
stimmt  an  weiteren  Programmen  ge¬ 
arbeitet  wird  bzw.  von  uns  das  eine 
oder  andere  Programm  leider  überse¬ 
hen  worden.  Ebenso  kann  ein 
Programm  auch  noch  weitere  Be¬ 
zugsquellen  aufweisen.  (MC) 


1 :  ABD-C’omputer  Stuttgart. 

Zettachring  12,  7000  Stuttgart  80, 

Telefon:  0711/7150038 
2:  ALGO  A.H.W.  Gosch  olIG., 

Grindelallee  138, 

2000  Hamburg  13,  Tel.:  040/446301 
3:  BYTE  ME  Computersysteme, 

Wilhelmstr.  7,  5240  Betzdorf, 

Telefon:  02741/23537 
4:  ZS-Soft,  Postfach  2361, 

8240  Berchtesgaden, 

Telefon:  08652/63061 
5:  Star  Division,  Ülzener  Str.  12, 

2120  Lüneburg.  Tel.:  04131/402550 
6:  Schneider  AG,  Postfach  120, 

8939  Türkheim.  Tel.:  08245/51-0 
7:  Markt  &  Technik,  Hans-Pinsel-Str.  2, 

8013  Haar,  Telefon:  089/4613-0 
8:  Schneider  Data,  Rindermarkt  8, 

8050  Freising.  Telefon:  08161/2877 
9:  Gruse  Elektronik  GmbH,  Stieglitzweg  1. 

3300  Braunschweig,  Telefon:  0531/352300 
10:  Weeske  Computer-Elektronik, 

Potsdamer  Ring  10.  7150  Backnang. 
Telefon:  07191/1528-19 
11:  Van  der  Zalm  Software,  Schieferstätte, 
2949  Wangerland  3,  Telefon:  04461/5524 
12:  Dr.  Jürgen  Fiedler.  Am  Tönnessenkreuz  5. 

5300  Bonn  1,  Tel.:  0228/649240 
13:  Computer- Studio  Offenbach. 

KI.  Biergrund  17,  6050  Offenbach, 

Telefon:  069/810613 
14:  FALCO  Vertriebs-  u.  Beratungs- 
GmbH,  Ahrenhorst  8a, 

4415  Albersloh,  Telefon:  02535/8292 
15:  Werder,  Braunfelder  Ch.  215. 

2000  Hamburg  71,  Telefon:  6411779 
16:  Integral  Hydraulik, 

Am  Hochofen  108, 

4000  Düsseldorfll, 

Telefon:  0211/5065-213 
17:  Hcimsoeth-Software,  Fraunhoferstr.  13, 
8000  München  5,  Tel.:  089/264060 
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Programmübersicht: 


Programm: 

Anwendung: 

ca. Preis  UM: 

Vert:  Besonderheiten: 

Anwendungen: 

ABD-Rcchnungsschreibung 

Rechnungserstellung 

248.- 

i 

autom  Erfassen  der  Stammdaten 

ALGO-Rhythmus  I 

Ad  ress-/ 
BrielVerwaltung 

149,- 

2 

” 

ALGO-Kart  1 

Datenverwaltung 

79.- 

2 

freies  Datenformat 

ALGO-Haus  1 

H  a  u  s-/W<  >  h  n  u  n  gs- 
verwallung 

998- 

2 

- 

ALGO-Handwerk 

Angebotserstellung 

998- 

2 

Vor-/Nachkalkul .  autom  Rechnungserst 

Adressverwaltung 

- 

128,- 

3 

- 

Auftr -Bearbeitung  BM5  0 

umfangr 

448,- 

3 

Kunden-.  Artikel-,  Lieferantenverwaltung. 

Geschäflspaket 

Angebote.  Umsatz.  Statistik 

Business  Pack 

Integrierte  Software 

199.- 

4 

Adressen,  Lager.  Fakturierung 

Business-Star 

298,- 

5 

Fakturierung,  Lager,  Mahn  wesen, 
Datenverwaltung.  Dienste 

Com  Pack 

798.- 

6 

Lager,  Auftrag,  Fakturierung, 

Finanzbuch  hallung 

Dalei-Slar 

Datenverwaltung 

98.- 

5 

- 

dBase  II 

Datenbanksystem 

199- 

7 

- 

DR  Draw 

Zeichenprogramm 

199.50 

8 

Schaubilder,  Übersichten,  techn 

Zeichnungen  etc. 

DR  Graph 

Ge$chäftsgrafik 

199.50 

8 

gral.  Darstellung  von  Daten  jeder  Art.  z  B 
von  Supercalc 

Easy  Takt 

Fakturierung 

500.- 

9 

- 

Hasyfibu 

Finanzbuchhaltung 

500.- 

9 

- 

Fa  k  tan 

Geschäflspaket 

198.- 

10 

Kunden-ZLieferunlcnvcru  .  Angebot. 
Rechnung,  Mahnung.  Texte  etc 

Fakturierung 

dito 

94.- 

7 

- 

Fibu  BM  1  0/T 

Finanzbuchhallung 

398.- 

3 

- 

Fibuking 

136.- 

11 

- 

Fibu-Star  plus 

298.- 

5 

- 

Finanzbuchhaltung 

94.- 

7 

- 

Finanzmathematik 

Kalkulation 

95.- 

12 

Zinseszins.  Wcchscldiskontiei  ung. 
Ahschieihung,  Renlenrechiumg  etc 

Finanzwunder  Mercator 

Finanzbuchhallung 

477.- 

13 

- 

JOYCE-Mailing-  System 

Paket 

189.- 

5 

Datei-Slar  u  Suu-Mail 

Lohnwunder  Pecunia 

Lohn-/Gehalls- 

abrechnung 

577.- 

13 

- 

Mac  Lin 

Programmgenerator 

475.- 

14 

Programmierung  von  Anwendungen  im 
Dialog,  erzeugt  Mullard-Basic-Progiainme 

Mica 

CAD-Piögramm 

198.- 

16 

Konstruktionshilfsmittel.  S\  mhol- 
ßibliotheken,  maßgerecht 

Multiplan 

Tabellen  kalkulation 

199.- 

7 

- 

Profi  Ra  m 

Integrierte  Software 

178- 

11 

Kunden,  Lager.  Fakturierung 

Prompt 

Dateiverwaltiirig 

69.- 

6 

tnil  Kalkulation 

Prompt-Druck 

Druck-Programm 

49.- 

6 

Texte  mit  Prompt  verbinden:  Serienbriele  etc 

Quick-Bill 

Angebotserstellung 

168- 

15 

Angebot,  Rechnung,  Abiechnung 

Quick-Data 

univ  Geschäfts¬ 
datenbank 

228- 

15 

- 

Quick-Name 

Adressverwaltung 

128- 

15 

- 

RH-Dat 

Datenverwaltung 

89- 

16 

- 

Star-Base 

Datenbanksystem 

198- 

5 

- 

Star-Mail 

Druck-Programm 

98,- 

5 

verbindet  LocoScript- Texte  mit  Dalei-Star- 
Daten.  Fremddruckerund  DFÜ  möglich 

Statisti  c-Star 

Statistiken 

98.- 

5 

Datenanalyse,  graf.  Darstellung 

SuperCalc2 

Tabellen  kalkulation 

198,- 

6 

engl  Anleitung! 

Turbo  Ad  ress 

Adress-/Brief- 

verwaltung 

149,- 

16 

- 

Wordstar  3.0 

Textverarbeitung 

199.- 

7 

mit  MailMerge 

Programmiersprachen  und  -Hilfen: 

CBASIC-Compiler 

Basic-Dialckt 

174- 

7 

mit  GSX  Grafikprogrammierung  irtögl . 
modulare  Übersetzung 

C-Cotnpiler 

189.- 

8 

- 

Nevada  Cobol 

kaufm 

Programmiersprache 

189- 

8 

Nevada  Fortran 

Wissenschafll  techn 
Programm 

189.- 

8 

Pascal/MT+ 

174- 

7 

Compiler,  Linker,  modulare  Übersetzung 

Small-C 

148.- 

7 

Compiler.  Linker,  Assembler.  Editor.  Hilfen 

Turbo-Pascal 

225,- 

7 

sehr  schneller  Compiler 

Turbo-Toolbox 

für  Turbo-Pascal 

225.- 

7 

P  rogra  m  m-B  i  b  1  iot  he  k 

Turbo-Tutor 

fürTurbo-Pascal 

104- 

7 

Lernbeispiele 

Turbo-Lader-Grundpaket 

für  Turbo-Pascal 

138.- 

7 

Programm-Bibliothek:  mathem  Funktionen. 
Diskettenroutinen.  Bitmanipulation  etc. 

Turbo-Lader-Science 

fürTurbo-Pascal 

189- 

7 

Statistik.  Betriebswirtschaft.  Medizin 

Turbo-Data  Base 

fürTurbo-Pascal 

225.- 

17 

Programm-Bibliothek:  Dateiverwallung 

Spiele: 

Cyrus  II 

3D-Schach 

128,- 

6 

3D-Clock-Chess 

3D-Schach 

69- 

4 

i 


der  Typenraddrucker 
für  alle 

Schneider  Computer 


★  hat  das  richtige  Schriftbild  für  Anspruchsvolle 

★  schreibt  schnell  (bis  zu  15  Zeichen/sec.)  und  leise  (kleiner  65  dB) 

★  bedruckt  Etiketten,  Endlospapier,  Briefpapier 

★  ist  durchschlagend:  Original  plus  4  Kopien 

★  läßt  vielfältige  Gestaltungsmöglichkeiten  zu:  drei  verschiedene  Zeichen¬ 
dichten,  Schatten-  und  Fettdruck,  autom.  Unterstreichen  voll  und  wort¬ 
weise,  hoch-  und  tiefstellen,  halber  Zeilenschritt  vorwärts  und  rückwärts 

★  druckt  bidirektional  mit  Druckwegoptimierung 

★  ist  Diablo-kompatibel  (Diablo  630) 

★  gibt  LocoScript-Texte  (JOYCE)  über  das  Programm  L0C015  (DM  59,-)  aus 

★  hat  serienmäßig  parallele  und  serielle  Schnittstelle,  Traktor  und  Selbsttest 

★  ist  der  Typenraddrucker  von  SchneiderData  für  Schneider  Computer 


SchneiderData  •  Rindermarkt  8  •  D-8050  Freising  •  Telefon  081 61/2877 
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. Joyce' 


Grafik-Tablet 
für  Joyce 

Mit  "GRAFPAD  3"  wird  den  Joyce- 
und  CPC-6128-Besitzern  in  Kürze  ein 
preiswertes  Digitalisier-Tablet  inklu¬ 
sive  Software  zur  Verfügung  stehen, 
das  durch  sein  Preis-/Leistungsverhält- 
nis  eine  interessante  Sache  für  Anwen¬ 
der  werden  könnte,  die  auf  ihrem  Rech¬ 
ner  CAD-Fähigkeiten  benötigen. 

Wir  konnten  das  Produkt  zwar  noch 
nicht  testen  (folgt!),  können  aber 
schon  ein  paar  besondere  Leistungs¬ 
merkmale  anführen,  die  die  Software 
des  Tablets  ”G3”  haben  soll: 

Da,  wie  aus  der  Tablet-Folie  (s.  Bild) 
zu  sehen  ist,  alle  Zeichenfunktionen 


vom  Tablet  angewählt  werden,  stehi 
fast  der  gesamte  Bildschirm  als 
Zeichenfläche/-Ausschnitt  zur  Ver¬ 
fügung.  Funktionen  werden  ange¬ 
wählt,  indem  der  Zeichenstift  auf  die 
gewünschte  Funktion  gesetzt  und  ein 
Microschalter  am  Stift  gedrückt 
wird. 

Zur  Erstellung  von  Layouts,  Schalt¬ 
plänen,  Skizzen  usw.  stehen  Sym¬ 
bole  wie  Linien,  Rechtecke.  Kreisele¬ 
mente  etc.  zur  Verfügung;  auch  kön¬ 
nen  eigene  Symbole  erstellt  werden, 
was  mit  einer  Vielzahl  von  Funktio¬ 
nen  unterstützt  wird. 

Zum  genauen  Arbeiten  können  die 
Cursor-Koordinaten  angezeigt  wer¬ 
den  und  mit  USER  GRID  und  USER 
SNAP  können  Rasterabstand  und 
Cursorschrittweite  eingestellt  werden. 


Ebenso  ermöglicht  die  ZOOM-Funk- 
tion  das  stufenlose  Vergrößern  und 
Verkleinern. 

Objekte  (Körper,  Ausschnitte,  Texte,...) 
können  in  alle  Richtungen  gespiegelt, 
gedreht,  rotiert  oder  geneigt  werden. 
Auch  besteht  die  Möglichkeit  des 
Verschiebens  und  Kopierens. 
Flächen  können  beliebig  schraffiert 
werden  und  die  Software  kann  auto¬ 
matisch  Bemaßen. 

Die  fertige  Zeichnung  oder  Aus¬ 
schnitte  können  auf  dem  Joyce- 
Drucker  ausgedruckt  werde.  Durch 
die  eingebaute  Schnittstelle  des 
"GRAFPAD  3"  kann  auch  ein  Plotter 
mit  Centronics-Schnittstelle  ange¬ 
schlossen  werden,  womit  Zeichnun¬ 
gen  dann  auch  maßstäblich  auf  das 
Papier  kommen. 

(MC) 
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Leser  fragen 

Schneider 


CDU  PUTER  Dlis, 


•ision 


antwortet 


In  Zusammenarbeit  mit  der  Fa. 
Schneider  in  Türkheim  haben  wir  eine 
Service-Ecke  eingerichtet.  Hier  sollen 
neben  speziellen  Fragen  zu  Schneider- 
Produkten  auch  Anregungen  und  Kriti¬ 
ken  Platz  finden,  die  einen  engeren 
Kontakt  vom  Hersteller  zum  End¬ 
verbraucher  gewährleisten. 

Ihre  Fragen  werden  von  Mitarbeitern 
der  Fa.  Schneider  nach  bestem  Wissen 
und  Gewissen  beantworten. 

Ihre  Anfragen  richten  Sie  bitte  an  die 
CPC-Redaktion,  wir  leiten  diese  umge¬ 
hend  weiter. 

Der  Startschuß  fällt  mit  einem  Pro¬ 
blem,  dem  viele  Joyce-Benutzer  bisher 
nicht  beigekommen  sind  und  das  im  fol¬ 
genden  ausführlich  erläutert  wird. 


Das  Starten  von  DR  Logo 
mit  Joyce 

Leider  hat  sich  im  Handbuch  1  im 
Kapitel  2  "Starten  von  DR  Logo"  ein 
Fehler  eingeschlichen.  Befolgen  Sie 
bitte  die  nachfolgenden  Anweisun¬ 
gen,  um  eine  einwandfreie  Funktion 
dieses  Programmes  zu  gewährlei¬ 
sten. 

Kopieren  Sie  mit  Hilfe  des  Program¬ 
mes  DISCKIT  (siehe  Handbuchl, 
Kapitel  2,  Seite  3)  die  Seite  4  der  mit¬ 
gelieferten  Systemdisketten  auf  eine 
leere  Diskette. 

Beachten  Sie,  daß  bei  Benutzung  des 
Kopierprogrammes  DISCKIT  die 
Disketten  je  zweimal  gewechselt  wer¬ 
den  müssen  (die  oben  auf  dem 
Bildschirm  angezeigte  Zahl  muß  am 
Ende  des  Kopiervorgangs  39  sein). 
Verlassen  Sie  nun  das  DISCKIT- 
Programm  durch  zweimaliges  Drük- 
ken  der  EXIT-Taste. 

Auf  dem  Bildschirm  erscheint  nun 
wieder  das  A>. 

Löschen  Sie  nur®  einige  Programme 
auf  der  eben  erstellten  Kopie  der  Sy¬ 


stemdiskette  4.  Dazu  benutzen  Sie 
den  Befehl  ERA.  Geben  Sie  ein: 

ERA,HELP.COM  [ENTER] 

Auf  dem  Bildschirm  erscheint  nun 
wieder  das  A>. 

Jetzt  geben  Sie  ein: 

ERA,*. SYS  [ENTER] 

Beantworten  Sie  die  nachfolgende 
Frage  mit  Y  für  Ja. 

Auf  dem  Bildschirm  erscheint  nun 
wieder  das  A>. 

Wechseln  Sie  jetzt  die  eingelegte 
kopierte  Diskette  (nachfolgend  Disc 
B  genannt)  gegen  die  Seite  2  der  mit¬ 
gelieferten  Systemdisketten  (nachfol¬ 
gend  Disc  A  genannt). 

Danach  geben  Sie  ein: 

PIP  [ENTER] 

Auf  dem  Bildschirm  steht  nun  fol¬ 
gende  Meldung: 

A>PIP 

CP/M  3  PIP  Version  3.0 

* 

Hinter  das  Sternchen  tippen  Sie  nun 
B:=A:SUBMIT.COM  [ENTER] 

Wenn  in  der  untersten  Bildschirm¬ 
zeile  die  Meldung: 

Bitte  Diskette  für  B  einlegen,  dann 
irgendeine  Taste  drücken 
erscheint,  wechseln  Sie  die  Disc  A 
(Systemdiskette  2)  gegen  die  DISC  B 
(Ihre  Kopie)  im  Laufwerk.  Danach 
drücken  Sie  eine  Taste. 

Wenn  jetzt  das  Sternchen  wieder 
erscheint,  tippen  Sie  ein: 
B:=A:LANGUAGE.COM  [ENTER] 
Wenn  in  der  untersten  Zeile  die 
Meldung: 

Bitte  Diskette  für  A  einlegen,  dann 
irgendeine  Taste  drücken 

erscheint,  wechseln  Sie  die  Disc  B 
gegen  die  Disc  A  im  Laufwerk. 
Danach  drücken  Sie  eineTaste.  Nach 
Erscheinen  des  Sternchens  geben 
Sie  ein: 

B:=A:SETKE  YS.COM  [ENTER] 

Nach  der  erneuten  Meldung: 

Bitte  Diskette  für  A  einlegen,  dann 
irgendeine  Taste  drücken 
wechseln  Sie  wieder  die  Disc  A  gegen 
DISC  B  im  Laufwerk.  Danach 
drücken  Sie  erneut  eine  Taste. 


Nach  dem  Erscheinen  der  Meldung: 
Bitte  Diskette  für  B  einlegen,  dann 
irgendeine  Taste  drücken 

wechseln  Sie  die  Disc  A  gegen  die 
Disc  B  im  Laufwerk.  Anschließend 
drücken  Sie  eine  Taste.  Wenn  nun 
das  Sternchen  wieder  erscheint, 
drücken  Sie  die  ENTER-Taste.  Jetzt 
haben  Sie  eine  Diskette,  die  alle 
Hilfsprogramme  für  das  problemlose 
Starten  von  DR  Logo  beinhaltet. 
Bevor  Sie  DR  LOGO  starten,  setzen 
Sie  die  Tastaturbelegung  auf  den 
ASCII  Standard  Zeichensatz.  Dazu 
tippen  Sie  ein: 

LANGUAGE  0  [ENTER] 

Nun  starten  Sie  DR  LOGO  durch  die 
Eingabe  von: 

SUBMIT  LOGO  [ENTER] 

(denken  Sie  daran,  daß  Ihre  Diskette 
nicht  schreibgeschützt  ist.  Die 
Schreibschutzöffnung  muß  geschlos¬ 
sen  sein.) 

Durch  die  Umbelegung  der  Tastatur 
erreichen  Sie  die  eckigen  Klammem 
durch  Drücken  der  Tasten: 

SHIFT  +  Ä=  [ 

SHIFT  +  Ü  =  ] 

(Schneider  Computer  Division/SR) 


2  x  Finanzbuchhaltung 
für  Joyce  und  CPC’s 

Daß  die  CPC-Rechner  von  Schneider 
nicht  nur  zu  Hause  als  Hobby  und  zum 
Zeitvertreib  eingesetzt  werden  können, 
ist  anhand  der  mittlerweile  vielfältigen 
Verwaltungs-  und  Dienstprogramme 
für  Heim  und  Geschäft,  jedermann  klar 
ersichtlich.  Und  daß  die  Joyce-Rechner 
außer  als  hochkomfortable  Schreib¬ 
maschine,  auch  für  den  Einsatz  im 
Büro  bzw.  Geschäft  gedacht  sind, 
ist  aus  ihrer  Hard-  und  Softwarekonfi¬ 
guration  ebenso  klar  zu  erkennen. 

Ein  mögliches  Einsatzgebiet  der 
Rechner  ist  z.B.  für  jeden  Gewerbe¬ 
betreibenden  die  (lästige)  Finanz¬ 
buchhaltung,  um  die  man  sich  wegen 
des  Finanzamtes  leider  nicht  drücken 
kann.  Die  Erstellung  von  Bilanzen  ist 
für  ein  solches  Gerät  überhaupt  kein 
Problem  -  Speichern  von  Daten  und 
rechnen  sind  ja  die  "Stärken"  des 
Computers:  er  findet  die  nötigen  Da¬ 
ten  schneller  und  kann  mit  ihnen 
auch  schneller  rechnen  als  der  Mensch. 
Hier  werden  nun  zwei  Programme 
vorgestellt,  die  den  zeitlichen  Auf¬ 
wand  der  Buchhaltung  verkleinern 
helfen.  Bei  beiden  sind  aber  Buchhal¬ 
tungskenntnisse  erforderlich.  Diese 
Anmerkung  soll  der  Annahme  entge- 
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STAR-WRITER I  (464/664/6128) 

Das  zurZeit  mit  Abstand  leistungsfähigste  Textsystem  für  den  CPC,  das  völlig  neue  Maßstäbe 


in  Bedienung  und  Leistung  setzt! 

•  Einfache  Bedienung  durch  PULL-DOWN-Menues 

•  Deutsche  DIN-Tastatur  mit  Aufkleber 

•  Integrierte  Adreßverwaltung  im  Direktzugriff 

•  Integriertes  Grafikprogramm  zur  Erstellung  von 
Briefköpfen 

•  Integriertes  DFÜ-Programm  für  die  Schneider-Schnittstelle 

•  Integrierter  Zeicheneditor  zur  Erstellung  von  1 0  Zei¬ 
chensätzen 

•  Anpaßbar  an  jeden  Drucker  der  auf  dem  Markt  erhältlich  ist 

•  Integrierte  Tabellenkalkulation  im  Textprogramm 

•  Basicprogramme  können  bearbeitet  werden 

•  Komfortable  Diskettenverwaltung  (löschen,  kopieren . . .) 

•  Ränder  frei  wählbar 

•  Trennvorschiäge 

•  Zentrieren 

•  Formatierte  Ausgabe  auf  dem  Bildschirm 

•  Umfangreiche  Blockoperationen 

•  Umformatieren  auf  andere  Formate 

•  Zeichen  einfügen  und  löschen 


Zeilen  einfügen  und  löschen 
Absätze  einfügen  und  löschen 
Kopf-  und  Fußzeilen  frei  änderbar 
Blocksatz 
Flattersatz 

Suchen  und  Ersetzen 
Serienbrieffunktion 
„MERGE“-Funktion 
Fließtexteingabe 
Wordwrap 

Baustein  Verarbeitung 
9  verschiedene  Layouts 
Proportionalschrift 

Hervorhebungen  wje:  Unterstreichen,  Fettdruck,  Dop¬ 
peldruck,  Kursiv,  doppelte  Breite,  Schmalschrift,  NLG . . . 
Mathematische  Formelschreibweise  (Hoch-  und  Tief¬ 
stellen) 

Definierte  Zeichensätze  können  auf  entsprechendem 
Drucker  ausgegeben  werden  (z.  B.  Russisch  oder  Fran¬ 
zösisch). 


Jetzt 

Version  2.0 


COMPOSER-STAR  (664/6128) 

„Ein  Musikprogramm  für  alle  Musikfans" 

Mit  COMPOSER-STAR  können  Sie  komplette  Musikstücke 
oder  nur  ein  paar  Taktfolgen  auf  einfachste  Weise  erstellen! 
Natürlich  stehen  Ihnen  auch  eine  Menge  Korrekturhilfen  zur 
Verfügung,  um  Ihrem  Stück  den  letzten  Schliff  zu  geben.  Sie 
können  auch  mehrere  Stücke  verbinden,  transponieren,  die 
Tonhüllkurven  und  die  Lautstärke  verändern,  den  Rausch¬ 
generator  benutzen,  Notenblätter  drucken . . .  Das  Programm 
ist  sehr  einfach  zu  bedienen  und  das  beiliegende  Handbuch 
gibt  auch  dem  Anfänger  einen  Einblick  in  die  bizarre  Welt  der 
Musik.  Das  Wichtigste  jedoch  ist,  daß  Sie  Ihr  Werk  in  ein  Basic- 
programm  umwandeln  können,  um  es  in  eigenen  Program¬ 
men  zu  verwenden. 

Preis:  98,-  Diskette  und  Handbuch 


COPY-STAR II 

ist  die  ideale  Befehlserwei¬ 
terung  für  Druckerbesitzer, 
denn  es  stellt  für  alle  gängi¬ 
gen  Drucker  Hardcopyfunk¬ 
tionen  in  verschiedenen 
Größen  zur  Verfügung.  So¬ 
gar  Farbbilder  lassen  sich 
schattiert  ausgeben. 
COPY-STAR  II  können  Sie 
leicht  in  eigene  Programme 
einbinden. 


Preis:  29,90  Kassette 
39,90  Diskette 


STATISTIC-STAR 

Eine  Grafik  sagt  mehr  als  1 000  Zahlen 

Ein  professionelles  Grafik-  und  Statistic- 
programm  zum  Auswerten  von  Daten  aller 
Art  (Schule,  Studium,  Beruf,  Hobby,  Haus¬ 
halt. .  .). 

•  Linien-,  Balken-  und  Tortengrafik 

•  Betiteln  von  Grafiken 

•  400  Daten  direkt  im  Speicher 

•  Umfangreiche  Editierfunktionen 

•  Umfangreiche  statistische  Berechnungen 

•  Hardcopyfunktion  ü.v.m. 

•  Preis:  59,90  Kassette 

79,90  Diskette 


Beispielgrafik  STATISTIC-STAR 


- - \ 

MATHE-STAR 

Vom  Lehrer  für  Schüler! 

•  Lin.  Gleichungssysteme 

•  Gleichungen  4.  Grades 

•  Bruchrechnen 

•  Primfaktorzerlegung 

•  Polynome 

•  Kurvendiskussion 

•  Integralrechnung 

•  Vektorrechnung 

•  Matrixrechnung 
etc. 


Preis:  69,90  Kassette 
79,90  Diskette 


’ - \ 

DISKSORT-STAR 

Leistungsstarke  Disketten¬ 
verwaltung,  die  keinem 
CPC-Benutzer  fehlen  sollte. 
DISKSORT-STAR  verwaltet, 
archiviert,  katalogisiert, 
druckt...  Ihre  Disketten¬ 
sammlung  auf  einfachste 
Weise.  Neben  der  reinen 
Diskettenverwaltung  ist  un¬ 
ter  anderem  noch  ein  kom¬ 
pletter  Diskettenmanager 
enthalten! 

Auch  in  punkto  Bedienung 
ist  DISKSORT-STAR  kaum 
zu  schlagen 

DM  49,90 
V 


STAR-MON 

Das  Entwicklungssystem 
für  Profis  und  Anfänger 

•  Assembler 

•  Editor 

•  Disassembler 

•  Monitor 

•  4  Breakpoints 

•  Trace-Funktion 

•  Bankswitch 

•  Memory  Dump 

•  Diskettenmonitor 

•  u.v.m. 

Preis:  59,90  Kassette 
79,90  Diskette 
(erweiterte  Version) 


CREATOR-STAR 

Ein  Trickfilmdesigner  für  Ihren  CPC 

und  alle  Hobbyregisseure! 

•  Sprite-Designer 

•  Laufschrift 

•  Utilities 

•  Kulissendesigner 

•  Sprites  mit  4  Unter¬ 
positionen 

•  Verbinden  von  Sprites 

•  Kulissen  auch  überein- 
andergelegt 

•  Eigene  Programmier¬ 
sprache  mit  Editor 
und  Compiler 

DM  49,90  Diskette 

j 


5  T A  RmAflA  IL  1 f  2  mO  (joyce/joycepiub) 

Das  Erweiterungsprogramm  zum  „LOCOSCRIPT“! 

Das  bietet  Ihnen  STAR-MAIL: 

•  Rechnen  und  Kalkulieren  in  Locoscripttexten 

•  Erstellen  von  formatierten  Tabellen  und  Formularen  in 

Locoscript 

•  Vergleichen  und  Auswählen  zwischen  Textabschnit¬ 
ten  im  Locoscript 

•  Interaktives  Briefeschreiben  mit  Locoscript 

•  Erstellen  von  Serienbriefen  und  Werberundschreiben 
mit  Locoscript  (nur  in  Verbindung  mit  DATEI-STAR) 

•  Erstellen  von  selbstrechnenden  Textformularen  (für 

Rechnungen,  Angebote  .)  im  Locoscript 

•  Erstellen  von  individuellen  Verkaufs-,  Artikel-,  Lager¬ 
listen  . .  mit  Locoscript 

•  Bedrucken  von  vorgefertigten  Formularen  mit  Loco¬ 
script 

•  Drucken  von  Locoscripttexten  auf  jedem  Fremd¬ 
drucker  (CPS  erforderlich) 

•  Ausführliches  Handbuch  mit  Übungsteil 

•  Preis:  98,-  DM 

BUSINESS-STAR  V  2.0 

(JOYCE/ JOYCE  Plus) 

Die  professionelle  Auftragsbearbeitung  für  alle  JOYCE-Rech- 
ner! 

Bestehend  aus  Fakturierung,  Lagerverwaltung,  Mahnwesen,  Daten¬ 
verwaltung  und  Dienstprogrammen:  i 

Fakturierung: 

•  Schreiben  von  Rechnungen/Lieferscheinen/Auftragsbestäti-  !i 

gungen  mit  automatischer  Speicherung  auf  Diskette  (ca. 

800  Aufträge  im  A-Laufwerk/ca.  3200  Aufträge  im  B-Laufwerk) 

•  Automatisches  Ausbuchen  der  gelieferten  Artikel  aus  der 
Lagerdatei 

•  Eindruck  von  bis  zu  8  Werbetexten  in  den  Auftrag 

Lagerverwaltung: 

•  Wareneingang  vermerken 

•  Umfangreiche  Warenkalkulationen 

•  Lager-  u.  Verkaufsstatistiken 

•  Mindest-  u.  Meldebestand  anzeigen 

•  Drucken  von  Preislisten 

Mahnwesen: 

•  Automatisches  Mahnen  mit  drei  Mahntexten 

•  Schreiben  von  individuellen  Mahnungen 

•  Ausdrucken  der  fälligen  Rechnungen/Mahnungen 

•  Offene-Posten-Buchhaltung 

Daten  Verwaltung: 

•  Erfassung  des  Kundenstamms  (ca.  700  Adressen  im  A-Lauf- 
werk,  ca.  2800  Adressen  im  B-Laufwerk) 

•  Erfassung  des  Lieferantenstamms  (ca.  700  Adressen  im 
A-Laufwerk,  ca.  2800  Adressen  im  B-Laufwerk) 

•  Erfassung  des  Artikelstamms  (ca.  850  Artikel  im  A-Laufwerk, 
ca.  3400  Artikel  im  B-Laufwerk) 

Dienstprogramme: 

•  Programmvoreinstellungen  ändern 

•  Briefkopf  entwerfen 

•  Mahnungstexte  entwerfen 

•  Werbetexte  entwerfen 

Weitere  Informationen  zu  BUSINESS-STAR  entnehmen  Sie  bitte 
unserem  Katalog!  Änderungen  zum  Programm  werden  auf 
Wunsch  angefertigt! 

Preis:  29Sjm  DM  inkl.  Diskette  u  Handbuch 

DA  TEI-STA RV  2.0 

Die  universelle  Dateiverwaltung  für  die  JOYCE! 

•  Einfache  Bedienung  durch  PULL-DOWN-Menues 

•  Freidefinierbare  Eingabemaske  mit  30  Datenfeldern 

•  1 400  Zeichen  pro  Datensatz 

•  Freidefinierbare  Such-,  Sortier-  und  Druckmaske 

•  Integrierte  Kalkulationsmöglichkeiten  (Rechenfelder) 

•  Suchen/Selektieren/Sortieren/Etiketten-  u.  Listen¬ 
druck.  . . 

•  Preis:  98,-  DM 

DA  TEI-STARS  STAR-MAIL  gibt  es  im  Paket  als  JOYCE- 
MA ILING-S  YSTEM  für  189,-  DM. 

FIBU-STAR  Plus 

Endlich  gibt  es  eine  professionelle  Finanzbuchhal¬ 
tung  für  die  SCHNEIDER-Computer! 

•  Stammdatenverwaltung  und  Umsatzsteuervoranmel¬ 
dung 

•  Frei  wählbarer  Umsatzsteuerschlüssel  zur  automati¬ 
schen  Ermittlung  der  Steuerbeträge  und  deren  Ver¬ 
buchung  auf  den  Mehrwert-  und  Vorsteuerkonten 

•  Frei  wählbarer  Köntenrahmen  (bis  zu  400  Konten) 

•  Frei  wählbare  Zuordnung  der  Sach-  und  rechnenden 
Konten 

•  Buchungsjournal,  Kontenblätter  und  Jahresabschluß 

•  Summen-  und  Saldenlisten  der  Kreditoren,  Debitoren 
und  Sachkonten 

•  Einfaches  Erfassen  aller  Buchungsbelege  mit  oder 
ohne  Protokoll 

•  Buchungen  können  so  durchgeführt  werden,  wie  sie 
auf  den  Tisch  kommen,  da  alle  Buchungen  chronolo¬ 
gisch  und  innerhalb  eines  Datums  nach  Belegnum¬ 
mern  sortiert  werden 

•  Einfache  Bedienung  und  hohe  ABSICHERUNG  gegen 
Bedienungsfehler 

•  Preis  298,—  DM 

Das  Programm  FIBU-STAR  Plus  ist  erstmals  unter  dem 

Namen  FIBU-M  1980  installiert  worden  und  hat  sich  seit¬ 
dem  sehr  oft  in  der  Praxis  bewährt. 

$  TA  R-BA  SE  (JOYCE/JOYCE  Plus) 

STAR-BASE  ist  ein  anwenderfreundliches  Datenbank¬ 
system  mit  unglaublichen  Fähigkeiten! 

•  Eigener  Window-Manager 

•  Menueorientierte  Bedienung  und  Programmierung 

•  Volle  Unterstützung  des  JOYCE-Bildschirms 

•  Eingabemaske  über  9  Bildschirmseiten 

•  100  Datenfelder  pro  Eingabemaske 

•  88  Zeichen  pro  Datenfeld 

•  2060  Zeichen  pro  Datensatz 

•  Max.  8  Zugriffsschlüssel 

•  Komplette  Index  Verarbeitung 

•  Suchen  u.  Selektieren  nach  allen  Datenfeldern 

•  32767  Datensätze  pro  Datei 

•  Verknüpfung  von  mehreren  Dateien 

•  Zu  jedem  Datensatz  kann  eine  Unterdatei  mit  max.  255 
Zeichen  pro  Satz  angelegt  werden 

•  Kompletter  Reportgenerator 

•  Star-Base  arbeitet  voll  mit  Locoscript  zusammen 

•  Umfangreiche  Rechenfunktionen 

•  Serienbrieferstellung 

•  Integrierter  Texteditor 

•  Direkter,  menuegesteuerter  Datensatzzugriff 

•  Mehrspaltige  Formulare 

•  Eigener  Menuegenerator 

•  Einfachste  Maskendefinition 

•  Passwort  für  eine  Datei 

•  Ausführliches  Handbuch  (1 80  Seiten) 

•  Preis:  1 98,—  DM  inkl.  Diskette  u.  Handbuch 

Weitere  interessante  Programme  finden  Sie  in  unserem  ausführlichen  Katalog! 


Vertrieb  für  die  Schweiz: 

VCS  Video-Computershop 
Schaffhauserstraße  473 

P.O.  Box  103,  CH -8052  Zürich 
Telefon  01  /  3  02  26  00 

Händleranfrage 

erwünscht 

Software-  A  utoren 
gesucht 

Vertrieb  für  Österreich : 

Ueberreuter-Media 

Alserstraße  24,  A-1091  Wien 
Telefon  481  53  80 

Unsere  Produkte  sind 
in  allen  führenden 
Computer-Shops 
sowie  bei  Karstadt 
und  Brinkmann 
erhältlich!  ' 

□  Senden  Sie  mir  unverbindlich  Ihren  Katalog 

□  6128  G  664  D464  □  JOYCE 

□  Hiermit  bestelle  ich  per  Vorkasse/Nachnahme 

Vorname _ 

Name  - - 

Straße _ _ _ _ 

Wohnort  _ _ 

Datum  /Unterschrift  - 

(Alle  Preise  verstehen  sich  als  unverbindliche 
Preisempfehlungen  inkl.  1 4%  MwSt.  zzg  5,—  DM 
Porto  u.  Verpackung) 
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Joyce“ 
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genwirken,  daß  Laien  mit  Hilfe  eines 
solchen  Programmes  in  die  Geheim¬ 
nisse  der  Buchhaltung  eingeweiht 
werden:  Dieses  Wissen  muß  man 
logischerweise  schon  mitbringen! 


Mercator 


Hersteller:  Tuschen  Software 
Vertrieb:  Computer-Studio  Offenbach 
Preis:  477,-  DM 

Mit  “Mercator”  erhält  man  ein  Pro¬ 
gramm,  das  an  die  speziellen  Be¬ 
dürfnisse  seiner  Buchhaltung  und  an 
die  vorhandene  Hardware,  d.h.  An¬ 
zahl  und  Kapazität  der  externen 
Speicher,  angepaßt  werden  kann. 
Je  nach  Version  sind  noch  verschie¬ 
dene  Erweiterungsoptionen  wie 
Mahnwesen  möglich.  Es  erlaubt  die 
freie  Definition  von  Buchungsperio¬ 
den  und  der  maximalen  Anzahl  der 
möglichen  Buchungen  pro  Periode. 
Ebenso  ist  die  Anzahl  der  zu  verwal¬ 
tenden  Konten  vom  Anwender  frei 
definierbar.  Dadurch  sind  aber  ein 
paar  EDV-Grundkenntnisse  erfor¬ 
derlich,  da  man  je  nach  Diskettenka¬ 
pazität  die  Anzahl  der  Konten  und 
die  möglichen  Buchungen  aufeinan¬ 
der  abstimmen  muß,  wozu  in  der 
Dokumentation  ein  Beispiel  gegeben 
ist. 

Die  Bedienung  des  Programms  ist 
dank  Menuetechnik,  Dialogführung 
und  Fehlerprüfung  einfach  und  über¬ 
sichtlich.  So  ist  der  erste  Schritt,  die 
Stammdateneingabe,  schnell  ge¬ 
macht.  Hier  werden  die  Firmendaten 
eingegeben,  die  oben  genannten 
Größen  der  Perioden  und  jeweils  bis 
zu  zehn  Vor-  und  Mehrwertsteuer¬ 
schlüssel  für  die  automatische  Steu¬ 
erberechnung  festgelegt.  Ebenso  ist 
die  Eingabe  von  maximal  40  festen 
Buchungstexten  möglich,  sowie  freie 
Gestaltung  der  Bilanz-  und  BWA- 
Ausdrucke.  Im  Kontenplan  können 
die  einzelnen  Konten  frei  gestaltet 
werden:  Sie  können  als  Bilanz-,  G  & 
V-,  Debitor-/Kreditor-  oder  Sachkon¬ 
ten  deklariert  werden.  Man  kann  je¬ 
weils  die  Steuermöglichkeit  eines 
Kontos  festlegen  und  es  mit  einem  fe¬ 
sten  Steuerschlüssel  versehen.  Eben¬ 
so  sind  "Offene  Posten”  (optional!) 
möglich. 

Sind  alle  Stammdaten  erfaßt,  so  kann 
gebucht  und  ausgewertet  werden, 
wobei  "Mercator"  ebenfalls  vielfäl¬ 
tige  Möglichkeiten  bietet. 

Eine  Buchung  wird  sofort  verrechnet, 
so  daß  während  der  Erfassung  über 


Kontostand,  Kontenbewegung,  Jour¬ 
nalzeile  und  Offene  Posten  vom 
Programm  sofort  Auskunft  gegeben 
werden  kann.  Ebenso  werden 
Überprüfungen  angestellt;  z.B.  auf 
falschen  oder  nicht  vorhandenen 
Steuerschlüssel.  Periodensummen 
und  Salden  mit  den  angefallenen 
Verkehrszahlen,  Abstimmung  zwi¬ 
schen  Einzel-Personen-  und  den  ent¬ 
sprechenden  Hauptkonten  sowie  die 
Daten  zur  Umsatzsteuervoranmel¬ 
dung  können  erstellt  werden.  Ebenso 
ist  der  Teil-  oder  Gesamtdruck  der 
Buchungserfassungen  und  die  der 
Bewegungen  eines  oder  aller  Konten 
innerhalb  einer  Periode  möglich. 

Ein  selektives  Journal,  Debitoren-/ 
Kreditoren-Saldenlisten,  Saldenbi¬ 
lanz  und  Gewinn-  &  Verlustrech¬ 
nung  sowie  betriebswirtschaftliche 
Auswertung  werden  ebenfalls  gebo¬ 
ten. 

Damit  der  Käufer  dieses  Programms 
diesen  vielfältigen  Möglichkeiten 
nicht  hilflos  gegenübersteht,  ist  eine 
Musterfirma  sowie  ein  Musterkon¬ 
tenplan  schon  eingerichtet.  Anhand 
dieses  Beispiels  kann  man  sich  erst 
einmal  in  das  Programm  einarbeiten 
und  die  Funktionen  in  aller  Ruhe 
ausprobieren.  Dies  ist  auch  nötig,  da 
die  Anleitung  selbst  nur  die  Funktio¬ 
nen  und  deren  Handhabung  beschreibt 
und  keine  Beispiele  enthält.  Sie  ist 
auch  sehr  "technisch”  verfaßt  und 
kann  unter  Umständen  zu  Verständ¬ 
nisschwierigkeiten  führen,  was  dann 
Ausprobieren  am  Objekt  zur  Folge 
hat. 


FIBU  BM  1.0/T 


Hersteller:  BYTE  ME 
Vertrieb:  BYTE  ME 
Preis:  348,-  DM 

Dieses  Programm  wurde  für  den  Ein¬ 
zelhandel,  kleinere  Betriebe,  Vereine 
usw.  mit  dem  Ziel  entwickelt,  zum 
Gebrauch  keine  besonderen  EDV- 
Kenntnisse  vorauszusetzen.  Dem¬ 
entsprechend  ist  die  Anleitung  des 
Programms  sehr  verständlich  und 
übersichtlich  gehalten.  Wie  bei  "Mer¬ 
cator”  wird  auch  ”FIBU  BM  1.0/T” 
mit  Hilfe  von  Menues  und  Dialogen 
gehandhabt.  Um  die  Organisation 
der  Daten  braucht  man  sich  hier 
keine  Gedanken  zu  machen:  Auf 
einer  Datendiskette  sind  1750 
Buchungen  pro  Monat  möglich. 
Nach  Abschluß  des  Monats  und  Aus¬ 
druck  aller  nötigen  Daten  und  Aus¬ 
wertungen,  wird  der  Monat  gelöscht 
und  die  Salden  vorgetragen. 


Fallen  weniger  Buchungen  pro  Monat 
an,  so  kann  dieser  Vorgang  auch  in 
anderen  Zeiträumen  geschehen. 

Mit  dem  Programm  können  bis  zu 
150  Konten  verwaltet  werden,  was  für 
den  angestrebten  Kundenkreis  sicher¬ 
lich  ausreichend  ist.  Die  Klassifizie¬ 
rung  der  Konten  beschränkt  sich  hier 
auf  aktive,  passive,  Gewinn-  bzw.  Ver¬ 
lustkonten  sowie  MWSt.-  oder  Vor¬ 
steuerkonten.  Als  Steuerschlüssel 
können  jeweils  vier  Mehrwert-  und 
Vorsteuerschlüssel  festgelegt  werden. 
Die  Buchungserfassung  stellt  sich  bei 
"FIBU  BM"  einfach  und  übersicht¬ 
lich  dar:  man  bekommt  eine  Liste 
präsentiert,  deren  Zeilen  jeweils  eine 
Buchung  darstellen  und  in  deren 
Spalten  die  Daten  eingegeben  wer¬ 
den:  Beleg-Nr.,  Datum,  Steuerschlüs¬ 
sel,  Buchungstext,  Konto  und  Gegen¬ 
konto.  Der  zu  buchende  Betrag  wird 
schließlich  unter  Soll  oder  Haben 
eingetragen.  So  hat  man  immer  die 
letzten  Eingaben  auf  dem  Bildschirm 
und  kann  vor  dem  Speichern  noch 
Korrekturen  durchführen.  Bei  den  zu 
buchenden  Beträgen  muß  es  sich  um 
Bruttobeträge  handeln,  da  sonst  für 
das  Programm  nicht  erkennbare  Re¬ 
chenfehler  entstehen.  Dieser  Betrag 
bezieht  sich  immer  auf  das  in  der 
Kontospalte  eingegebene  Konto;  die 
Buchung  des  Gegen-  und  Steuer¬ 
kontos  geschieht  automatisch. 

Mit  dem  Journal  können  alle  Buchun¬ 
gen  monatsbezogen  in  schriftlicher 
Form  auf  Papier  festgehalten  werden, 
was  vor  dem  (monatlichen)  Löschen 
unbedingt  zu  empfehlen  ist.  Diese 
Ausgabe  kann  aber  auch  auf  dem 
Bildschirm  geschehen,  wodurch  man 
sich  auch  ohne  Papierverschwen¬ 
dung  eine  Übersicht  verschaffen 
kann.  Ebenso  können  Monats-  und 
Jahresabschluß  sowie  die  Umsatz¬ 
steuervoranmeldung  erstellt  werden. 
Auch  können  einzelne  oder  alle  ge¬ 
buchten  Konten  und  Salden  auf 
Bildschirm  oder  Drucker  ausgegeben 
sowie  eine  betriebswirtschaftliche 
Auswertung  gemacht  werden. 

Leider  ist  keine  Kostenstellenabrech¬ 
nung  möglich,  was  aber  nur  für  Be¬ 
triebe  mit  Nebenstellen  oder  vielen 
innerbetrieblichen  Abteilungen  not¬ 
wendig  ist.  Dies  entspricht,  wie  An¬ 
fangs  erwähnt,  ja  auch  nicht  unbe¬ 
dingt  dem  Kundenkreis.  Allerdings 
ist  eine  erweiterte  Version  "FIBU  BM 
2.0”  (598,-  DM)  für  den  CPC  6128  und 
Joyce  angekündigt,  die  Sammelkon¬ 
ten,  offene  Posten,  Mahnwesen,  De¬ 
bitoren  und  Kreditoren  sowie  eine 
Schnittstelle  zu  einem  weiteren 
Programm  des  Herstellers,  der  "Auf¬ 
tragsbearbeitung  BM  6.0”,  enthält. 
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Fazit: 


Beide  Programme  sind  für  kleine  und 
mittlere  Betriebe  durchaus  geeignet, 
wobei  sich  "Mcrcator”  als  das  flexib¬ 
lere  Programm  erweist,  der  Umgang 
mit  "FIBU  BM  1 .0/T'  aber  wesentlich 
einfacher  ist  und  ohne  große  EDV- 
Kenntnisse  eingesetzt  werden  kann. 
Hier  muß  letztendlich  der  Käufer  ent¬ 
scheiden,  welches  Programm  für 
seine  Bedürfnisse  das  geeignetere 
ist. 

(G.  Kosbab/MC) 

A  LG  O- Rhythmus  I 

Adress-  u.  Briefverwaltung 
Hersteller:  ALGO 
Vertrieb:  ALGO/Fachhandel 
Preis:  149  -  DM 

"Schon  wieder  ein  Adressverwal- 
tungsprogramtn”,  werden  vielleicht 
einige  Leser  stöhnen.  Bei  "ALGO- 
Rhythmus  I"  handelt  es  sich  aber  um 
ein  Programm  dieser  Sparte,  das 
außer  den  notwendigen  Funktionen 
zur  Adressverwaltung  und  Briefer¬ 
stellung  noch  ein  paar  "Bonbons" 
bietet  -  allerdings  auch  nicht  ganz 
ohne  Nachteile  ist,  wie  ich  finde. 

So  ist  bei  der  Erlassung  der  Adressen 
die  Wahl  zwischen  zwei  Formaten 
möglich,  die  selbst  "Adressgiganten" 
genug  Platz  bieten  dürften:  Privat¬ 
oder  Firmenformat.  Eine  private 
Adresse  enthält  außer  den  notwendi¬ 
gen  Feldern  für  Name,  Straße  und 
Ort,  auch  Platz  für  Anrede  und 
Zusatz.  Im  Firmenformal  sind  zwei 


Felder  für  die  Firmenbezeichnung 
sowie  ein  Feld  mit  "zu  Händen”  vor¬ 
handen.  In  beiden  Formaten  können 
auch  Telefonnummer  sowie  Bemer¬ 
kungen  untergebracht  werden. 
Anreden  brauchen  nicht  bei  jeder 
Adresse  komplett  neu  eingetippt  wer¬ 
den:  man  kann  bis  zu  15  Anreden  für 
Anschrift  und  Anredezeile  speichern 
und  durch  Eingabe  der  entsprechen¬ 
den  Nummer  abrufen.  Nach  Beendi¬ 
gung  der  Eingabe  wird  die  Adresse 
noch  einmal  in  der  Form  ängezeigt, 
in  der  sie  später  gedruckt  wird.  Bei 
Nichtgefallen  kann  sie  so  rechtzeitig 
geändert  werden. 

Nachteilig  ist,  daß  die  eigentlichen 
Datenfelder  der  Adresse  (Name,  Ort, 
Bemerkung...)  nicht  als  Such-,  Sortier¬ 
oder  Selektions-Kriterium  verwendet 
werden  können.  Der  Zugriff  auf  eine 
bestimmte  Adresse  geschieht  immer 
über  eine  vom  Benutzer  vergebene, 
alphanumerische  "Adressnummer”. 
Die  Sortierung  erfolgt  anhand  der 
optionalen  Eingabe  im  Feld  ”Sort- 
Kürzel”  und  für  die  Selektierung  der 
Adressen  zwecks  Druck  von  Aufkle¬ 
bern  oder  Serienbriefen  stehen  drei 
separate  Felder  zur  Verfügung,  deren 
Inhalt  explizit  angegeben  werden 
kann/muß.  Man  kann  also  nicht  ein¬ 
fach  hergehen,  nach  dem  Motto: 
"Sortiere  die  vorhandenen  Adressen 
nach  dem  Namensfeld  und  drucke 
von  ’Baum’  bis  'Müller’”.  Vielmehr 
muß  man  sich  bei  der  Eingabe  einer 
Adresse  oder  später  über  die  notwen¬ 
digen  Selektionskriterien  Gedanken 
machen  und  eventuell  Daten  doppelt 
eingeben:  z.B.  die  Postleitzahl  einmal 
in  der  Adresse  und  einmal  als 
Selektionskriterium. 


Schließlich  können  einzelne  Adres¬ 
sen  oder,  mit  Hilfe  der  Selektionskri¬ 
terien,  Gruppen  von  Adressen  auf  Eti¬ 
ketten  (101.6  x  35.7  mm  oder  101.6  x 
48.4  mm)  gedruckt  werden.  Bei  der 
Verwendung  mehrerer  Kriterien  wer¬ 
den  nur  die  Adressen  ausgegeben,  die 
alle  Bedingungen  erfüllen.  Zur  Ge¬ 
staltung  der  Adressen  hat  man  die 
Möglichkeit,  den  Druck  einer  Absen¬ 
derzeile,  der  persönlichen  Anrede 
oder  der  Anredezeile  an-  oder  auszu¬ 
schalten.  Ebenso  ist  die  Erstellung 
von  Adresslisten  möglich. 

Unter  dem  Punkt  "Briefbearbeitung” 
können  bis  zu  zehn  Briefe  erstellt  und 
gespeichert  werden.  Der  Editor  bietet 
allerdings  nicht  den  Komfort  und  die 
Möglichkeiten  eines  Textverarbeitungs- 
Programmes:  seine  Funktionen  be¬ 
schränken  sich  in  etwa  auf  die  einer 
Speicher-Schreibmaschine.  Wie  auch 
beim  Druck  der  Adressaufkleber,  ist 
der  Druck  von  einzelnen  Briefen  oder 
selektierten  Gruppen  möglich. 
Schließlich  wäre  da  noch  die  "per¬ 
sönliche  Anpassung”.  Hier  kann  für 
die  Briefbearbeitung  ein  fester 
Briefkopf  mit  automatischer  Datums¬ 
einfügung  erstellt  sowie  die  Eingabe 
einer  Absenderzeile  vorgenommen 
werden.  Beide  werden  dann  bei  der 
Erstellung  von  Briefen  in  diesen  auto¬ 
matisch  übernommen,  können  dort 
aber  noch  verändert  werden. 

Die  Bedienung  des  Programmes  er¬ 
folgt  ausschließlich  über  Mer.ues, 
und  die  zur  "Steuerung”  nötigen  Ta¬ 
sten  sowie  ihre  Funktion  werden 
ständig  angezeigt,  so  daß  nach  kurzer 
Zeit  das  sehr  ausführliche  Handbuch 
im  Regal  stehen  bleiben  kann. 

(MC) 


DIE  JOYCE-DATABOX 
SOFTWARE  FÜR  DEN  SUPER  RECHNER 

Jetzt  gibt's  die  Databox-Disk  auch  für  den  Joyce  und  außerdem  als  praktisches  Databox-Abo. 


Alle  Joyce-Programme  aus  dem  Heft  finden  Sie  »rea¬ 
dy  to  run«  auf  unserer  praktischen  Databox. 
Zusätzlich  enthält  die  Joyce-Databox  noch  ein  Bonus- 
Programm.  Diesen  Monat:  Mauer,  Wurm 

Einzelbezug: 

Einzelbezugspreis  für  DATABOX: 

Diskette  3”  24,-  DM  zzgl.  3,-  DM  Porto/Verp. 

(im  Ausland  zzgl.  5,-  DM  Porto/Verpackung). 

Das  Databox-Abo  kostet: 

Als  Diskette  für  1/2  Jahr  (6  Lieferungen): 


Im  Inland  und  West-Berlin . 150,-  DM 

Im  europäischen  Ausland . 160,-  DM 

Im  außereuropäischen  Ausland . 180,-  DM 


Als  Diskette  für  1  Jahr  (12  Lieferungen): 


Im  Inland  und  West-Berlin . 300,-  DM 

Im  europäischen  Ausland . 320,-  DM 

Im  außereuropäischen  Ausland .  360,-  DM 


In  den  vorgenannten  Preisen  sind  die  Versand-  und 
Verpackunskosten  enthalten. 

Bitte  benutzen  Sie  für  Ihre  Bestellung  die  Abo-Karte. 

Zahlungsweise : 

Am  einfachsten  per  Vorkasse  (Verrechnungsscheck) 
oder  als  Nachnahme  zuzüglich  der  Nachnahmege¬ 
bühr. 

(In  das  Ausland  ist  Nachnahme  nicht  möglich). 


Inhalt  der  Joyce-Databox  9/86:  Maxzahl,  Lineare  Regression  —  BONUS:  Mauer,  Wurm 
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Lineare  Regression 
und  Korrelation 


Will  man  sich  dem  Thema  der  linearen  Regression  und 
der  Korrelation  nähern,  ohne  zu  wissen,  worum  es  dabei 
eigentlich  geht,  so  gibt  es  verschiedene  Möglichkeiten,  dieses 
zu  tun.  Denkbar  ist  der  Blick  ins  Lexikon  oder  das  Einkreisen 
der  Thematik  durch  die  Beantwortung  geschickt  gestellter 
Fragen  -  etwa  nach  dem  Motto:  ”Kann  man  das  essen?” 
Letzteres  Beispiel  wirft  angesichts  der  Tatsache,  daß  es  eine 
Unmenge  fremdländischer  Speisen  gibt,  allerdings  die 
schwierige  Frage  auf,  ob  man  überhaupt  Gourmet  genug  ist, 
hierauf  zweifelsfrei  zu  antworten. 

Verlassen  wir  lieber  diese  unproduktiven  Versuche  und 
geben  uns  ganz  den  einfühlsamen  Erläuterungen  des  Ver¬ 
fassers  dieser  Abhandlung  hin,  der  sich  die  Thematik  -  aus 
welch  dunklen  Kanälen  auch  immer  -  bereits  erarbeitet 
hat.  Ein  alltägliches  Beispiel  soll  einen  ersten  Einblick 
verschaffen. 

Stellen  Sie  sich  vor,  Ihre  geliebte  Gattin  wettert  zum  wie¬ 
derholten  Male  darüber,  daß  das  monatliche  Haushalts¬ 
geld  nicht  ausreicht,  weil  Sie  zuviel  Bier  kaufen  und  es 
auch  noch  trinken.  Natürlich  ist  dem  unvoreingenomme¬ 
nen  Leser  sofort  klar,  daß  Sie  dies  nur  aus  medizinischen 
Erwägungen  heraus  in  einem  ausgesprochen  bescheide¬ 
nem  Maße  tun.  Aber  wie  machen  Sie  dies  Ihrer  Frau  klar. 
Nun,  hier  hilft  auf  einfache  Weise  die  lineare  Regression 
und  die  Korrelation  weiter.  Sie  ermöglichen  es,  mathema¬ 
tisch  exakt  nachzuweisen,  ob  ein  Zusammenhang  zwi¬ 
schen  der  Ebbe  in  der  Haushaltskasse  und  Ihrem  Bier¬ 
konsum  besteht  oder  nicht.  Dies  wird  schließlich  auch 
Ihre  Frau  überzeugen. 

Verlassen  wir  unser  Beispiel  und  werden  ein  wenig  exak¬ 
ter.  Unter  Regression  versteht  man  ganz  allgemein  die 
Untersuchung  von  Abhängigkeiten  zwischen  statistischen 
Größen,  die  ihrerseits  als  sogenannte  zufällige  Variablen 
vorliegen.  Linear  bedeutet  in  diesem  Zusammenhang,  daß 
die  Abhängigkeit  mathematisch  in  Form  einer  Geraden 
dargestellt  werden  kann,  also  mit  anderen  Worten  propor¬ 
tional  verläuft.  Dies  schließt  mathematisch  anders  be¬ 
schreibbare  Abhängigkeiten  nicht  aus. 

Solche  sollen  uns  hier  aber  genausowenig  interessieren, 
wie  die  Tatsache,  daß  Abhängigkeiten  auch  zwischen 
mehr  als  zwei  Variablen  bestehen  können.  Man  spricht 
auch  von  einfacher  und  multipler  Regression.  Wir  wollen 
uns  hier  mit  der  Regression  linearer  Zwei-Variablen- 
Modelle  bescheiden.  Die  Korrelationsrechnung  schließ¬ 
lich  gibt  quantitativ  Auskunft  darüber,  in  welchem  Maße 
die  zufälligen  Variablen  gegenseitig  abhängig  sind. 

So,  das  war  ja  wohl  doch  sehr  theoretisch  und  wirkte  unge¬ 
mein  wissenschaftlich.  Mit  Recht  werden  Sie,  um  auf 
unser  Eingangsbeispiel  zurückzukommen,  einwenden, 
daß  Sie  dies  Ihrer  Frau  niemals  werden  klarmachen  kön¬ 
nen.  Mit  diesem  Einwand  liegen  Sie  wahrscheinlich  nicht 
ganz  falsch  (Anm.  Red.:  Feministinnen  sollten  diese  Ab¬ 
handlung  nicht  zu  ernst  nehmen:  Es  gibt  auch  Männer, 
die  mit  dieser  Materie  nichts  anzufangen  wissen!).  Es  geht 
aber  auch  -  die  Wissenschaftler  unter  den  Lesern  mögen 
dies  verzeihen  -  einfacher  und  dies  könnte  etwa  so 
lauten: 

Die  Regression  sagt  aus,  ob  zwei  Sachverhalte  voneinan¬ 
der  abhängig  sind.  Die  Korrelation  zeigt  uns  das  Ausmaß 
dieser  Abhängigkeit. 

Bleibt  noch  die  Frage  offen,  was  denn  nun  eigentlich 
zufällige  Variablen  sind.  So  einfach  wie  möglich  gesagt, 
sind  dies  wechselnde  Sachverhalte,  die  nicht  bzwr.  nicht 


genau  vorherbestimmbar,  also  zufällig,  sind.  Zum  Bei¬ 
spiel  die  berühmten  sechs  Richtigen  im  Lotto.  Ergänzend 
sei  daraufhingewiesen,  daß  für  die  Regressionsrechnung 
eine  Variable  als  abhängig  von  der  anderen  angesehen 
wird,  die  wiederum  ihrerseits  folgerichtig  als  unabhängig 
bezeichnet  wird. 

Soviel  Theorie,  nur  um  seiner  Frau  zu  erklären,  daß  man 
sein  Bier  aus  medizinischer  Notwendigkeit  trinkt,  ist 
schon  hart  -  zumal  wir  ja  immer  noch  nicht  wissen,  wie  die 
eigentliche  Berechnung  vor  sich  geht.  Wer  aber  aufmerk¬ 
sam  mitgedacht  hat,  wird  sehr  schnell  gemerkt  haben,  daß 
es  eine  Fülle  von  Sachverhalten  gibt,  die  womöglich  von¬ 
einander  abhängig  sein  könnten.  Wenn  man  diese  exakt 
fassen  kann,  so  lassen  sich  durchaus  interessante  Aussa¬ 
gen  machen  bzw.  gezieltere  Entscheidungen  treffen.  Und 
darum  geht  es  bei  dieser  statistischen  Methode  natürlich 
in  erster  Linie. 


Wie  geht  man  nun  vor? 


Nehmen  wir  an  -  und  von  nun  an  wird  die  ganze  Sache 
auch  mit  dem  nötigen  Emst  weiterbetrieben.  Sie  möchten 
wissen,  ob  ein  Zusammenhang,  eine  Abhängigkeit  zwi¬ 
schen  dem  Einsatz  an  Werbemitteln  und  dem  erzielten 
Umsatz  besteht.  Die  Klärung  dieser  Frage  hat,  unab¬ 
hängig  von  der  Unternehmensgröße,  sicherlich  unmittel¬ 
bare  Auswirkungen  auf  der  Ausgabenseite.  Sie  erinnern 
sich,  daß  die  lineare  Regression  hierüber  eine  Aussage  in 
Form  einer  mathematisch  definierten  Geraden  trifft. 
Diese  Gerade  wird  in  einer  mathematischen  Gleichung 
der  Form: 

y=m*x+b 

beschrieben.  Sie  hingegen  haben  keine  Gleichung  zur 
Verfügung,  sondern  nur  die  Zahlen  des  Werbeaufwandes 
und  des  Umsatzes  der,  sagen  wir,  letzten  10  Jahre  in  viertel¬ 
jährlicher  Aufstellung,  also  vierzig  Zahlenpaare.  Wie  soll 
hieraus  eine  Geradengleichung  werden,  die  sich  bestmög¬ 
lich  an  die  vierzig  Zahlenpaare  angleicht?  Der  Wissende 
wird  leicht  schmunzeln  und  sagen,  daß  man  ja  nur  die 
Steigung  m  und  den  Ordinatenabschnitt  b  nach  folgenden 
Formeln  ausrechnen  muß: 

m=2x*y-xm*2y/2x2 3 4 5-xm*Zx 
b=ym*2x2-xm*2x*y/2x2-xm*2x 
Die  meisten  Leser  werden  sich  spätestens  nach  dieser 
Stelle  aus  der  weiteren  Betrachtung  der  Angelegenheit  ge¬ 
langweilt  ausblenden.  Doch  keine  Angst,  die  ganze  Sache 
ist  viel  einfacher  als  sie  aussieht.  Man  gehe  nach  folgenden 
Regeln  vor,  die  auch  gleichzeitig  die  Schritte  sind,  welche 
der  Programmierung  des  Problems  zugrunde  liegen: 

1.  Man  nenne  die  unabhängige  Variable  (hier  die  Werbe¬ 
mittel)  x  und  die  abhängige  Variable  (hier  den 
Umsatz)  y. 

2.  Man  summiere  getrennt  alle  x-  und  y-Werte  auf. 

3.  Jetzt  summiere  man  die  Quadrate  der  x-Werte  auf. 

4.  Dann  bilde  man  das  Produkt  aller  x-Werte  mit  den  ent¬ 
sprechenden  y-Werten  und  summiere  alle  Produkte 
auf. 

Jetzt  hat  man  insgesamt  vier  große  Summen,  die  wir  der 
Reihe  nach  wie  folgt  bezeichnen:  x,  y,  x2  und  xy. 

5.  Man  dividiere  die  Summe  der  x-Werte  durch  die  Anzahl 
der  Zahlenpaare  (also  40)  und  tue  dies  auch  für  die 
Summe  der  y-Werte.  So  erhält  man  die  Mittelwerte  für  x 
und  y,  die  wir  analog  mit  xm  und  ym  bezeichnen. 

Die  wesentliche  Arbeit  ist  damit  geschafft.  War  doch  gar 
nicht  so  schwer  -  oder?  Sie  machen  jetzt  noch  folgendes 
zur  Berechnung  von  m  bzw.  b: 
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m=xy-xm*y/x2-xm*x 

und 

b=ym*x2-xm*xy/x2-xm*x. 

Damit  erhalten  Sie  die  Gleichung  der  Regressionsgeraden 
mit  y=m*x-f-b,  die  eine  optimale  Anpassung  an  ihre 
Zahlenpaare  gewährleistet  Außerdem  wird  Ihnen  die 
Möglichkeit  an  die  Hand  gegeben,  durch  Einsetzen  ver¬ 
schiedenster  x-Werte,  die  ja  den  Werbeaufwand  repräsen¬ 
tieren,  Ihren  Umsatz  (y-Werte)  genauer  abzuschätzen.  Sie 
werden  zugeben,  daß  diese  Art  des  Vorgehens  so  schwer 
nicht  ist. 

Das  Programm  gibt  Ihnen  auch  noch  die  Streuung  gegen¬ 
über  der  Regressionsgeraden  und  die  der  Steigung  m  an. 
Man  spricht  hier  von  der  sogenannten  Standardabwei¬ 
chung.  Dies  zu  erklären  würde  ein  bißchen  den  Rahmen 
dieser  Abhandlung  sprengen.  Es  wird  auch  mehr  den 
Fachmann  interessieren.  Für  die  Lösung  unserer  Frage¬ 
stellung  ist  dies  auch  zweitrangig.  Zweitrangig  ist  auch, 
daß  hier  mit  der  Methode  der  kleinsten  Quadrate  gearbei¬ 
tet  wurde.  Wichtiger  ist  die  Möglichkeit  des  Programms, 
schon  bei  der  Eingabe  der  Zahlenwerte  zu  erkennen,  ob 
ein  linearer  Zusammenhang  bestehen  könnte.  Dazu  wer¬ 
den  die  eingegebenen  Werte  qualitativ  auf  der  rechten 
Bildschirmseite  grafisch  ausgegeben.  Zeigt  sich,  daß  die 
Werte  zusammenhangslos  verteilt  sind,  so  dürfte  ein  linea¬ 
rer  Zusammenhang  nicht  bestehen.  Man  erspart  sich 
dann  viel  Eintipparbeit,  wenn  man  das  Programm  ab¬ 
bricht.  Weiterhin  ermöglicht  das  Programm  die  qualita¬ 
tive  Darstellung  der  Regressionsgeraden  in  einem  Koor¬ 
dinatensystem.  Qualitativ  bedeutet  hier,  daß  im  Zweifels¬ 
fall  nur  die  Richtung  der  Geraden  angezeigt  wird,  nicht 
aber  die  exakten  Werte.  Zur  Begutachtung  des  Ergebnisses 
ist  dies  für  die  überwiegende  Anzahl  von  Fällen  wohl  aus¬ 
reichend.  Exaktere  Angaben  erhält  man  durch  die  Option 
"Berechnung  von  Zwischenwerten".  Der  Ausdruck  aller 
Berechnungen  ist  zudem  auch  noch  möglich.  Wenn  man 
sich  die  zugrundeliegenden  mathematischen  Formeln  an¬ 
sieht,  fällt  auf,  daß  z.B.  unter  ungünstigen  Bedingungen 
auch  einmal  eine  an  sich  verbotene  Division  durch  Null 
o.ä.  möglich  ist.  Dies  ist  kein  Beinbruch,  da  das  Programm 
eine  Fehlerroutine  enthält,  die  auf  derartige  Mißgeschicke 
aufmerksam  macht. 

Kommen  wir  nun  zur  Korrelation.  Sie  wissen  zwar,  daß 
eine  Abhängigkeit  zwischen  Ihren  Zahlenpaaren  besteht. 
Das  Ausmaß  dieser  Abhängigkeit  ist  Ihnen  aber  unbe¬ 
kannt.  Mit  Hilfe  der  Korrelationsrechnung  läßt  sich  aber 
auch  dies  berechnen.  Der  zu  berechnende  Korrelations¬ 
faktor  wird  durch  eine  Zahl  zwischen  -1  bis  +1  repräsen¬ 
tiert.  Zu  deuten  ist  dieser  Umstand  wie  folgt: 

Von  0  bis  +1  wird  eine  Abhängigkeit  der  zufälligen  Va¬ 
riablen  in  dieselbe  Richtung  erkannt:  steigt  die  eine  Va¬ 
riable,  so  steigt  auch  die  andere  -  und  zwar  in  dieselbe 
Richtung,  wobei  ein  steigender  Faktor  eine  steigende  Ab- 
hängikeit  bedeutet. 

Von  0  bis  -1  wird  eine  Abhängigkeit  in  entgegengesetzter 
Richtung  dargestellt:  steigt  die  eine  Variable,  so  fällt  die 
andere. 

Die  Zahl  0  bedeutet  keine  Abhängigkeit  der  Variablen  in 
der  Form,  daß  eine  Änderung  der  eine  Variablen  eine  Än¬ 
derung  der  anderen  Variablen  zur  Folge  hat. 

Bei  unserer  Betrachtung  wollen  wir  uns  wieder  dem  bereits 
bekannten  Zwei-Variablen-Modell  zuwenden.  Es  gibt  ver¬ 
schiedene  Korrelationsfaktoren.  Der  hier  verwendete  Kor¬ 
relationsfaktor  von  Bravais-  Pearson  hat  gegenüber 
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Hier  wird  dem  Leser  das  notwendige  Know-how  zur  gra¬ 
fischen  Anwendungsprogrammierung  vermittelt.  Das 
Buch  ist  im  weitesten  Sinne  eine  Anleitung  für  spannen¬ 
des,  schöpferisches  Experimentieren  mit  konkreten  Auf¬ 
gaben.  Angesprochen  sind  alle,  die  sich  beruflich  mit 
zeichnerischen,  gestalterischen  und  werblichen  Dingen 
befassen.  Die  Programme  sind  auf  dem  Schneider  CPC 
konzipiert  und  dennoch  auf  jedem  Rechner  mit  hochauf¬ 
lösender  Grafik  ersetzbar.  Die  entsprechenden  Hin¬ 
weise  zur  Programmanpassung  liefert  dieses  Buch. 

Aschoff,  Martin 

Hardware-Erweiterungen  für  Z80-Rechner 

Selbstgeplant  und  selbstgebaut 

236  Seiten,  120  Abb.,  38,-  DM,  ISBN  3-8023-0849-2 

Das  Buch  beginnt  mit  einer  Einführung  in  die  Hardware 
von  Z80-Rechnern  am  Beispiel  des  Schneider  CPC  464 
und  verdeutlicht  den  grundlegenden  Aufbau  von  Com¬ 
putern.  Es  beschreibt  die  Verfahren  der  Datenein-  und 
-ausgabe  und  stellt  Standardschaltungen  zur  Steuerung 
von  elektrischen  Verbrauchern  zu  vielen  Selbstbaupro¬ 
jekten  vor. 


Weitere  starke  Titel: 

Baumgart,  Harald 

Höhere  Mathematik  auf  dem  CPC  464 

Programme  mit  Erklärungen  des  Lösungsweges 
und  Beispielen 

192  Seiten,  33,-  DM,  ISBN  3-8023-0856-5 


Vine,  Jeremy 

Start  in  die  Künstliche  Intelligenz  mit  dem  Schneider 
CPC  464 

Eine  Einführung  in  BASIC  mit  Dialogprogrammen 
104  Seiten.  41  Abb..  23.-  DM.  ISBN  3-8023-0863-8 


Gregory,  Jim 
Superspiele  und  Utilities 
für  CPC  464  und  664 

Eine  Fundgrube  für  BASIC- 
und  Spielefreaks 
224  Seiten,  25  Abb. 

33,-  DM 

ISBN  3-8023-0870-0 


Sie  erhalten  bei  Ihrem  Buch  und 
Computerfachhändler  kostenlos  das 
neue  Verzeichnis  ..VOGEL  Computer¬ 
bücher"  mit  ca  100  Titeln 


VOGEL-BUCHVERLAG 

WÜRZBURG 


r VOGEL— Computerbücher 
mehr  wissen,  mehr  leisten 
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manch  anderem  den  Vorteil,  daß  er  nicht  nur  die 
Rangfolge  der  Beobachtungsergebnisse  berücksichtigt, 
sondern  auch  ihr  quantitatives  Verhältnis  zueinander. 
Wie  gehen  wir  diesmal  vor?  Auch  hier  wird  der  Wissende 
kalt  lächelnd  folgende  Formel  zur  Berechnung  des  Korre¬ 
lationsfaktors  r  aus  dem  Zylinder  ziehen: 

r=Z(x-xm)*(y-ym)/SQR(2(x-xm)2*2(y-ym)2) 

Diese  Formel  ist  nicht  weniger  furchterregend  als  die  be¬ 
reits  bei  der  Berechnung  der  Regression  genannten  For¬ 
meln.  Wir  haben  auch  jetzt  nur  wieder  unsere  vierzig 
Zahlenpaare  zur  Verfügung.  Aber  seien  Sie  guter  Dinge, 
daß  wir  auch  damit  wieder  zum  Ziel  kommen.  Folgende 
Schritte,  die  auch  wieder  Grundlage  des  Programmes 
sind,  sollten  in  der  aufgezeigten  Reihenfolge  durch¬ 
geführt  werden: 

1.  Summieren  Sie  alle  zuerst  eingegebenen  x-Werte  auf 
und  nennen  Sie  die  Summe  xs. 

2.  Dasselbe  machen  Sie  mit  den  zweiten  eingegebenen  y- 
Werten.  Summenname  ist  ys. 

3.  Jetzt  subtrahieren  Sie  von  jedem  x-Wert  den  bereits  be¬ 
kannten  Mittelwert  xm  und  notieren  das  Ergebnis. 

4.  Für  die  y-Werte  machen  Sie  dasselbe,  subtrahieren  aber 
den  Mittelwert  ym. 

5.  Nun  bilden  Sie  die  Quadrate  der  unter  Punkt  3  ermittel¬ 
ten  Werte  und  summieren  diese  zur  Summe  xs2  auf. 

6.  Ebenso  verfahren  Sie  mit  den  unter  Punkt  4  ermittelten 
Werten.  Die  Aufsummierung  kann  hierys2  lauten. 

7.  Nun  bilden  Sie  das  Produkt  der  Werte  unter  Punkt  3 
mit  den  entsprechenden  Werten  unter  Punkt  4  (also 
l.Wert  mit  l.Wert  usw.)  und  summieren  auch  hier  die 
Ergebnisse  zur  Summe  xsys  auf. 

8.  Multiplizieren  Sie  jetzt  xs2  mit  ys2  und  ziehen  Sie  aus 
dem  Ergebnis  die  Wurzel,  die  Sie  elegant  w  nennen. 

Damit  ist  im  Grunde  alles  getan.  Nunmehr  den  Korrela¬ 
tionsfaktor  r  zu  bestimmen,  ist  so  einfach,  daß  man  sich 
fast  schämt,  dies  zu  sagen: 

r=xsys/w. 

Das  war  s.  Sie  kennen  jetzt  das  Ausmaß  der  Abhängigkeit 
der  beiden  von  Ihnen  untersuchten  Variablen. 

In  dem  Programm  wird  darüber  hinaus  die  sogenannte 
Gültigkeit  der  Nullhypothese  mit  den  Sicherheits¬ 
wahrscheinlichkeiten  95%  (=0.95)  und  99%  (=0.99)  unter¬ 
sucht  Hierdurch  wird  angegeben,  mit  welcher  Sicherheit 
ihr  Ergebnis  für  r  zutrifft.  Vereinfacht  gesagt  ist  die  je¬ 
weilige  Sicherheitswahrscheinlichkeit,  daß  ihr  Ergebnis 
richtig  ist,  immer  dann  erreicht,  wenn  r  größer  ist  als  der 
Faktor  der  jeweiligen  Sicherheitswahrscheinlichkeit. 
Gestattet  seien  noch  einige  Anmerkungen  zu  dem 
Programm.  Die  Ergebnisse,  die  es  liefert,  sind  um  so  aussa¬ 
gekräftiger,  je  größer  die  Anzahl  der  eingegebenen  Wer¬ 
tepaare  ist.  Eine  Anzahl  unter  30  sollte  in  der  Regel  vermie¬ 
den  werden.  Eingesetzt  kann  es  überall  dort  werden,  wo 
Abhängigkeiten  untersucht  werden  sollen,  und  dies  kann 
praktisch  überall  der  Fall  sein  und  nicht  nur  bei  dem  indi¬ 
viduellen  Bierkonsum.  Das  Hauptaugenmerk  ist  auf  die 
Berechnung  gelegt.  Die  grafische  Darstellung  ist  auf  ein 
Minimum  reduziert.  Fehlen  sollte  sie  der  Anschaulichkeit 
wegen  aber  nicht.  Geschrieben  ist  das  Programm  in 
MALLARD-BASIC. 

So,  jetzt  wo  der  Schluß  erreicht  ist,  werden  Sie  natürlich  sa¬ 
gen,  daß  Sie  die  ganze  Sache  Ihrer  Frau  nicht  werden  klar 
machen  können.  Wenn  Sie  sich  aber  einmal  mit  dem 
Programm  beschäftigen,  werden  Sie  feststellen,  daß  dieser 
Einwand  nicht  gelten  kann.  Das  Programm  ist  denkbar 
einfach  in  der  Bedienung.  Es  erklärt  sich  fast  von  selbst,  ist 
zudem  menuegesteuert  und  enthält  eine  Erläuterung,  so 
daß  Sie  nur  noch  die  Daten  eingeben  müssen.  Wundern 
dürfen  Sie  sich  allerdings  nicht,  wenn  Ihre  Gattin  nach 


Gebrauch  des  Programms  auch  beginnt,  aus  rein  medizi¬ 
nischen  Erwägungen,  mit  von  Ihrem  Bier  zu  trinken. 

(Siegfried  Jeske/MC) 


100  REM  Titel , Dimensionierung  und  Variableneinstel 
Lung 

110  cS=CHRS <27>+"E" 

120  DEFDBL  a, b, x, y, r, e, s, v 
130  OPTION  BASE  1 
140  DIM  A<150> , B <150 > 

150  PRINT  cS 

160  PRINT  "Berechnung  der  LINEAREN  REGRESSION  und 
der  KORRELATION“ 

170  PRINT  " - 


180  PRINT: PRINT: PRINT:  PRINT:  PRINT: 

190  INPUT  "Erläuterungen  <J/n)";qS 

200  IF  qS="j"  THEN  1640 

210  PRINT  cS 

220  FOR  i  =  l  TO  150 

230  A (i ) =0 

240  B < i ) =0 

250  NEXT 

260  c=0 : xi=0; yi=0: xi2=0: xiyi =0 : xk2=0 : yk2=0: xkyk=0: 

ei2=0: : stb=0 : w=0: y3=0 

270  ON  ERROR  GOTO  1920 

280  REM  Definition  der  Eingaben 

290  INPUT  "Zahleneingabe  in  Einer <  =  1 >, Zehner <=10>  , 
Hunderter  <=100 )" ■ w 
300  PRINT  c $ 

310  PRINT  CHR$  <27 > ; " Y" ; CHRS  <33 ) ; CHRS  <33 ) ; 

320  INPUT  "Anzahl  der  Wertepaare  02 >"; c 

330  IF  c<3  THEN  320 

340  PRINT  cS 

350  FOR  1=1  TO  30 

360  PRINT  CHRS  <27> ; “ Y" ; CHRS <32  +  i > ; CHRS <70>;CHRS <24 
3) ; 

370  NEXT 

380  PRINT  CHRS <27 ) ; "Y" ; CHRS <47 >; CHRS <70 ); CHRS <78 )  ; 
390  FOR  i=l  TO  c 

400  PRINT  CHRS <27 >; "Y" : CHRS <32+i> ; CHRS <33 ) ; 

410  INPUT  "Wertepaar" ; A<i> ,B<i) 

420  GOSUB  850 
430  NEXT 

440  FOR  i=l  TO  2000 
450  NEXT 

460  REM  Berechnungen 
470  FOR  i=l  TO  c 
480  xi=xi +A < i ) 

490  yi=yi+B  < 1 > 

500  xi2=xi2+A  <i ) “2 
510  xiyi=xiyl+A  <i >  *B  <i > 

520  xra=xi /c  :  ym=yi /c 

530  a=  <ym*xi2-xm*xiyi ) / <xi2-xm*xi > 

540  b=  <xiyi-x:ra*yi )  /  <xi2-xra*xi > 

550  xk2=xk2+  < A  <i > -xm) ~2 
560  yk2=yk2+  <B  < i > -ym) ~2 
570  xkyk=xkyk+  <A  <i  > -xm) *  <B <i > -ym) 

580  r=xkyk/SQR<xk2*yk2> 

590  NEXT 

600  FOR  i= 1  TO  c 

610  ei2=ei2+  <  <B  <i > -ym)-b*  <A  < i > -xm>  >  *2 
620  NEXT 

630  REM  Berechnung  der  Standardabweichungen 
640  s2=e 12/ <c-2> 

650  s=SQR  <s2  > 

660  varb=s2/ <xi2-xm*xi ) 

670  stb=SQR(varb> 

680  sn= 1 /SQR  <c-l ) 

690  sw3=sn*1.96 

700  sw2=sn*2.58 

710  REM  Bildschirmausgabe 

720  PRINT  cS 

730  PRINT  "Die  Gleichung  der  Regressionsgeraden  la 
utet: " ,  , "Y=" ; ROUND <b, 2) ; "*X+" ; ROUND  <a , 2) : PRINT: PRI 
NT: PRINT 

740  PRINT  "Die  Steigung  beträgt ROUND <b, 5 >: PR 
INT  “Der  Ordinatenabschnitt  beträgt:", , ,ROUND<a,5) 

: PRINT: PRINT: PRINT  "Der  Korrelationsf aktor  beträgt 
: " , , , ROUND <r, 5) : PRINT: PRINT 

750  PRINT  "Die  Mittelwerte  betragen 1 . Wert=“ ; RO 
UND <xm,  5)  ;  "und" , "2.  Wert=" ; ROUND <ym,  5)  :  PRINT:  PRINT 
760  PRINT  "Die  Standardabweichung  gegenüber  der  Re 
gressionsgeraden  beträgt: " , ROUND <s, 5) : PRINT: PRINT 
"Die  Standardabweichung  des  Ste igungskoef f izienten 
beträgt:  "  ,  ROUND <stb ,  5 )  :  PRINT:  PRINT 
770  PRINT  "Gültigkeit  der  Nullhypothese" 
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Praktische  Textverarbeitung  mit 


JOYCE 

Sch  reib- Praxis  Paket* 

Buch  &  Diskettenpaket  zur  praxisnahen  Anwendung  von  LocoScript 


Ein  Novum  unter  den  Computerbüchern! 


Bunt  gemischtes  Anwender-Paket  für  den 
Joyce-Texter:  Buch  +  Diskette  mit  Wort-Ex¬ 
perimenten,  Tips  und  Tricks,  einem  Layout- 
Archiv,  dem  LocoScript-Software-Training, 
literarischen  Text-Beispielen,  »historischen 
Simulationen,  Insider-Plaudereien  und  feuille- 
tonistischen  Abwegen«,  theoretischen  Notizen 

und  vieles  mehr. 

Ein  Wegweiser  durch  die  Welt  der  Textver¬ 
arbeitung. 

Abwechslungsreicher  Lesestoff  für  Neulinge 
und  Fortgeschrittene,  der  über  die  Grenzen 
des  Computerschreibtischs  hinausführt. 


Auf  Diskette: 

1 .  Der  »LocoScript-Zettelkasten«  bietet 
direkten  Zugriff  auf  zahlreiche  LocoScript- 
Standard-Schablonen  in  über  50  Dateien. 
Dazu:  Mustertexte,  Editierübungen,  Schrift¬ 
beispiele,  Serienbriefe,  Spaltendruck, 
Tabellen,  Telefonregister,  typographische 
Experimente,  Text-Kostproben, 
und  vieles  mehr. 
2.  WordStar-Tastendefinitionsdatei 
mit  Referenzkarte,  WS-Stapeldatei  für 
Startdiskette  (beides  individuell 
anzupassen). 
3.  LOGO-  und  BAS  IC- Programme  zur 
Erstellung  computergenerierterSätze  und 

Gedichte. 
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*Buch  +  Diskette  für  LocoScript  und  WordStar-Autoren  von  DMV 

Ca.  200  Seiten,  Einband:  Leinen-Hardcover 
Buch  und  3”-Diskette  zum  Preis  von  89,-  DM 

Lieferbar  ab  Mitte  September  1 986. 
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Fachbuchhandel  oder  direkt  beim  Verlag.  Händleranfragen  erwünscht. 

DMV  Verlag,  Fuldaer  Str.  6,  Postfach  250,  3440  Eschwege 


780  PRINT  " - PRINT 

790  PRINT  " Sicherhe itswahrsche lnl ichkeit=0 .  95 
, ROUND  <sw3 , 5 ) 

800  PRINT  "Sicherheitswahrscheinlichkeit=0. 99  : "  ,  , 

, ROUND ( sw2 , 5 ) : PRINT: PRINT 

810  INPUT  " Auswahl-Menue <  =  1 > /Ende <=2> "  ;  ww 
820  ON  ww  GOTO  900,830 
830  END 

840  REM  Darstellung  der  eingegebenen  Werte 
850  q3=A<i)/w:IF  38+q3<0  OR  38+q3>122  GOTO  880 
860  q2=B<i)/w:IF  15+q2<l  OR  15+q2>31  GOTO  880 
870  PRINT  CHR*  <27 > ; ” Y" ; CHR*  <47-q2  > ; CHR*  <70+q3 ) ; CHR 
*  <42 ) 

880  RETURN 

890  REM  Auswahl-Menue 
900  PRINT  c * 

910  PRINT  "  AUS 

WAHL-MENUE" 

920  PRINT  "  - 


930  PRINT: PRINT: PRINT 

940  PRINT  "Noch  elnmal=l"  :  PRINT 

950  PRINT  "Ausdruck  der  Berechnungen=2" : PRINT 

960  PRINT  " Graph <Trend>  der  Regressionsgeraden=3"  : 

PRINT 

970  PRINT  "Berechnung  von  Zwischenwerten=4" : PRINT 
980  PRINT  “Anzeige  der  Berechnungen=5" : PRINT 
990  PRINT  “ Ende =6" 

1000  PRINT: PRINT: PRINT 
1010  INPUT  "Auswahl" ; w2 

1020  ON  w2  GOTO  210,1040,1190,1380,720,830 
1030  REM  Druckerausgabe  der  Berechnungen 
1040  PRINT  cS 

1050  LPRINT  "Die  Gleichung  der  Regressionsgeraden 
lautet: " , "Y=" ; ROUND <b, 2> ; "*X+" ; ROUND  <a , 2  > : LPRINT: L 
PRINT: LPRINT 

1060  LPRINT  "Die  Steigung  beträgt : M ,, ROUND <b, 5) : LP 
RINT  "Der  Ordinatenabschnitt  beträgt  :'*,  ROUND <a,  5)  : 
LPRINT: LPRINT: LPRINT  "Der  Korrelationsfaktor  beträ 
gt : " , ROUND  <r , 5  > : LPRINT: LPRINT 

1070  LPRINT  "Die  Mittelwerte  betragen: " , " 1. Vert=" ; 
ROUND <xn,  5) ;  " und"  ;  "  2 . Vert=" ; ROUND  <ym, 5 > : LPRINT : LPR 
INT 

1080  LPRINT  "Die  Standardabweichung  gegenüber  der 
Regressionsgeraden  beträgt: ” ; ROUND<s, 5) : LPRINT: LPR 
INT  “Die  Standardabweichung  des  Steigungskoef f izie 
nten  beträgt: " ; ROUND < st b, 5) : LPRINT: LPRINT 
1090  LPRINT  "Gültigkeit  der  Nullhypothese" 

1100  LPRINT  " - " 

1110  LPRINT  : LPRINT  "Sicherheitswahrscheinlichkeit 
=  0.95  : " , ROUND (sw3 , 5 ) 

1120  LPRINT  " Slcherheitswahrscheinl ichkeit=0 . 99  :" 

, ROUND  <  s w2 , 5 ) : LPR I NT : LPR I NT 
1130  LPRINT  "xi",,,"yi" 

1140  LPRINT  " — " , , , " — " 

1150  FOR  i=l  TO  c 
1160  LPRINT  A <i ) ,  , , B<i> 

1170  NEXT 
1180  GOTO  900 
1190  PRINT  c$ 

1200  REM  Darstellung  des  Graphen 
1210  FOR  1=1  TO  15 

1220  PRINT  CHR*  <27) ; " Y" ; CHR*  <35+i ) ; CHR*  <42>  ;  CHR*  <2 
43  > ; 

1230  NEXT 

1240  FOR  i=l  TO  65 

1250  PRINT  CHR* <27 ) ; "Y” ; CHR* <50 ) ; CHRS <42+i> ; CHR* <9 
5  > 

1260  NEXT 

1270  PRINT  CHR* <27 ) ; " Y" ; CHR* <34 > ; CHR* <42 > ; CHR* <121 

)  ; 

1280  PRINT  CHR*  <27 ) ; " Y“ ; CHR*  <50) ; CHR*  < 1 15  > ; CHR*  < 12 
0)  ; 

1290  FOR  12=-5  TO  50 
1300  y3=b*i2+a 
1310  GOSUB  1780 

1320  PRINT  CHR* <27) ; "Y" ; CHR*<50-y3> ; CHR* <42+i2) ; CH 
R*  <42  > ; 

1330  NEXT 

1340  PRINT  CHR* <27 >  ;  " Y" ; CHR* <59 ) ; CHR* <33 ) ; 

1350  INPUT  " Auswahl-Menue=l"  ;  w3 
1360  ON  w3  GOTO  900 

1370  REM  Berechnung  von  Zwischenwerten 
1380  PRINT  c* 

1390  PRINT  "Die  Regressions-Gleichung  lautet :","Y= 
"  ;  ROUND <b, 2) ; “*X+" ; ROUND <a, 2> 

1400  PRINT: PRINT: PRINT 

1410  INPUT  "Berechnung  von.  .  . bis , Schrittwei te" ; w5 , 
w6 ,  w7 


. . . . . . . Mil . IIIDIIIII . II . . II . I . I . . 

1420  PRINT: PRINT: PRINT 
1430  PRINT  "X" , , , "Y" 

1440  PRINT 

1450  FOR  l  =  w5  TO  w€  STEP  w? 

1460  y2=b*i+a 

1470  PRINT  i , , , ROUND <y2, 3) 

1480  NEXT 

1490  PRINT: PRINT: PRINT 

1500  INPUT  "Noch  Zahlen=l/Drucken=2/Auswahl-Menue= 
3"  ;  w8 

1510  ON  wö  GOTO  1380,-1530,900 

1520  REM  Druckerausgabe  von  Zwischenwerten 

1530  PRINT  c* 

1540  LPRINT  "Die  Regressionsgleichung  lautet :",“Y= 

" ; ROUND <b, 2 ) ; "*X+" ; ROUND  <a, 2) : LPRINT:  LPRINT:  LPRINT 
1550  LPRINT  "Berechnung  von: w5; "bis" ; w6; "Schritt 
weite: "w7: LPRINT: LPRINT : LPRINT 
1560  LPRINT  ” X" , , , " Y" 

1570  LPRINT 

1580  FOR  i=w5  TO  w6  STEP  w7 
1590  y2=b*i+a 

1600  LPRINT  i , , , ROUND <y2, 3) 

1610  NEXT 
1620  GOTO  900 
1630  REM  Erläuterungen 
1640  PRINT  c* 

1650  PRINT  "Erläuterungen" 

1660  PRINT  " - PRINT:  PRINT:  PRINT 

1670  PRINT  "Das  Programm  berechnet  die  lineare  Reg 
ression  und  den  Korrelationsfaktor  nach  Bravais- 
Pearson  für  eine  Reihe  einzugebender  Zahlenpaare 
. " : PRINT 

1680  PRINT  "Zunächst  fragt  das  Programm, ob  die  Zah 
lenpaare  als  Einer, Zehner  oder  Hunderter  eingegebe 
n  werden  sollen.  Danach  wird  nach  der  Anzahl  der  e 
inzugebenden  Zahlenpaare  gefragt. Es  können  b 

ls  zu  150  Zahlenpaare  eingegeben  werden .": PRINT 
1690  PRINT  "Um  vorab  sehen  zu  können, ob  überhaupt 
ein  linearer  Zusammenhang  zwischen  den  eingegebene 
n  Zahlenpaaren  besteht, ist  der  Bildschirm  für  die 
Eingabe  zweigeteilt.  Die  linke  Seite  nimmtdie  Zahl 
en  auf, die  rechte  Seite  stellt  sie  grafisch  dar." 
1700  PRINT  " <N  ist  der  Koordi naten-Nu 1 lpunkt . > " : PR 
INT 

1710  PRINT  "Sollte  sich  aufgrund  der  grafischen  Da 
rstellung  ein  nichtlinearer  Zusammenhang  zeigen, so 
spart  man  sich  die  Arbeit  weiterer  Zahleneingabe 
n  durch  Abbruch  mit  der  <Stop-Taste> .": PRINT 
1720  PRINT  "Aufgrund  der  benutzten  mathematischen 
Formeln  können  evtl.  Divisionen  durch  Null  Vorkom¬ 
men.  Das  Programm  hat  eine  Fehlermeldung  mit  Anz 
eige  der  Fehlerzeile  und  Fehlerart  sowie  eines  To 
ns. " : PRINT 

1730  PRINT  "Das  Auswahl-Menue  läßt  verschiedene  Op 
tionen  der  weiteren  Bearbeitung  zu.  Der  Graph  der 
Regressionsgeraden  wird  allerdings  nur  als  Trend 
dargestellt. " : PRINT 

1740  PRINT  "Alle  Eingaben  sind  mit  der  <Return>-bz 
w.  <Enter>-Taste  abzu  schl ießen. PRINT : PRINT 
1750  INPUT  "Weiter  <=j>";J* 

1760  IF  j*=“j"  THEN  210  ELSE  830 

1770  REM  Berechnungen  für  den  Graphen 

1780  IF  w=10  THEN  1880 

1790  IF  w=100  THEN  1830 

1800  IF  y3>20  THEN  1810  ELSE  1910 

1810  y3=20 

1820  GOTO  1910 

1830  IF  y3>20  THEN  1860  ELSE  1840 

1840  y3=20 

1850  GOTO  1910 

1860  y3=y3/63. 7251 

1870  GOTO  1910 

1880  y3=y3/w 

1890  IF  y3>20  THEN  1900  ELSE  1910 
1900  y3=20 
1910  RETURN 

1920  REM  Fehlerroutine 

1930  ecod=ERR: IF  ERR=11  GOTO  2020  ELSE  PRINT  "Fehl 
er" 

1940  PRINT  CHR*  <7 ) 

1950  aa=ERL 

1960  PRINT  "In  Zeile  Nr.:";aa 
1970  bb=ERR 

1980  PRINT  "Fehler-Nr. =" ;bb 

1990  PRINT: PRINT:  PRINT 

2000  FOR  1=1  TO  2000 

2010  NEXT 

2020  RESUME  NEXT 

2030  END 
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Abo-Order 

»ZEITSCHRIFT« 

»DATABOX« 

Antwortkarte 

Das  kompetente  Magazin  für 
alle  Schneider-Anwender! 

Schneider  CPC  International 

Bestellen  Sie  noch  heute 

Postfach  250 

Ihr  Abonnement 
mit  dieser  Postkarte! 
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Absender;  (Bille genaue  Anschrift  angeben!) 


Name 
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Schneider  CPC  International 
Postfach  250 


Firma 


StraBe/Nr  /Postfach 


PLZ/Ort 
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Antwortkarte 


Name 


Vorname 


Firma 


Schneider  CPC  International 
Postfach  250 


Straße/Nr /Postfach 


3440  Eschwege 


PLZ/Ort 


»Abo-Order  Zeitschrift« 

Hiermit  bestelle  ich  „Schneider  CPC  International"  für  mindestens 

□  1/2  Jahr  □  1  Jahr 

Zustellung,  Vertriebskosten  und  MwSt  sind  im  günstigen 
Preis  von  30,-  DM  bzw.  60,-  DM  enthalten  (BRD  und  West-Berlin), 
Auslandspreise:  Europa  12  Ausgaben  -  90,-  DM, 

6  Ausgaben  -45,-  DM 

AuBereurDpälsches  Ausland  12  Ausgaben  -  120,-  DM, 

6  Ausgaben  -  60,-  DM 

Lieferung  soll  ab  Ausgabe  Nr  erfolgen 


Ueteranschrlft 

□  Geschäft 

1  I  LI.  J 

Vorname,  Name 

L I  M  1 


Firma  (nur  wenn  Ueleradressc) 


Straße,  Nr /Pos  .ach 
I  I  i  ,  I 


PLZ/Ort  (Bille genaue  Anschrift  angeben!) 

Dieses  Abonnement  verlängert  sich  automatisch  um  1/2  bzw  1  Jahr,  wenn 
es  nicht  sechs  Wochen  vor  Ablaut  schriftlich  gekündigt  wird 


»Abo-Order  DATABOX« 

Hiermit  bestelle  ich  die  □  CPC  Databox  □  Joyce-Databox 
für  mindestens  □  1/2  Jahr  □  1  Jahr 
als  DCassette  □  Diskette 

Bezugspreise  Inland  (einschl,  Porto/Verpackung) 

Cass  1/2  Jahr  90,- DM,  1  jahr  1 80.-  DM 
Disk  3"  1/2  Jahr  150,-  DM,  1  Jahr  300,-  DM 
Bezugspreise  Ausland  (eingeklammerte  Werte  außereuropäisch) 
Cass  1/2  Jahr  100,- (120.-)  DM,  1  Jahr  200,- (240,-)  DM 
Disk  3"  1/2  Jahr  160,-  (180,-)  DM,  1  Jahr  320.-  (360,-)  DM 
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Geldinstitut 

□  Gegen  Rechnung  -  zahlbar  innerhalb  zwei  Wochen  nach  Erhalt 


(Bitte  keine  Vorauszahlung  leisten  -  Rechnung  abwarten ) 

Garantie: 

Ich  weiß,  daß  ich  diese  Vereinbarung  innerhalb  einer  Woche  bei  der  Bestell¬ 
adresse  schriftlich  widerrufen  kann,  wobei  bereits  die  rechtzeitige  Absen- 
dung  meines  Widerrufschreibens  zur  Fristwahrung  ausreicht  Ich  bestätige 
das  durch  meine  zweite  Untetschrilt 


□  Privat 


Gewünschte  Zahlungswelse: 

□  Bequem  und  bargeldlos  durch  Bankabbuchung 


Datum  Unterschrift 

(bei  Minderjährigen:  Unterschritt  des  ges  Vertreters) 

Bitte  unbedingt  zwei  Unterschriften  leisten! 


Dalum 


Unterschritt 
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Abo-Zeitschrift 

Abo-DATABOX 

Bestellen  Sie  Ihr  Abonnement  mit 
der  nebenstehenden  Karte! 
Preisvorteil  gegenüber  dem  Einzel¬ 
bezug! 

Mit  einem  Databox-Abo  erhalten  Sie 
die  Software  zum  Magazin  immer 
pünktlich  und  mit  einem  saftigen 
Preisvorteil  gegenüber  dem  Einzel¬ 
bezug! 


Bestellkarte 
»RESTPOSTEN-PACK  1985« 
»EINZELHEFTE  1986« 

Wir  räumen  unser  Lager  und  bieten 
unseren  Lesern,  die  1 985  noch  nicht 
„dabei"  waren,  die  Möglichkeit,  die 
noch  vorhandenen  Ausgaben  des  ver¬ 
gangenen  Jahres  preisgünstig  „im 
Paket”  zu  erstehen.  Dies  sind  die 
Ausgaben  10, 11  und  12/85,  sowie 
eine  weitere  Ausgabe  des  Jahres 
1985. 

Bitte  benutzen  Sie  hierfür  die  neben¬ 
stehende  Karte! 

Die  1 986’er  Ausgaben  sind  noch 
sämtlich  erhältlich. 


»DATABOX« 

Einzelbezug 

Die  Software  zum  Magazin! 
Problemlos  bestellen  mit  der  Anfor¬ 
derungskarte! 
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Programmintemes... 


MAXZAH  L 


Nachdem  seit  Anfang  dieses  Jahres  in  unserer  Joyce- Rubrik 
viele  nützliche  Tips  und  Anregungen  sowie  einige  Programme 
zu  konkreten  Anwendungen  erschienen  sind,  soll  der  Wunsch 
vieler  Leser  nach  Abwechslung  und  Amüsement  erfüllt  wer¬ 
den:  Hier  also  erstmals  die  Veröffentlichung  eines  Spieles  in 
dieser  Rubrik! 


Worum  geht’s? 


Gespielt  wird  auf  einem  8x8  Felder  großem  Spielfeld.  Auf 
diesem  sind  die  Zahlen  -9  bis  15  mit  unterschiedlicher 
Häufigkeit  (kleinere  Beträge  öfters)  auf  Zufallsbasis  ver¬ 
teilt.  Mit  Hilfe  der  beiden  Cursor-Pfeil-Tasten,  Cursor 
rechts  und  Cursor  links,  muß  der  Spieler  innerhalb  einer 
Zeile  eine  "beliebige”  Zahl  ansteuern  und  anschließend 
mit  der  ENTER-Taste  auswählen.  Diese  Zahl  wird  dann 
dem  Punktekonto  des  Spieler  gutgeschrieben  und  aus  dem 
Spielfeld  gelöscht.  Daraufhin  sucht  sich  JOYCE  in  der 
durch  des  Spielers  Wahl  festgelegten  Spalte  ebenfalls  eine 
Zahl,  die  dem  Punktekonto  des  Computers  gutgeschrie¬ 
ben  wird.  Nun  ist  wieder  der  Spieler  in  der  durch  die  Wahl 
des  Rechners  bestimmten  Zeile  am  Zuge  usw. 

Dies  wird  solange  fortgesetzt,  bis  entweder  keine  Zahlen 
mehr  auf  dem  Spielfeld  sind  oder  kein  gültiger  Zug  mehr 
möglich  ist.  Gewonnen  hat,  wer  am  Spielende  die  meisten 
Punkte  auf  seinem  Konto  hat. 

Die  augenblicklich  vom  Spieler  angesteuerte  Zahl  wird 
invers  dargestellt,  die  vom  Rechner  gewählte  Position 
durch  zwei  inverse  Sterne.  JOYCE  kann  in  vier  Spielstär¬ 
ken  spielen,  von  denen  die  Stufe  1  die  leichteste  ist.  Sollte 
der  Spieler  sich  unterschätzen  und  den  Rechner  in  einer 
zu  niedrigen  Stufe  spielen  lassen,  so  wird  JOYCE  von  sich 
aus  auf  eine  anspruchsvollere  Spielstärke  umschalten  und 
dem  Spieler  dieses  mitteilen. 


Falls  Sie  sich  über  die  erst  bei  2000  beginnende  Zeilennu¬ 
merierung  wundern:  Das  Programm  wurde  so  geschrie¬ 
ben,  daß  es  auch  über  einen  vom  Autor  programmierten 
Spielemonitor  (SPIELBOX,  auf  der  Data-Box  enthalten) 
aus  einem  Menue  gestartet  werden  kann.  Gesteuert  wird 
dies  über  den  Schalter  bxsw%.  Ist  dieser  gleich  1,  so  kehrt 
das  Programm  zum  Spielemonitor  zurück,  andernfalls 
wird  es  normal  mit’END'  beendet.  Sie  brauchen  sich  aber 
um  diese  Option  nicht  zu  kümmern:  Tippen  Sie  das 
Programm  ein,  wie  es  hier  abgedruckt  ist,  und  speichern 
Sie  es  unter  dem  Dateinamen  ’MAXZAHL.BAS’.  Sie  kön¬ 
nen  es  dann  wie  ein  herkömmliches  Basic-Programm  la¬ 
den  und  starten. 

Nach  einleitenden  Aktionen,  wie  Konstanten  definieren, 
Spielanleitung  ausgeben,  Spielfeld  zeichnen  und  Zahlen 
eintragen,  wird  die  Spielschleife  gestartet.  Zunächst  wählt 
der  Spieler  eine  Spalte  aus,  dann  sucht  sich  JOYCE  eine 
günstige  Zeile  aus.  Dazu  benutzt  das  Programm,  je  nach 
Angabe  des  Spielers,  vier  verschiedene  Strategien.  Diese 
unterscheiden  sich  im  Prinzip  nur  dadurch,  inwieweit  das 
Programm  die  Gegenzüge  des  Spielers  und  eigene  Reaktio¬ 
nen  darauf  berücksichtigt.  Zur  Bewertung  eines  Zuges 
zählt  JOYCE  die  eigene  Punktzahl  positiv  und  subtrahiert 
davon  den  größten  Wert,  den  der  Gegner  erreichen 
könnte. 

Zum  Beispiel  in  Stufe  4: 

JOYCE  wählt  Zeile  a,  der  Spieler  würde  Spalte  b  aussu¬ 
chen.  Dann  wieder  JOYCE  Zeile  c  und  Spieler  Spalte  d. 
Der  Auswahlalgorithmus  könnte  dann  so  geschrieben 
werden: 

a=MAX,(zal(a,i)-MAXb(zal(a,b)+MAXc(zaI(c,b)- 

MAXd(zal(d,c))))) 

wobei  i  die  vom  Spieler  zuletzt  gewählte  Spalte  ist,  und 
MAXd(zal(d,c))  die  größte  Zahl  in  der  festen  Spalte  c  von 
allen  Zeilen  d  (1  bis  8)  bezeichnet. 

In  vielen  Spielen  hat  sich  herausgestellt,  daß  es  für  das 
Programm  sehr  nachteilig  ist,  wenn  es  selbst  zum  Spiel¬ 
ende  in  Zugzwang  gerät,  der  Spieler  jedoch  nicht.  Dieses 
kommt  daher,  daß  JOYCE  die  Auswahl  besonders  ungün¬ 
stiger  Zeilen  sehr  konsequent  vermeidet.  Um  diese  Gefahr 
zu  mildem,  bekommen  daher  in  den  Stufen  3  und  4  die 
Zeilen  einen  Punktebonus,  der  mit  der  Anzahl  der  noch 
wählbaren  Zahlen  wächst 

Vielleicht  hätte  man  die  Auswahl  von  JOYCE  mit  Hilfe 
von  Rekursivtechniken  auch  etwas  platzsparender  pro¬ 
grammieren  können.  Die  Schleifen,  die  man  dann  nur  mit 
indizierten  Variablen  hätte  programmieren  müssen,  be¬ 
nötigten  aber  etwa  das  Doppelte  an  Laufzeit,  wie  die  jetzi¬ 
gen  Schleifen  mit  mehr  einfachen  Variablen.  Da  in  Stärke  4 
die  erste  Zeilenwahl  des  JOYCE  ohnehin  schon  1 5  Sekun¬ 
den  dauert  habe  ich  die  Routinen  lieber  kopiert  und  er¬ 
weitert.  Daher  stehen  die  4  Stufen  explizit  hintereinander. 

Stufe  1: 

JOYCE  wählt  die  Zeile,  die  in  der  aktuellen  Spalte  die 
höchste  Zahl  enthält.  Gibt  es  davon  mehrere,  so  wird  die 
Zeile  mit  dem  kleinsten  Maximum  gesucht  so  daß  der  Geg¬ 
ner  im  Anschluß  nur  die  geringste  Punktezahl  wählen 
kann.  Ist  die  Wahl  auch  dann  noch  nicht  eindeutig,  so  wird 
die  Zeile  genommen,  die  noch  die  meisten  Zahlen 
enthält. 
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Stufe  2: 

Das  Programm  berücksichtigt  die  erste  Reaktionsmög¬ 
lichkeit  des  Gegners.  Es  bildet  in  jeder  Zeile  die  Differenz 
zwischen  dem  Wert,  den  es  selbst  bekommt  und  dem  Ma¬ 
ximum,  welches  der  Gegner  nach  der  Zeilenwahl  bekom¬ 
men  könnte.  Es  wählt  dann  die  Zeile,  in  der  diese  Diffe¬ 
renz  am  größten  ist  Kann  der  Mitspieler  allerdings  darauf¬ 
hin  in  Zugzwang  kommen,  weil  eine  Zeile  nur  noch  zwei 
Zahlen  enthält  so  berücksichtigt  das  Programm  auch  sei¬ 
nen  nächsten  Zug  und  die  Reaktion  des  Spielers  darauf;  es 
spielt  also  eigentlich  Stufe  4  (s.u.).  Wenn  es  dabei  einen 
möglichen  Gewinn  des  Spieles  feststellt  indem  es  den  Geg¬ 
ner  zwingt  die  letzte  Zahl  in  einer  Spalte  zu  wählen  -  was 
vorzeitige  Beendigung  des  Spieles  mangels  gültiger  Züge 
bedeutet,  so  wird  es  dies  immer  tun. 

Stufe  3: 

Das  Programm  nimmt  an,  daß  der  Mitspieler  Stufe  2  be¬ 
herrscht  und  berücksichtigt  noch  die  höchstmögliche 
Punktzahl,  die  er  im  nächsten  Zug  erreichen  könnte.  Bei 
Zugzwang  des  Spielers  berücksichtigt  es  zwei  Halbzüge 
mehr  -  spielt  also  eigentlich  Stufe  5. 

Stufe  4: 

In  Stufe  4  nimmt  das  Programm  an,  der  Spieler  beherrscht 
Stufe  3.  Es  beachtet  also  noch  die  Punktzahl,  die  der  Mit¬ 
spieler  nach  seinem  zweiten  Zug  bekommen  könnte.  Bei 
Zugzwang  berücksichtigt  es  auch  hier  2  Halbzüge  mehr, 
spielt  also  eigentlich  Stufe  6.  Der  Bonus  für  die  "Zeilen- 
länge”  ist  gegenüber  der  Stufe  3  etwas  erhöht. 


Mer  ergattert  die  Misten  Pnkte? 
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Stift  2 


Besonderheiten  im  Programm... 

3720: 

modus$="t”  ist  ein  Überbleibsel  aus  dem  Programmtest. 
Die  Variable  kann  nur  im  Direktmodus  gesetzt  werden. 
Das  Programm  läuft  dann  immer  durch  alle  Stufen  ein- 

6320  -  6390: 

Löschen  der  gewählten  Zahl  und  Ausgabe  des  Punkte¬ 
kontos  des  Programmes. 

6400  -  6460: 

Ausgabe  der  Zeilen-  und  Spaltenmaxima,  sowie  der  An¬ 
zahl  der  noch  definierten  Zahlen  pro  Zeile  und  Spalte  auf 
dem  Bildschirm  (kann  entfallen). 

6560  -  6600: 

Ermittlung  des  Gewinners  und  Ausgabe  der  Punktedif¬ 
ferenz. 

6610  -  6650: 

Höhereinstufung  des  Spielers,  wenn  er  das  eben  beendete 
Spiel  gewonnen  hat,  mehr  als  zehn  Punkte  besser  als  das 
Programm  ist  und  schon  mehr  Spiele  als  das  Programm 
gewonnen  hat. 


6700  -  6770: 

Abfrage,  ob  der  Gegner  weitermachen  will  und  mit  wel¬ 
cher  Spielstärke. 

6780: 

Falls  der  Spieler  sich  niedriger  einstuft,  als  das  Programm 
es  vorgeschlagen  hat,  so  wird  es  protestieren,  sich  dann 
aber  doch  fügen. 

6860: 

Die  Zahlenreihenfolge  im  Spielfeld  soll  zufällig  sein.  Da¬ 
her  der  Befehl  RND  in  der  Warteschleife, 
schließlich  der  vom  Spieler  gewählten  und  zeigt  an,  welche 
Zeile  er  in  jeder  Stufe  genommen  hätte.  In  den  Stufen  3 
und  4  gibt  er  außerdem  die  Bewertung  der  einzelnen  Zei¬ 
len  an. 

3940  -  3980: 

Es  wird  die  Punktzahl  des  Spielers  ausgegeben  und  die  ge¬ 
wählte  Zahl  gelöscht. 

4230: 

Der  SWAP-Befehl  setzt  die  aktuelle  Zahl  mit  einer 
Hilfsvariablen  und  markiert  das  Feld  dadurch  als  ausge¬ 
wählt.  Damit  wird  nochmaliges  Berücksichtigen  in  weiter 
innenliegenden  Schleifen  vermieden. 

4330: 

Prüfung,  ob  Gegner  im  Zugzwang  ist. 

4390  -  4410: 

Hier  prüft  das  Programm,  ob  nach  Wahl  der  Zeile  a  und 
der  Spalte  b  durch  den  Spieler  (Zugzwang!)  das  Spiel  be¬ 
endetwäre  und  es  selbst  gewonnen  hätte.  Bei  Gewinn  wird 
die  Zwischensumme  auf  100  gesetzt,  bei  Verlust  auf- 100. 
Dadurch  wird  das  Programm  die  Zeile  gegebenenfalls 
wählen  oder  tunlichst  umgehen. 

4850,  4980,  5190: 

Wie  4390,  ebenso:  5570,  5700  und  6000 
5520: 

Gibt  im  Testmodus  an,  daß  die  Wertung  durch  "Sonder- 
routine"  ermittelt  wurde. 


Die  wichtigsten  Variablen: 

eswS 

Endeschalter,  esw%—”e”:  Programm 
beendet  das  Spiel  oder  sich  selbst. 

hzala-hzalf 

Hilfsvariablen,  in  denen  die  Zahl 
einer  aktuell  untersuchten  Zeile  oder 
Spalte  zwischengespeichert  wird. 

scpnkt 

Gesamtpunktzahl  Programm  (alle 
Spiele). 

sspnkt 

Gesamtpunktzahl  des  Spielers. 

cpnkt 

Punktzahl  im  aktuellen  Spiel  des 
Programms. 

spnkt 

Selbiges  für  den  Spieler. 

csp 

Anzahl  vom  Programm  gewonnene 
Spiele. 

ssp 

Dito  -  für  den  Spieler. 

bol$ 

Definition  des  Anzeigefeldes. 

zahl(64) 

Vektor,  der  die  64  Spielzahlen 
aufnimmt. 

zal(i.j) 

Zahl  an  Position  (i,j). 

zal$(i,j) 

Zahl  an  Position  (i,j)  abdruckbar. 

zposS(i,j) 

Position  des  Feldes  (i,j)  auf  dem 
Bildschirm. 

maxz(2,i) 

Größte  Zahl  in  Zeile  bzw.  Spalte  i. 

iz(i) 

Anzahl  der  noch  vorhandenen  Zah¬ 
len  in  Zeile  i. 

is(i) 

Anzahl  der  noch  vorhandenen  Zah¬ 
len  in  Spalte  i. 

ci,cj 

Position  des  angesteuerten  Feldes. 

sc(i) 

Beste  bisher  erreichte  Bewertung  in 
Stufe  i. 
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Joyce' 


cci(i) 

caa-cee 

saa-sde 

ysa 

xx 

stuf 


Zeile,  die  mit  dem  sc(i)  bewertet 
wurde. 

Zwischenergebnisse  bei  der  Bewer¬ 
tung  in  den  Stufen  2-4. 
Zwischenwerte. 

Zwischenwert  mit  Berücksichtigung 
einer  Längenkorrektur. 

Parameter  für  Maximumermittlung 
in  einer  Zeile  oder  Spalte  (Eingabe 
Spaltennr.,  Ausgabe  Maximalzahl). 
Spielstärke. 

(Winfried  Scherg/MC) 


2000  1 

2010  •  Spiel  Programm:  MAXZAHL 
2020  ' 

2030  COMMON  bxsw% 

2040  GQSUB  2160  ' Vorlauf 

2050  GOSUB  2340'  Funktionen  definieren 

2060  GOSUB  2740  'Zahlen  einiesen 

2070  GOSUB  3430* Spiel  starten 

2080  GOSUB  2420' Spielfeld  malen 

2090  GOSUB  2970* Zahlen  einfügen 

2100  GOSUB  3630  'Spielschleife 

2110  GOSUB  6530' Gewinnermittlung 

2120  IF  esw$=" n"  GOTO  2090 

2130  IF  bxsw%=l  THEN  RETURN 

2140  PRINT  f IscS+FNcpS <27, 0> ; ivaI+con$; "Ende" ; 

2150  END 
2160  * 

2170  ' Vorlauf 
2180  ' 

2190  DEFINT  a-e,h,s,x,z 

2200  escS=CHR$  <27 > : bei 1$=CHR$  <7 ) 

2210  clsJ=esc$+" E" +escS+" H" 

2220  zo$=esc$+" A" : zu$=esc$+" B"  'Cursor  Zeile  nach 
oben  oder  unten 

2230  iv$=escS+"p'' :  lvaS=esc$+"q"  '  invers 

2240  conS=esc$+"e" : cof$=esci+"f "  'Cursor  ein/aus 

2250  loe£=esc$+" J" ' löschen 

2260  zloe$=escS+" K" ' Zeile  loeschen 

2270  csp=0:ssp=0  'Anzahl  gewonnene  Spiele  CJoyce/S 
pieler  > 

2280  scpnkt=0 : sspnkt=0  *  Gesamtpunktzahl <J .  , /S.  . ) 
2290  hzala=-10; hzalb=-10: hzalc=-10: hzald=-10: hzale 
=-10: hzalf =- 10 
2300  RETURN 
2310  ' 

2320  '  Funktionsdefinitionen 
2330  * 

2340  DEF  FNcpS  <z , s) =escS+" Y" +CHRS  <32+z > +CHRS  <32+s) 
2350  DEF  FNscS (z, s, h, b> =escS+" X" +CHRS <32+z)+CHRS <3 
2+s) +CHRS  <31+h>+CHRS  <31+b> 

2360  flscS=FNscS <0, 0, 32, 90) ' voller  Bildschirm 
2370  bolS=FNsc$ <0, 0, 21, 20) 

2380  wS=f IscS+conS+FNcpS (32, 0) 

2390  PRINT  flscS+clsS 
2400  WIDTH  255 
2410  RETURN 
2420  ' 

2430  '  Spielfeld  malen 
2440  ' 

2450  zblS=CHRS  <138  >  +CHRS  < 138 ) +CHRS  < 138) +CHRS  < 138 )  ' 
4  Teile 

2460  zl$=CHRS  <134  > 

2470  FOR  i=l  TO  7; zlS=zlS+zbl$+CHRS <142) : NEXT  i 
2480  zl$=zlS+zbl$+CHR$  <140) 

2490  zm$=CHRS  <133  > 

2500  FOR  i  =  l  TO  8:zmS=zmS+"  "+CHRS (133) : NEXT  i 
2510  zmm$=CHRS <135) 

2520  FOR  i  =  1  TO  7:  zmSnS=zmmS+zblS+CHRS  <143)  :  NEXT  i 
2530  zmmS=zmm$+zbls+CHRS <141 ) 

2540  zlS=CHRS (131) 

2550  FOR  1  =  1  TO  7: zlS=zlS+zblS+CHRS  <139) : NEXT  1 
2560  zlS=zlS+zblS+CHRS  < 137 ) 

2570  z=3:sp=23  'Position  des  oberen  linken  Spielfe 
ldecks 

2580  PRINT  f IscS+loeS ; TAB <34 ) ; " Wer  ergattert  die  m 
eisten  Punkte?" ; 

2590  PRINT  FNcpS <z,sp)+cof$+ivS; 

2600  PRINT  FNcpS <z , sp) ; zl$; 

2610  FOR  i=l  TO  13  STEP  2 

2620  PRINT  FNcpS  <z+i,  sp)  j  zn»S;  FNcpS  <z  +  i  +  l,  sp)  ;  zmmS; 
2630  NEXT  i 

2640  PRINT  FNcoS  <z  +  i  .  sd)  :  zmS ;  FNcdS  <z+i  +  l .  st>)  :  zlS:  i 


ände  der  Felder,  Position  von  zahl<0,0> 

2660  FOR  i=l  TO  8' Zeilen 

2670  ii=ii+hf : J j=sp+l-lf ' J j  auf  Zeilenanfang 
2680  FOR  J=1  TO  8' Spalten 
2690  jj=jj+lf 

2700  zpasS  <  i  ,  j  ) =FNcpS  <  i  i  ,  j  j  > 

2710  NEXT  j 
2720  NEXT  1 
2730  RETURN 
2740  ' 

2750  'Zahlen  einiesen 
2760  ' 

2770  DATA  0,1, 1,1,1, 1,0,2 
2780  DATA  2, 2, 2, 2, 0,3, 3, 3 
2790  DATA  3, 3, 0,4, 4, 4, 4, 5 
2800  DATA  5, 5, 5. 6, 6, 6, 7, 7 
2810  DATA  8,8,9,9.10,15,-1,-! 

2820  DATA  -1, -1, -1, -2, -2, -2, -2, -2 
2830  DATA  -3 , -3 , -3 , -3 , -4 , -4 , -4 , -5 
2840  DATA  -5 , -5 , -6 , -6 , -7 , -8 , -9 , 0 
2850  IF  dsw=l  THEN  GOTO  2920  ELSE  dws=l 
2860  dsw=l 

2870  DIM  zahl<64)'  Vektor  der  durch  data  definiert 
en  Zahlen 

2880  DIM  zposS<8, 8) , zalS <8, 8) , zal <8, 8) * Zahlpositio 
nen, Spielzahlfeld  abdruckbar, Spielfeldzahl 
2890  DIM  maxz  <2 , 8 )  'maximal  Zahl  in  Zeile/Spalte  1 
-8 

2900  DIM  iz <8) , is<8) ' Anzahl  definierter  Zahlen  in 

Zeile/Spalte 

2920  RESTORE  2770 

2930  FOR  i=l  TO  64 

2940  READ  zahl<i> 

2950  NEXT  i 
2960  RETURN 
2970  ' 

2980  'Zahlen  ins  Spielfeld 
2990  ' 

3000  k=63 

3010  FOR  i=l  TO  8 

3020  maxz  < 1 , i)=0 

3030  FOR  j  =  l  TO  9 

3040  i i=ROUND  <0 . 5 1+RND*  <k-0 . 51 >  > 

3050  zal <i, j )=zahl <ii) 

3060  IF  zal <i , J  >  =  15  THEN  il5=i:jl5=j 
3070  IF  zal < i , j ) = 1 0  THEN  il0=i:jl0=j 
3080  SWAP  zahl <ii) .zahl <k) 

3090  k=k-l 
3100  NEXT  J , i 

3110  ii=ROUND<0. 51+RND* <8-0. 51) >' Startfeldzeile  -> 
Zufall,  -Spalte  =  j 15 
3120  IF  1 i=i 15  GOTO  3110 
3130  IF  ii  =  i  10  AND  J15OJ10  GOTO  3110 
3140  SWAP  zal <ii, j 15) , zal <8, 8) 

3150  ci  =  ii  :  cj =J 15:  nci=ci : ncj =cj 
3160  FOR  i=l  TO  8 

3170  iz<i)=8: is<i)=8' Anzahl  Zahlen  pro  Zeile/Spalt 
e 

3180  FOR  j=l  TO  8 

3190  zalS  <i , j )=DECS  <zal <i , j ) , "###" ) 

3200  PRINT  zposS  < 1 , J  > ; zalS  <i , j ) ; " 

3210  NEXT  j , 1 
3220  zalS  <ci , cj  >=" 

3230  zal <ci , cj )=-10 

3240  PRINT  zposS <ci, cj ); ivS+"  ";+ivaS 
3250  iz  <ci)=7: is<cj )=7 
3260  mp=z+2*9 

3270  PRINT  FNcpS <mp, 12)  Mit  Cursortasten  <";escS| 
CHRS  <  1 1 )  ;  *'  "  ;  escS;  CHRS  <12)  ;  "  )  auf  Zahl  positionier 
en,  mit  Enter  auswShlen! " 

3280  mp=mp+2 

3290  PRINT  FNcpS  <mp, 0 ) ; loeS ; FNcpS  <mp, 17 ) ;  "Sie  habe 
n:  0  Punkte.  Joyce  hat  0  Punkte." 

3300  spposS=FNcp$  <mp, 29) : j  pposS=FNcpS  <rap,  61) 

3310  mpposS=FNcpS <mp+2 , 17 ) : cmpposS=FNcpS <mp+2 , 50 > 
3320  spm$="Sie  nahmen  ":  j pm$=" Joyce  nahm  "  :  mclr$  = 
SPACES <20 ): spm2S="  Punkte." 

3330  ‘Zeilen  und  Spaltenmaxima 
3340  FOR  1=1  TO  8 
3350  maxz <1, i)=-10: maxz <2, i)=-10 
3360  FOR  J=1  TO  8 

3370  ON  SGN <maxz  < 1 , i >-zal <i , j ) ) +2  GOTO  3380,3390,3 
390 

3380  maxz <1, i)=zal <i , j ) 

3390  ON  SGN (maxz <2 , i ) -zal < j , i > ) +2  GOTO  3400,3410,3 
410 

3400  maxz  <2  ,  i  ).=zal  <  j  ,  i  ) 

3410  NEXT  j , i 
3420  RETURN 
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3430  ‘ 

3440  1  Spiel  starten 
3450  ' 

3460  PRIKT  FNcpS  <3,  30)  Spielanleitung  für  MAXZAHL 

3470  PRIKT  FKcpS  <  5,12>;"Als  nächstes  Bild  sehen  S 
ie  ein  8x8  Felder  großes,  mit  Zahlen"; 

3480  PRIKT  FNcpS <  6 , 12) ; "gef ül ltes  Spielbrett.  Mit 
Hilfe  der  Cursortasten  " ; CHRS <27 ) ; CHRS <11 ) ; "  und 
" ; CHRS (27) ; CHR$  (12) ; "  können"; 

3490  PRINT  FNcpS  <  7,12);"Sie  jede  Zahl  innerhalb 
einer  Zeile  ansteuern  und  mit  FENTER7" 

3500  PRINT  FNcpS <  8 , 12) ; "auswählen.  Joyce  tut  das 
Gleiche  dann  innerhalb  der  durch  Ihre" 

3510  PRINT  FNcpS <  9,12>;"Wahl  festgelegten  Spalte 
Die  ausgewählten  Zahlen  werden  dem" 

3520  PRIKT  FNcp$ao,  12);  "Spieler,  also  Ihnen  bzw. 

Joyce,  als  Punkte  gutgeschrieben  und" 

3530  PRINT  FNcpSCll, 12) ; "gelöscht.  Wer  am  Ende  die 
meisten  Punkte  hat,  ist  Sieger!" 

3540  PRIKT  FNcpS <13, 12) ; "Die  augenblicklich  von 
Ihnen  angesteuerte  Zahl  wird  invers" 

3550  PRINT  FNcpS <14 , 12) angezeigt .  Die  von  Joyce 
gewählte  Position  erscheint  als  “;iv$;"  **  ";iva$; 

N  II 

3560  PRINT  FNcpS <16, 12) ; "Joyce  kann  übrigens  4  S 
pielstärken.  Die  leichteste  ist  *1'." 

3570  PRIKT  FNcpS <25 , 30 );" Und  nun  viel  Vergnügen!" 
3580  PRINT  FNcpS <30, 55) ; "Spielstärke  eingeben  <1-4 
>  !" 

3590  GOSUB  6830* Warten 

3600  IF  iSO'l"  OR  iS>"4"  THEN  PRINT  bellS:GOTO  358 
0 

3610  stuf =VAL <IS > 

3620  RETURN 
3630  ' 

3640  ‘Spielschleife 
3650  ' 

3660  cpnkt=0: spnkt=0: zzal=0' Jayce-punkte , Spielerpu 
nkte, Zugzahl 
3670  eswS="n" 

3680  PRIKT  FNcpS <mp+7, 0) ; "Stufe  "jstuf; 

3690  GOSUB  3750  'Spieler  wählt 
3700  PRIKT  bolS; loeS; f IscS; 

3710  OPTION  RUN 

3720  IF  modusS=" t"  THEN  GOSUB  4040  ELSE  ON  stuf  GO 
SUB  4080,4290,4730,5420  'Joyce  wählt 
3730  OPTION  STOP 

3740  IF  esw$="e"  THEN  RETURN  ELSE  GOTO  3690 
3750  ' 

3760  ' Spieler  wählt 
3770  '- 

3780  einS=CHRS  < 1 ) +CHRS  <6 ) +CHRS  < 13 ) 

3790  PRIKT  FNcpS<12, 70) ; "Position: "; ci;cj ; 

3800  GOSUB  6860' Zeichen  lesen 
3810  n=INSTR <einS , iS) 

3820  ON  n  GOTO  3860 , 3850 , 391 0' ENTER 
3830  PRINT  bellS; : GOTO  3800 
3840  ' in  Neues  Feld  positioniert 

3850  ncj  =  1+  <ncj  MOD  8) : IF  zalS <ci , ncj ) ="  "  THEN 

GOTO  3850  ELSE  GOTO  3870 

3860  ncj  =  1+  <  <6+ncj )  MOD  8) : IF  zalS <ci , ncj ) ="  "  T 

HEN  GOTO  3860 

3870  IF  zalS <ci , cj )<>"  "  THEN  PRINT  zposS<ci,cj> 

; zalS <ci , cj > ; "  ELSE  PRINT  zposS <ci  ,  cj > ; i vS ; " 

" ; 1 vaS ; 

3880  PRINT  zposS <ci , ncj ); ivS; zalS <ci , ncj >; "  ";ivaS 

3890  cj  =ncj 

3900  GOTO  3790 

3910  'Feld  ausgewählt 

3920  IF  zalS  <ci , cj  >  ="  "  THEN  PRINT  bellS;:GOTO  3 

800' Leerfeld! 

3930  spnkt=spnkt+zal <ci  ,  cj ) 

3940  PRINT  mppasS;  spmS; DECS <zal <ci , cj ),"###"); spm2 

s ; 

3950  PRINT  sppasS; DECS <spnkt , "###")  ; 

3960  zal <ci , cj >=-10: zalS <ci , cj )="  " 

3970  iz<ci)=iz<ci)-l: is <c j > =is <cj > - 1 
3980  PRINT  zposS <ci, cj >; ivS;"  ";ivaS; 

3990  xx=ci : GOSUB  6510  ' maximum  aktuelle  Zeile  u.  S 
palte 

4000  maxz <1, ci)=xx 
4010  xx=cj : GOSUB  6520 
4020  maxz <2, cj >=xx 
4030  RETURN 
4040  ' 

4050  'Joyce  wählt 
4060  ' 

4070  'Stufe  1: Joyce  nimmt  größten  Wert 


4080  sc <1) =-10* Summe  Stufe  1 
4090  cci <1 ) =0 ' Gewählte  Position 

4100  FOR  a=l  TO  8'Für  alle  Zeilen  der  Spalte  cj 
4110  IF  zal <a, cj )=-10  GOTO  4210 
4120  SWAP  hzala, zal <a, cj ) 

4130  IF  hzala<sc  <1>  GOTO  4200 

4140  IF  hzala>sc  < 1 )  THEN  sc < 1 ) =hzala: cci < 1 ) =a : GOTO 
4200 

4150  xx=a: GOSUB  6510' max  Zeile 
4160  xxx=xx 

4170  xx=cci <1) : GOSUB  6510* Max  Zeile 
4180  IF  xxx<xx  THEN  cci<l)=a 

4190  IF  xxx=xx  AND  iz <a> > iz <cci <1 > )  THEN  cci<l)=a 
.•GOTO  4200 

4200  SWAP  hzala, zal <a,cj) 

4210  NEXT  a 

4220  IF  cci <1 ) =0  THEN  eswS="e" : RETURN: ELSE  eswS="n 
4230  ' Stufe  1  entschieden 

4240  PRINT  bolS; loeSiflscS; FNcpS <2, 1); "Stufe  1: 
cci <1)  , 

4250  IF  stuf— 1  GOTO  6300 
4260  ' 

4270  'Stufe  2:  Joyce  will  möglichst  viel  mehr,  als 
Gegner  bekommen  kann 

4280  IF  is  <cj )  =  1  THEN  cci <2 ) =cci < 1 ) : GOTO  4670 
4290  cci <2)=0: sc <2)=-1500: lsw=0' gewählte  position, 
summenwert , endeschalter 

4300  FOR  a=l  TO  8'Für  alle  Zeilen  der  Spalte 
4310  IF  zal <a, cj >=-10  THEN  GOTO  4650* nächste  Zeile 
4320  SWAP  hzala, zal <a , cj >: iz <a ) =iz <a )- 1 : is <cj ) =is < 
cj  >-l 

4330  IF  iz  <a >  > 1  THEN: GOTO  4550' normal 
4340  sab=-1300 
4350  lsw=2 

4360  FOR  b=l  TO  8'  Suche  einzige  Spalte  b 

4370  IF  zal <a, b)=-10  GOTO  4530  'NEXT  b 

4380  SWAP  hzalb, zal <a, b) : iz<a)=iz<a)-l: is<b)=is<b) 

-1 

4390  IF  is  <b) >  0  GOTO  4430 
4400  sbc=cpnkt+hzala-hzalb 

4410  IF  sbc>spnkt  THEN  sbc=sbc+100  ELSE  sbc=sbc-10 
0 

4420  GOTO  4510' Wertung  von  b 
4430  sbc=-1100 
4440  FOR  c=l  TO  8 

4450  IF  zal <c , b) =- 10  OR  iz<c)>2  GOTO  4500' NEXT  c 
4460  SWAP  hzalc, zal <c, b) 

4470  xx=c: GOSUB  6510'Zeile- 

4480  IF  hzalc-xx>sbc  THEN  sbc=hzalc-xx 

4490  SWAP  hzalc, zal <c, b) 

4500  NEXT  c 

4510  IF  hzalb-sbc>sab  THEN  sab=hzalb-sbc  „ 

4520  SWAP  hzalb, zal <a, b) : iz <a)=iz <a> +1 : is<b)=is<b) 
+1 

4530  NEXT  b 

4540  IF  lsw=2  GOTO  4580 ' a-wertung 
4550  '-Normal 

4560  xx=a: GOSUB  6510'Zeile- 
4570  sab=xx 
4580  ' Wertung  a 
4590  sa=hzala-sab 

4600  IF  sa<sc <2 >  THEN  GOTO  4630' NEXT  a  s 

4610  IF  sa>sc<2>  THEN  sc <2 ) =sa : cci <2 > =a : GOTO  4630* 

NEXT  a  s 

4620  IF  iz<a)-iz (cci <2) ) >2  THEN  cci(2)=a 

4630  SWAP  hzala, zal <a, cj ) : iz <a)=iz <a)+l : is<cj >=is< 

cj  >  +  l 

4640  IF  lsw=l  THEN  a=8 
4650  NEXT  a 
4660  • 

4670  *cci<2)  gewählt 

4680  IF  cci <2>=0  THEN  esw*="e" : RETURN  ELSE  esw$="n 

4690  PRINT  FNcpS <4, 1) ; "Stufe  2:  ";cci<2>; 

4700  IF  stuf =2  GOTO  6300 
4710  ' 

4720  'Stufe  3:  Joyce  berücksichtigt  besten  Stufe-2 
-Zug  des  Gegners 

4730  caa=0: cab=0: cac=0: cad=0: cbb=0: cbc=Q: cbd=0: ccc 
=0 : ccd=0 : cdd=Q 

4740  IF  modusS="t"  AND  is<cj)=l  THEN  cci <3)=cci (2) 

: GOTO  5350 

4750  cci <3>=0: sc (3>=-1500: lsw=0' gewählte  position, 
summenwert, endeschalter 

4760  FOR  a= 1  TO  8'Für  alle  Zeilen  der  Spalte 
4770  IF  zal <a, cj >=-10  THEN  GOTO  5330' nächste  Zeile 
4780  SWAP  hzala, zal <a, cj >: iz <a)=iz <a)-l : is<cj )=is< 
c  j  )  —  1 
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4790  IF  iz  <a ) > 1  THEN: GOTO  5130' normal 
4800  sab=-1300 

4810  FOR  b=l  TO  8* definierte  Spalte  b  suchen 
4820  IF  zal <a, b>=-10  GOTO  5110  ' NEXT  b 
4830  SVAP  hzalb, zal <a , b> : lz <a)=iz (a ) - 1 :  ls (bl^is <b) 
-1 

4840  IF  is (b>  >0  GOTO  4880 
4850  sbc=cpnkt+hzala-hzalb 

4860  IF  sbc>spnkt  THEN  sbc=sbc+100  ELSE  sbc=sbc-10 
0 

4870  GOTO  5080 
4880  sbc=-l 100 
4890  FOR  c=l  TO  8 

4900  IF  zal <c, b>=-10  GOTO  5070' NEXT  c 

4910  SVAP  hzalc,  zal <c,  b> :  iz<c>  =  iz ls<b>=is<b> 

-1 

4920  scd=-900 

4930  lsw=2 

4940  FOR  d=l  TO  8 

4950  IF  zal <c, d) =-10  GOTO  5040 

4960  SVAP  hzald, zal <c, d> 

4970  IF  ls  <d) > 1  GOTO  5010 

4980  sde=cpnkt+hzala-hzalb+hzalc- hzald 

4990  IF  sde>spnkt  THEN  xx=sde+100  ELSE  xx=sde-100 

5000  GOTO  5020 

5010  xx=d : GOSUB  6520' Spalte 

5020  IF  hzald-xx>scd  THEN  scd=hzald-xx: cdd=d 
5030  SWAP  hzald, zal <c, d) 

5040  NEXT  d 

5050  IF  hzalc-scd>sbc  THEN  sbc=hzalc-scd : ccc=c : ccd 
=cdd 

5060  SWAP  hzalc, zal <c, b) : iz <c)=lz <c)+l: is<b)=is<b) 
+  1 

5070  NEXT  c 

5080  IF  hzal b-sbc>sab  THEN  sab=hzalb~sbc : cbb=b: cbc 
=ccc: cbd=ccd 

5090  SVAP  hzalb, zal <a, b> : iz <a>=iz <a>+l: ls<b>=is<b) 
+  1 

5100  IF  1 sw— 1  GOTO  5310' NEXT  a  s 
5110  NEXT  b 

5120  IF  lsw=2  GOTO  5250 ’ a- Wertung 
5130  '-Normal 
5140  sab=-13Q0 
5150  FOR  b= 1  TO  8 

5160  IF  zal (a, b)=-10  GOTO  5240' next  b 
5170  SVAP  hzalb, zal (a, b) 

5180  IF  is  <b>  > 1  GOTO  5210 

5190  IF  cpnkt+hzala-hzalb<spnkt  THEN  sab=100‘ Joyce 
darf  Zeile  nicht  anbieten 
5200  xx=9:GOTO  5220' Spieler  wird  sie  nicht  nehmen 
5210  xx=  b : GOSUB  652  0 ‘ Spa 1 1 e 

5220  IF  hzalb-xx>sab  THEN  sab=hzalb-xx: cbb=b: cbc=0 
: cbd=0 

5230  SVAP  hzalb, zal <a, b> 

5240  NEXT  b 
5250  ' Wertung  a 
5260  ysa=hzala-sab 

5270  ysa=MAX  <ysa  +  0 . 25* iz (a> , ysa*  < 1  +  0 . 125*iz<a>>> 
5280  IF  ysa<sc  <3 >  THEN  GOTO  5310' NEXT  a  s 
5290  IF  ysa>sc<3>  THEN  sc <3 > =ysa : cci (3 > =a : cab=cbb: 
cac=cbc : cad=cbd: GOTO  5310' NEXT  a  s 

5300  IF  iz<a>-iz <cci <3> >>=0  THEN  cci <3>=a: cab=cbb: 
cac=cbc : cad=cbd 

5310  SVAP  hzala, zal <a, cj > : iz <a>=iz <a)+l : is<cj >=is( 
cj  >  +  l 

5320  IF  modus$=" t"  THEN  PRINT  FNcpS <7+a, 1 >  ;  a;  cci <3 
>;  DECS <ysa, ”####.#"); m$ ;  : m$=""  ELSE  PRINT  FNcpS <9+ 
a, 1> ;a;cci <3) ; 

5330  NEXT  a 
5340  ’ 

5350  'cci(3>  gewählt 

5360  IF  cci <3 ) =0  THEN  esw$=" e" : RETURN  ELSE  eswS="n 

5370  PRINT  FNcpS<6, 1> ; "Stufe  3:  " ; cci <3 ) ; f lsc$ ; 
5380  IF  modusS=“ t"  THEN  PRINT  f IscS ; FNcpS <10 , 70 > ; z 
loeS ; cab; cac ; cad; 

5390  IF  stuf <4  GOTO  6300 
5400  ' 

5410  'Stufe  4:  Joyce  berücksichtigt  besten  Stufe-3 
-Zug  des  Gegners 

5420  caa=0: cab=0: cac=0: cad=0: cbb=0: cbc=0: cbd=0: ccc 
=0 : ccd=0 : cdd=0 

5430  cae=0 : cbe=0 : cce=0: cde=0 : cee=0 
5440  PRINT  bolt; FNcpS  <8, 1 ) ; loe$; 

5450  IF  modusS=" t"  AND  is<cj>=l  THEN  cci <4 ) =cci <3 > 
: GOTO  6230 

5460  mS="" : cci <4>=0: sc<4>=-1500: lsw=0‘ modus, gewähl 

te  position, summenwert ,  endeschalter 

5470  FOR  a=  1  TO  8'Fü-r  alle  Zeilen  der  Spalte 
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-64,-126,2508,-16,-32,-64...)  •  Voll  menilge steuerte  Soll- 
were  euf  Kessette  oder  Diskette  ■  Kein  Schelten,  Stecken 
oder  Löten  nötig  ■  Progremmierspennung  wird  im  Qerit 
erzeugt  I  Verbindung  zum  CPC  über  Flechbindkebel  und 
Inlerfece-Kerte  ■  Gleichzeitiger  Anzchluß  der  Floppy 
mäglich  ■  Rote  und  grüne  Leuchtdiode  zur  Betriebs-Art- 
Anzeige  ■  Komplett  mit  26  poligem  Teutool-Sockel  ■ 

■  Fertiggeret  464/664  DM  289,50  ■  Kertiggerlt  6128  DM  319,50  ■ 
Bausitz  mH  Anleitung  für  464/664  DM  239,-  ■  Beusetz  mit  Anleitung 
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EPROM-Karte  2-64  KByte  für  alle  CPC 

■  Wehlweise  beslückber  mit  2-64  KByte  EPROM-Kepezi- 
ttt  ■  Arbeitet  mit  dm  EPROM-Typen  2716,-32,-64,-128 

■  Durchgeführter  Erweiterungsbue  (  Floppy  kompelibel  ) 

*  Auloslert  von  BASIC-  und/oder  Assembler-Progrem- 
men  ■  Komplett  mit  umfengreicher  und  komfortibter 
Software  euf  Kassette  oder  Diskette  ■  Gleichermißen 
für  Profis  und  Einsteiger  geeignet  « 

■  Fertiggerlt  für  464/664  DM  249,50  ■  FertiggerU  füt 
6128  DM  259,50  ■  Bausatz  mit  Anleitung  für  464/664 
DM  219,50  ■  Beusetz  mit  Anleitung  für  6128  DM  229,50 

■  Software  euf  3*  Diskette  4  DM  15,-  ■  Software  euf  5.25'  Diskette  4  DM  5,-  ■ 

Speedy  100-80  der  Drucker  für  alle  CPC 

■  100  Zeichen  pro  Sekunde  schnell  »  FX80  kompetibet 
»  Bis  zu  142  Zeichen  pro  Zeile  ■  Optionaler  Drueker- 
puffer  ■  Grafikflhig  ■  Keift  doppelter  Zeilenvorsohub 

■  Direkt  enschlußflhig  ■  Interaetionele  Zeicheneltze 
:  ■  Friktionswalze  und  Treklorantrieb  serienmlßig  ■  Ein- 

gebeuter  Selbsttest  ■  Bidirektional  Druckweg  optimiert 
'  ■  Optimales  Preis-Leietungsverhiltnis  ■ 


■  Komplett  mit  deutschem  und  engl  Handbuch  DM  739,-  ■ 
Zusätzlicher  Orucktrpuf fer  :  2K  DM  25,-  ■  4K  DM  50.-  > 
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Softwereengebot  euf  Anfrage 


Alle  Artikel  ab  Lager  lieferber 


für  CPC  464/664  DM  35.-  für  CPC  6128  DM  38.- 

OOBBERTlfl 

Ifl  DU/ TR  IE  -ELEKTROfllK 

Brehmsstreße  9,  6835  Brühl,  Tel ;  (06202)  71417 


Die  Neuheit 


Mac  Lin 
für  den 
Joyce 

Wo  kommen  Ihre  Programme  her? 

Natürlich  von  Ihrem  Händler.  Es  sei  denn,  Sie  programmieren  selbst, 
mit  Mac  Lin 

Wie  entstehen  eigentlich  Programme? 

Der  Wunsch  ist  der  Vater  des  Gedankens: 

Man  müßte  den  Computer  für  alle  lästigen  Arbeiten  emsetzen.  Schneller,  ge¬ 
nauer.  schöner.  Leute  ihres  Fachs  setzen  sich  zusammen.  Das  Wissen  des  Auf¬ 
traggebers  über  Programmierung,  das  Wissen  des  Programmierers  über  die 
Anwendung.  Beides  kommt  zusammen.  Bruchstückhart  und  ungenau.  Rei¬ 
bungsverluste.  Ein  jeder  wird  zufTi  Fachmann  des  anderen.  Es  vergeht  Zeit,  bis 
man  dieselbe  Sprache  spricht.  Überlassen  Sie  das  Programmieren  anderen  - 
Mac  Lin. 

Warum  immer  nur  Standard? 

Zeit  ist  Geld.  Beachtung  individueller  Wünsche  kostbar.  So  entstehen  Stan¬ 
dards.  Von  der  Stange  scheint  allemal  preiswerter  als  maßgefertigt.  Passen  Sie 
sich  an.  Wer  paßt  sich  Ihnen  an?  Mac  Lin! 

Bestimmen  Sie,  was  Ihr  Computer  macht? 

Ja  und  nein,  der  Standpunkt  ist  entscheidend.  Die  Software  gibt  Befehle.  War¬ 
um  bestimmen  Sie  nicht  mit?  Schreiben  Sie  Ihre  Programme  in  einer  Sprache, 
die  Sie  kennen:  Deutsch.  Mal  eben  programmieren.  Dieser  Satz  wird  jetzt  Stan¬ 
dard  sonst  nichts,  dank  Mac  Lin. 

Mac  Lin  erhalten  Sie  bei  uns  für  475.-  DM 

Unser  Angebot  oi  qq  _  hm 

Schneider  Joyce  mit  Programmgenerator  Mac  Lin . ^  “IVT 

Schneider  Joyce  Plus  mit  Programmgenerator  Mac  Lin . 2899.-  DM 

Selbstverständlich  können  Sie  diese  Geräte  auch  bei  uns  mieten.  Für  weitere 
Informationen  stehen  wir  Ihnen  gerne  zur  Verfügung. 

Ständig  die  neuesten  Spiele  für  alle  Schneider  CPC  lieferbar.  Katalog  gegen  Rückporto  (1  -  DM  in  Briefmar¬ 
ken).  Sämtliche  Lieferungen  erfolgen  zzgl.  Poito  ♦  Verpackung. 


SFK  Elektro  GmbH,  Delsterner  Straße  23 
5800  Hagen  1 ,  Tel.  0  23  31  /  7  26  08 
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5480  IF  zal <a, cj )=-10  THEN  GOTO  6210' nächste  Zeile 
5490  S¥AP  hzala , zal <a, cj ) : iz Ca) =iz <a> -1 : ls (cj > =is ( 
cj  >-l 

5500  IF  iz (a) > 1  THEN: GOTO  5930 ' normal 
5510  sab=- 1300 
5520  m«=“ s" 

5530  FOR  b=l  TO  8' Suche  definierte  Spalte 

5540  IF  zal <a, b)=-10  GOTO  5910  ‘»EXT  b 

5550  SV AP  hzalb, zal (a, b) : iz (a) =iz (a)-l : ls <b> =is <b> 

-1 

5560  IF  is <b) >0  GOTO  5610 
5570  sbc=cpnkt+hzala-hzalb 

5580  IF  sbc>spnkt  THE»  sbc=sbc+100  ELSE  sbc=sbc-10 
0 

5590  ccd=0:ccc=0 
5600  GOTO  5890' Wertung  b 
5610  sbc=~1100: lsw=2 
5620  FOR  c=l  TO  8 

5630  IF  zal (c, b>=-10  GOTO  5880’ »EXT  c 
5640  SVAP  hzale, zal (c.b):  iz <c)=iz <c)-l :  is(b)=is(b) 
-1 

5650  scd=-900 

5660  FOR  d=l  TO  8 

5670  IF  zal  (c, d)=-10  GOTO  5850 

5680  SVAP. hzald, zal (c.d) 

5690  IF  is<d>>l  GOTO  5730 
5700  sde=cpnkt+hzala-hzalb+hzalc-hzald 
5710  IF  sde>spnkt  THEN  sde=sde+100  ELSE  sde=sde-10 
0 

5720  GOTO  5830 ‘  Wertung  d 

5730  sde=-25 : lsw=2 

5740  FOR  e=l  TO  8 

5750  IF  zal <e, d>=-10  GOTO  5810 

5760  SVAP  hzale, zal <e, d) 

5770  lsw=2 

5780  xx=e : GOSUB  6510' Zeile 

5790  IF  hzale-xx>sde  THE»  sde-hzale~xx: cee=e 
5800  SVAP  hzale , zal <e , d> 

5810  »EXT  e 

5820  IF  sde=-25  THEN  sde=0 

5830  IF  hzale-sde>scd  THEN  scd=hzald-sde : cdd=d:  cde 
=cee 

5840  SVAP  hzald, zal <c, d) 

5850  NEXT  d 

5860  IF  hzalc-scd>sbc  THEN  sbc=hzalc-scd: ccc=c:  ccd 
=cdd: cce=cde 

5870  SVAP  hzale, zal <c,b>: iz<c>=iz(c)+l: is(b>=is(b> 
+  1 

5880  »EXT  c 

5890  IF  hzalb-sbc>sab  THEN  sab=hzalb-sbc : cbb=b: ebe 
=ccc: cbd=ccd: cbe=cce 

5900  SVAP  hzalb, zal <a, b) : iz <a)=iz <a)+l: is<b>=is<b> 
+  1 

5910  NEXT  b 

5920  IF  lsw=2  GOTO  6130 ' a-wertung 
5930  ‘-Normal 
5940  sab=-1300 
5950  m«=m«+"  n" 

5960  FOR  b=l  TO  8 

5970  IF  zal (a, b)=-10  GOTO  6120' next  b 
5980  SVAP  hzalb, zal <a,b> 

5990  IF  is<b>>l  GOTO  6020 

6000  IF  cpnkt+hzala-hzalb<spnkt  THEN  sab=100‘ Joyce 
darf  Zeile  nicht  anbieten! 

6010  sbc=9:GOTQ  6100  ‘Spieler  wird  sie  nicht  nehme 
n 

6020  sbc=-1100 

6030  FOR  c=l  TO  8 

6040  IF  zal (c, b)=-10  GOTO  6090 

6050  SVAP  hzale, zal <c,b> 

6060  xx=c: GOSUB  6510’ Zeile 

6070  IF  hzalc-xx>sbc  THEN  sbc=hzalc-xx: ccc=c: ccd=0 
: cce-0 

6080  SWAP  hzale, zal (c, b> 

6090  NEXT  c 

6100  IF  hzalb-sbc>sab  THEN  sab=hzalb-sbc : ebb-b:  ebe 
=ccc: cbd=ccd: cbe=cce 
6110  SVAP  hzalb, zal (a, b> 

6120  NEXT  b 
6130  '  Wertung  a 
6140  ysa=hzala-sab 

6150  ysa=MAX <ysa+0 . 65*iz  (a) , ysa*  Cl  +  0.  325*iz  (a) ) ) 

6160  IF  ysa < sc  (4)  THEN  GOTO  6190' NEXT  a  s 

6170  IF  ysa>sc<4>  THEN  sc <4 ) =ysa : cci <4 ) =a : cab=cbb: 

cac=cbc: cad=cbd: cae=cbe: GOTO  6190' NEXT  a  s 

6180  IF  iz  <a > -iz  <cci C4 > ) >=0  THEN  cci (4>=a: cab=cbb: 

cac=cbc: cad=cbd 

6190  SWAP  hzala, zal (a,cj>: iz <a>=iz <a> +1 : is(cj)=is( 
cj  )  +  l 


6200  IF  roodus«="t"  THEN  PRINT  FNcp« (9+a , 1 ) ; a ;  cci (4 
)  ; DEC« (ysa  ,"####.#">;  m«  ;  :m«="‘‘  ELSE  PRINT  FNcp« (9+ 
a,l>;a;cci<4>; 

6210  NEXT  a 
6220  ' 

6230  *cci<4)  gewählt 

6240  IF  cci  <4 >  =0  THEN  esw$=" e"  :  RETURN  ELSE  esw«="n 
6250  a=cci <4 ) 

6260  IF  modus«="t"  THEN  PRINT  f lsc« j FNcp« < 10 , 70 ) ; c 
ab ; cac ; cad ; cee  ; 

6270  PRINT  FNcp»<8, 1) ; “Stufe  4:  " ; cci (4) ; f lsc« ; 
6280  GOTO  6300 
6290  ' 

6300  ‘cci  gewählt 
6310  nci=cci (stuf ) 

6320  zal«  <nci , cj  >=" 

6330  cpnkt=cpnkt+zal (nci , cj ) 

6340  PRINT  f  lsc«;  cxnpposS;  jpm«;  DEC*  (zal  (nci  ,  cj  >  ,  "## 
#" ) ; spm2«; 

6350  PRINT  j ppos« ; DEC« (cpnkt , " ###" > 

6360  zal (nci , cj >=-10 
6370  ci=nci 

6380  iz(ci)  =  iz(ci)-l: ls (cj ) =is (cj ) -1 
6390  PRINT  zpos* (ci , cj ) ; iv« ; "  **  " ;iva$; 

6400  xx=ci : GOSUB  6510' Zeilenmaximum 
6410  maxz ( 1 , ci ) =xx 

6420  xx=cj : GOSUB  6520 1  Spaltenmaximum 
6430  maxz (2 , c j ) =xx 

6440  IF  maxz(l, ci)=-10  THEN  esw$="e“  ELSE  esw$="n" 
6450  PRINT  F»cp$(mp+4, 11) ; “Zeile:  " ; : FOR  i=l  TO  8 
: PRINT  DEC« (maxz (1, i> ,"###">; iz (i>  ;  “  "  ;  : NEXT  i 

6460  PRINT  FNcp*(mp+5, 11) ; "Spalte:  “ ; : FOR  j=l  TO  8 
: PRINT  DEC« (maxz (2, j>,“ ###"); is (J ) ; "  “ ; : NEXT  j 

6470  RETURN 
6480  1 

6490  ‘  maximum  aktuelle  Zeile/spalte 
6500  ‘ 

6510  xx=MAX (zal (xx,  1 ) , zal (xx, 2 ) , zal (xx, 3 ) , zal (xx, 4 
) , zal (xx, 5) , zal (xx, 6) , zal (xx, 7) , zal (xx, 8) ) : RETURN 
6520  xx=MAX(zal (1,  xx)  ,  zal (2, xx)  ,  zal (3,  xx)  ,  zal (4,  xx 
) , zal (5 , xx) , zal (6, xx) , zal (7 , xx) , zal (8, xx) ) : RETURN 
6530  ’ 

6540  Gewinnerermittlung 
6550  ’ 

6560  PRINT  f lsc« ;  FNcp« (mp+4 , 0) ; loe« ; 

6570  sspnkt=sspnkt+spnkt : scpnkt=scpnkt+cpnkt 
6580  IF  spnkt> cpnkt  THEN  PRINT  FNcp« (mp+4 , 25 );" Sie 
haben  mit  spnkt -cpnkt ; "  Punkten  gewonnen"  ssp= 

ssp+ 1 : GOTO  6610 

6590  IF  cpnkt>spnkt  THEN  PRINT  FNcp« (mp+4, 25) ; "Joy 
ce  hat  mit  " j cpnkt-spnkt ; “  Punkten  gewonnen" ; : csp= 
csp+1 : GOTO  6610 

6600  PRINT  FNcp« (mp+4, 30) ; "Das  Spiel  war  unentschi 
eden! " ; 

6610  IF  stuf =4  OR  cpnkt >=spnkt  GOTO  6660 
6620  IF  ssp>csp  AND  sspnkt-scpnkt> 10  GOTO  6640 
6630  IF  ssp-csp<=l  GOTO  6660 
6640  stuf=stuf+l 

6650  PRINT  FNcp«(mp+6, 25) ; "Sie  wurden  nach  Stufe  “ 
;iv«;"  ";stuf;‘*  “;iva«;"  befördert!"; 

6660  PRINT  FNcp« (mp+7, 0) ; iv$; "  EXIT/CAN  beendet,"; 
iva«;"  1-4:  Spielstärke  für  neues  Spiel,  Leertaste 
:  wie  Vorschlag  von  Joyce"; 

6670  PRINT  FNcp« (z+1, 70) ; "Spieler  Joyce"; 

6680  PRINT  FNcp$(z+3, 72); DEC« (ssp," ###");"  :  “;c 

sp; 

6690  PRINT  FNcp« (z+5, 71) ; zloe«; DEC« (sspnkt-scpnkt, 

“ ####“ ) ; 

6700  esw«=“n“ : ein«=“ 1234  "+CHR$ (8)+CHR« (27) 

6710  GOSUB  6830 

6720  n=INSTR(ein«, i«):ON  n  GOTO  6750,6750,6750,675 

0,6800,6740,6740 

6730  PRINT  bell«; : GOTO  6710 

6740  esw$="e" : GOTO  6820' CAN/ENTER 

6750  IF  n=stuf  THEN  GOTO  6790 

6760  IF  ssp+ (stuf-n><csp+l  GOTO  6790 

6770  IF  sspnkt+ (stuf-n) *10<cspnkt+5  GOTO  6790 

6780  txt«=FNcp« (mp+7 , 30)+iv«+"  Ver  wird  denn  kneif 

en!  " +iva« 

6790  stuf =VAL (i«) 

6800  PRINT  bol«; loe«; f lsc«; mppos«; loa«; FNcp« (10, 70 
) ; zloe«; txt« ; FNcp« (12 , 70)  ;  zloe«; 

6810  txt*=“" 

6820  RETURN 
6830  ' 

6840  ‘ Warten 
6850  * 

6860  i«  =  "" : VH ILE  i$=“ c=RND: i*= INKEY« : VEND: RETURN 
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DIE  SUPERHITS  VON 


ILÜCA5FILM  GAMES 


ACT  [VISION 


IlHOMtl COMPUTER  SOFTWARE j| 


von  lucosfilm  stammen  so  weltberühmte  Filme 
wie  STAR  WARS  und  INDIANA  JONES 


Rescue  On  Fractalus! 


Eine  phantastische  Mischung  ous  Action-Spiel  und  Flugsimulator  mit 
erstaunlicher  Grafik,  Animation  und  künstlicher  Intelligenz. 

Sie  haben  soeben  ihre  Elitelruppe  zusammengetrammell  um  die 
.Piloten'  zu  retten,  die  über  fractolus  obgeschossen  wurden  und  not 
landen  mußten.  Und  das  in  einer  atomar  verseuchten  Atmosphäre. 
Holen  Sie  die  Piloten  ous  dem  feindlichen  Gebiet 


'«sein 


Die  verblüffende  Reolilätslreue  hebt  dieses  Spiel 
weil  über  den  Rohmen  eines  einfachen  Action-Spiels 
heraus.  Der  30-Effekt  der  Grafik  ist  äußerst  gut 
gelungen,  ebenso  die  Ammotion  der  Piloleflknd 
Angreifer.  BORIS  SCHNEIOER  % 

im  Spiele  Sonderheft  von  Hoppy  (ompulei 


Koronis 

Rift 


Du  bist  so  eine  Art  .Techno-Straßen¬ 
kehrer*  Ein  harter  Job.  Ständig  hälst  Du  Ausschau 
noch  alten  Technologien,  in  der  Hoffnung,  damit  einmal  reich 
zu  werden 

Doch  wo  Du  auch  suchst  -  Du  findest  nichts.  Bis  Du  KORONIS 
RIFT  entdeckst,  einen  versteckten  Ort.on  dem  technolo¬ 
gische  Schätze  aufbewahrl  werden,  wie  Du  sie  Dir  immer 
edräuml  hast.  Nun  ist  es  an  Dir,  diese  sicherzustellen. 

KORONIS  RIH  ist  eine  brondheiße  Neuheit  von  lucos 
film,  die  weit  mehr  ist  ols  .nur  ein  Actionspiel*.  Neue 
Ideen,  ein  hoher  Spielwerl  und  vor  allem  eine  neuartige 
30-Grafilc  (basierend  ouf  der  froklolen  Geometrie) 
machen  Koronis  Rift  zu  einem  Leckerbissen  für  alle 
Spielefans 


The 

Eidolon 


Enträtseln  Sie  die  genialste  Erfindung  des  19.  Jahrhunderts, 
das  EIDOLON.  Eine  Maschine,  die  für  futuristische  Reisen 
konstruiert  wurde. 

Doch  -  für  welche  Reisen1 

EIDOLON  ist  die  Summe  lebenslanu^  Erforschung  der 
mystischen  KiöfleNI  Geistetund  nimmt  Sie  mit  ouf  eine 
Reise  m  eine  phantastische  und  geheimnisvolle  Welt 

Seltsame  Energiesphären  fliegen  on  Ihnen  vorüber  Doch 
welchen  Sinn  haben  sie? 

Und  wieso  sinkt  plötzlich  der  Energiepegel? 


.©I888LFZ 


Ballblazer 


Ailivision  Deutsch]^  GmbH  Postfach  760(60. 2000  Homburg  76 
PfERIRIEB^OEUTSCtfliRD  Aiiolosoft  Eicluuv  Oislributot  Ruthware 

[Autorisierte!  Mitnrlri’eb 

VERTRIEB  ÖSTERREICH  Karatoft  fmlusiv  Distributor 
VERTRIEB  SCHWEIZ  HIICU  ,E«clusiv  Distributor 


-  das  schnellste  und  spannendste  Turnier  des  Universums 

Wir  schreiben  das  Jahr  3097.  Die  interstellare  Ballblazer-Konferenz  wird  gleich 
eröffnet.  Zum  ersten  mol  hat  sich  ein  Erdenbürgec  mit  Zähigkeit  und  Ausdouer 
durch  die  Vorrunden  gekämpft  und  hat  nun  die  Chonce,  den  begehrtesten  Titel 
der  ganzen  Goloxie  zu  gewinnen:  MASTERBLAZER. 


gehört  zum  Schnellsten  und 
Aufregendsten,  was  je  über 
Heimcomputer  Monltore 
geflackert  ist 
HEINRICH  LENHARDT, 

Hoppy  Computor  ;|G/8S) 
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Profi-Basic 

Hersteller:  Power  Soft 
Vertrieb:  Gepo  Soft 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis:  DM  99,- 
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Als  wir  dieses  neue  Basic  erhielten, 
waren  wir  zunächst  einmal  von  der 
professionellen  Aufmachung  des  Pa¬ 
kets  überrascht. 

Das  Programm  wird  nicht  in  der  übli¬ 
chen  Plastikbox  mit  ein  paar  Zetteln 
Bedienungsanleitung  ausgeliefert,  son¬ 
dern  in  einem  schönen  Ordner,  der 
das  Handbuch,  die  Diskette,  Pro¬ 
grammentwicklungspläne,  einen  Bild¬ 
schirmplaner  und  ein  Programmier¬ 
erlineal  enthält. 

Professionell  sind  auch  die  Lei¬ 
stungsdaten  des  Programms.  Hier  wird 
einem  sehr  schnell  klar,  daß  diese 
Basic-Erweiterung  keine  Zusammen¬ 
stellung  irgendwelcher  RSX-Befehle 
ist,  sondern  ein  Tool,  dessen  Konzep¬ 
tion  klar  für  eine  echte  Anwendung 
ausgelegt  ist. 

Das  Handbuch  hat  100  Seiten  und  ist 
in  Deutsch  geschrieben.  Jeder  Befehl 
wird  ausführlich  erklärt.  Beschrieben 
wird  die  Syntax  anhand  eines  kurzen 
Demo-Programms;  die  Auswirkungen 
und  in  den  meisten  Fällen  noch  die 
Grundlagen,  die  zum  besseren  Ver¬ 
ständnis  des  Befehls  nötig  sind. 

Der  Schwerpunkt  des  "Profi  Basic” 
liegt  in  der  Grafik  und  den  Bild¬ 
schirmmanipulationen.  Für  Spiele¬ 
programmierer  ist  diese  Basic-Erwei¬ 
terung  nicht  geeignet.  Die  Zielgruppe 
des  "Profi  Basic”  sind  die  Anwender, 
die  sich  ihre  Textverarbeitung,  Tabel¬ 
lenkalkulation  oder  Grafikprogramm 
selber  schreiben  wollen.  Eine  große 
Menge  von  Befehlen  unterstüzt  die 


MC-Programmierung  von  Basic  aus. 
"Profi  Basic”  verdient  seinen  Namen 
zu  Recht.  Dieses  Basic  wurde  speziell 
für  Profis  entwickelt  und  ermöglicht 
es  auch  einem  Nicht-Profi,  innerhalb 
kürzester  Zeit  perfekte  Programme 
zu  entwickeln.  (TM) 


ADAM 

Hersteller:  Audiogenic 
Vertrieb:  Audiogenic 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis  auf  Anfrage 

CPC  464  Kl  CPC  664  K  CPC  6128  K 

"ADAM”  steht  für  "Assembler  Dis¬ 
assembler  and  Monitor”  und  stellt 
ein  neuartiges  Entwicklungssystem 
aus  England  dar. 

Von  besonderem  Vorteil  bei  diesem 
Programm  ist  die  Tatsache,  daß  sich 
alle  Programmteile  zum  gleichen 
Zeitpunkt  im  Speicher  des  Rechners 
befinden.  Um  mit  "ADAM”  so  flexibel 
wie  möglich  zu  arbeiten,  ist  das  Pro¬ 
gramm  frei  im  Speicher  verschieb¬ 
bar. 

ADAM  enthält  einen  starken  Full- 
Screen-Editor,  der  in  direkter  Zusam¬ 
menarbeit  mit  dem  Assembler  steht. 
Blockkommandos,  Search,  Replace 
und  Duplicate  bieten  den  Komfort 
einer  Textverarbeitung  und  stehen 
bisher  handelsüblichen  Editoren  in 
nichts  nach.  Der  Assembler  hat  den 
kompletten  Z-80-Befehlssatz  und 
versteht  auch  Pseudo-Instruktionen 
wie  IF,  THEN,  ELSE  und  die  Stan¬ 
dard-Direktiven  DB,  DW  usw. 

Sehr  stark  ist  auch  der  Disassembler, 
der  nicht  nur  die  MC-Befehle  in  les¬ 
barer  Form  auf  dem  Bildschirm  aus¬ 
gibt,  sondern  einen  echten  Quellcode 
mit  Labels  generiert,  der  danach  mit 
dem  Editor  überarbeitet  werden  kann 
und  zur  erneuten  Assemblierung  be¬ 
reitsteht.  Man  kann  hier  schon  von 
einem  Reassembler  sprechen.  Da  das 
Programm  völlig  autonom  vom  Be¬ 
triebssystem  arbeitet,  ist  es  auch  re¬ 
lativ  sicher  vor  Crashs  und  außerdem 
sehr  schnell. 

Zum  Reassemblieren  von  3KB  MC- 
Code  benötigt  ADAM  unter  Ausnut¬ 
zung  des  Bildschirmspeichers  nur  4 
Sekunden.  Der  integrierte  Monitor 
entspricht  dem  allgemeinen  Stan¬ 
dard  und  hat  keine  Besonderheiten 
aufzuweisen. 

Im  Gegensatz  dazu  ist  der  Tacer  des 
Systems  wirklich  absolute  Spitze.  Er 
läuft  zunächst  einmal  mit  einer 
Irrsinns-Geschwindigkeit  und  bietet 


alle  Informationen,  die  für  den  An¬ 
wender  relevant  sind,  am  Schirm. 
Dieser  Tracer  ist  der  erste,  der  neben 
den  Registern  auch  noch  die  Ober¬ 
grenze  des  Stacks  mit  ausgibt,  so  daß 
man  auch  vor  unsymmetrischen  Sta¬ 
pelmanipulationen  und  einem  plötz¬ 
lichen  Return  mit  unbekannter  De¬ 
stination  sicher  ist. 

Leider  ist  das  System  auf  dem 
deutschen  Markt  momentan  noch 
nicht  erhältlich,  und  auch  ein 
deutsches  Handbuch  lag  noch  nicht 
vor.  Ich  bin  mir  jedoch  sicher,  daß 
sich  bald  ein  Distributor  finden  wird 
und  daß  ADAM  in  kürzester  Zeit  viele 
Freunde  gewinnt.  (TM) 
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Turbo  Basic 

Hersteller:  Hisoft 
Vertrieb:  Hisoft 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis  auf  Anfrage 

CPC  464  K  CPC  664  K  CPC  6128  K 

Ein  neuer  Compiler  aus  England 
wurde  schon  lange  erwartet.  Aber  das 
was  Hisoft  unter  dem  Namen  "Turbo 
Basic”  anbietet,  entpuppte  sich  als 
herbe  Enttäuschung.  Wie  bei  Hisoft 
offensichtlich  üblich,  wurde  dieser 
lnteger-Compiler  wieder  einmal  mit 
einem  völlig  unverständlichen  und 
dünnen  Handbüchlein  ausgestattet. 
Nach  langem  Probieren  haben  wir 
das  System  jedoch  überreden  kön¬ 
nen,  uns  ein  kurzes  Demoprogramm 
zu  übersetzen.  Der  Compilationsvor¬ 
gang  wird  über  RSX-Befehle  aufgeru¬ 
fen  und  unterstützt  dabei  auf  Wunsch 
das  Diskettenlaufwerk.  Dies  ist  auch 
so  ziemlich  die  einzige  Option,  die 
"Turbo  Basic"  zugute  gerechnet  wer¬ 
den  kann.  Man  ist  beim  Compila¬ 
tionsvorgang  nicht  mehr  auf  läppi¬ 
sche  16KB  Quellcode  angewiesen, 
sondern  kann  schon  mal  mit  ruhigem 
Gewissen  die  30KB-Grenze  über¬ 
schreiten.  Wie  bei  allen  Integer-Com- 
pilern  üblich,  kann  "Turbo  Basic” 
nur  einen  Bruchteil  des  Locomotive- 
Basic  übersetzen.  Im  Gegensatz  zu 
anderen  Compilern,  bei  denen  die 
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nicht  verwertbaren  Befehle  mit  nütz¬ 
lichen  Unterprogrammen  belegt  wur¬ 
den,  erzeugt  "Turbo  Basic”  hier  nur 
eine  lakonische  Meldung,  die  besagt, 
daß  hier  ein  Compilationsfehler  vor¬ 
liegt. 

Sicherlich  gibt  es  noch  keinen  perfek¬ 
ten  Compiler  für  den  CPC,  aber  ein 
bißchen  mehr  Mühe  hätte  man  sich 
schon  machen  können. 

Über  das  Preis-/Leistungsverhältnis 
wird  sich  entscheiden,  ob  dieses  Tool 
Freunde  finden  wird. 

Die  Programme,  die  mit  "Turbo 
Basic"  compiliert  wurden,  liefen  auf 
jeden  Fall  einwandfrei  und  eigentlich 
gibt  es  hier  auch  nichts  zu  be¬ 
mängeln. 

Trotzdem  wird  "Turbo  Basic”  zu  den 
Programmen  gehören,  die  über  kurz 
oder  lang  in  einer  hinteren  Ecke  mei¬ 
ner  Software-Kiste  verschwinden. 

Schuld  daran  ist  nicht  etwa  die 
schlechte  Qualität  des  Programms, 
sondern  nur  die  Enttäuschung,  daß 
sich  Hisoft  nach  solchen  Superpro¬ 
grammen  wie  "Devpac  80”  und  ”C” 
wieder  so  ein  "Allerweltsprogramm” 
geleistet  hat. 

(TM) 


ACB 

Hersteller:  P.  West 
Vertrieb:  P.  West 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis:  DM  44,90 

CPC  464  &  CPC  664  □  CPC  6128  □ 

Die  Zeiten,  in  denen  die  Spielpro¬ 
gramme  von  Hobbyprogrammierern 
ein  wirres,  langsames  Flackern  wa¬ 
ren,  scheinen  nun  endgültig  vorbei  zu 
sein. 

Immer  mehr  und  bessere  Game- 
Creator  werden  für  den  CPC  ange- 
boten.  Nachdem  der  ”GAC”  die  end¬ 
gültige  Lösung  für  Adventure-Pro- 
grammierer  stellte,  folgte  in  Kürze 
das  "Laser-Basic”,  welches  von  der 
Konzeption  gut  durchdacht  war,  im 
Endeffekt  aber  so  viele  Befehle  bot. 


daß  man  genausogut  Assembler  ler¬ 
nen  könnte.  Neu  ist  das  "Arcade  Con- 
struction  Basic”,  welches  (man  höre 
und  staune)  aus  deutschen  Landen 
kommt. 

Während  Sie  sich  die  Spielidee  selber 
ausdenken  müssen,  kann  Ihnen  ”ACB” 
bei  den  Sprites  helfen.  Ein  komfortab¬ 
ler  Sprite-Editor  gehört  zum  Liefer¬ 
umfang. 

"ACB”  ist  eine  Sprite-Erweiterung, 
die  dem  Anwender  mit  über  50  neuen 
Befehlen  die  Möglichkeiten  profes¬ 
sioneller  Spieleprogrammierung  er¬ 
öffnet 

Dabei  ist  "ACB”  keine  RSX-Erweite- 
rung.  Es  stellt  tatsächlich  neue  Be¬ 
fehle  zur  Verfügung,  die  ohne  kom¬ 
plizierte  Markierungen  oder  An¬ 
hängsel  eingegeben  werden  können. 
Durch  Direktmanipulation  des  Bild¬ 
schirms  wird  das  Ganze  schön 
schnell  und  flimmerfrei. 

Neben  den  ca.  30  Sprite-Befehlen, 
gibt  es  noch  einige  Befehle  die 
Firmware-Calls  und  MC-Routinen 
ersparen. 

Mit  ein  wenig  Vorstellungskraft  kann 
man  sofort  mit  dem  Programmieren 
anfangen.  Vorstellungskraft  benötigt 
man  für  die  Spielidee  und  für  das  Er- 
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rechnen  der  Multicolor-Sprites,  die 
ähnlich  dem  Symbol-Befehl  aufge¬ 
stellt  werden. 

Sprites  können  als  Objekte  am  Bild¬ 
schirm  stehen,  als  Missiles  über  den 
Bildschirm  bewegt  werden,  als 
Player-Missiles  über  Joystick  oder 
Tastatur  über  den  Bildschirm  bewegt 
werden,  eine  Kombination  aller 
Missile-Typen  sein  und  zusätzlich 
noch  animiert  oder  als  Blockteile 
direkt  in  die  Screen  geschrieben 
werden. 


. . . 

Die  Befehle  bestehen  im  Gegensatz 
zu  Laser  Basic  nicht  aus  ”Drei- 
Buchstaben-Kommandos",  sondern 
sind  aussagekräftig  genug,  daß  man 
bei  einigermaßen  vorhandenen 
Basic-Kenntnissen  das  20-seitige 
deutsche  Handbuch  schon  kaum 
noch  benötigt. 

Der  Test  des  Systems  dauerte  einen 
halben  Tag  und  brachte  ein  Jump- 
and-Run-Spiel  im  Stile  des  Manie 
Miner,  mit  acht  Screens  und  einer  tol¬ 
len  Grafik  hervor.  Danach  kann  ich 


sagen,  daß  ”ACB"  ein  wiklich  starkes 
Tool  ist,  welches  mit  Sicherheit  in 
Kürze  zur  Standard-Ausstattung 
eines  jeden  CPC-Anwenders  gehören 
sollte.  (TM) 
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Bounder 

Hersteller:  Gremlin  Graphics 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  M-Code 
Preis:  39, -/49-  DM 
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Bounder  -  laut  Langenscheidts  Eng- 
lisch-Wörterbuch  handelt  es  sich 
hierbei  um  einen  Springer.  Und 
genau  damit  ist  man  dann  auch 
schon  beim  eigentlichen  Kernele- 
ment  des  gleichnamigen  Spieles.  Bei 
Bounder  geht  es  nämlich  um  nichts 
weiter,  als  um  einen  umherhüpfen¬ 
den  Tennisball. 

Nichts  weiter?  Öh,  na  ja,  wenn  man 
außer  Acht  läßt,  daß  sich  dieser  Ten¬ 
nisball  über  ein  hochgelegenes  Platt- 
formgewirr  bewegen  muß,  auf  dem  sich 
außerdem  noch  jede  Menge  unheim¬ 
liches  Getier  herumtreibt,  und  man 
ferner  darauf  achten  muß,  nicht  von 
den  Plattformen  herunterzufallen  - 
wirklich  nichts  weiter. 

Senkrecht  von  oben  schaut  man  als 
Spieler  auf  dieses  Labyrinth  von 
Plattformen,  die  nur  durch  Abgründe 
oder  hohe  Hecken  begrenzt  werden. 
Angefangen  wird  am  unteren  Ende 


eines  Parkours,  den  es  zu  überwinden 
gilt,  ohne  dabei  einen  seiner  Tennis¬ 
bälle  zu  verlieren.  Bereits  nach  weni¬ 
gen  Sekunden  beginnt  das  Spielfeld 
vertikal  nach  unten  wegzuscrollen. 
Aha!  Also  ist  der  Weg,  der  zu  überwin¬ 
den  ist,  doch  um  einiges  länger,  als 
ursprünglich  angenommen.  Recht 
bald  wird  man  auch  gewahr,  daß 
unser  kleines  Bällchen  nur  eine  ganz 
begrenzte  Strecke  hüpfen  kann,  und 
mitunter  sind  die  zu  überspringen¬ 
den  Wege  um  einiges  größer. 
Nachdem  mir  an  diversen  Stellen  des 
ersten  Bildes  der  Ball  unwiederbring¬ 
lich  in  die  Tiefe  abgeschmiert  ist,  er¬ 
kenne  ich  den  Sinn  der  eigentümli¬ 
chen  Kästchen,  in  denen  sich  ein 
Pfeil  befindet:  springt  man  darauf,  ist 
der  folgende  Sprung  doppelt  so  weit. 
Das  ist  doch  eine  Neuigkeit,  und  mit 
Hilfe  der  Pfeilkästchen  gelange  ich 
dann  auch  heil  durch  das  erste  Level. 
Unterwegs  dotze  ich  noch  an  einigen 
Fragezeichen  vorbei,  die,  sobald  man 
sich  dazu  überwindet,  auf  sie  zu  sprin¬ 
gen,  ihr  Geheimnis  preisgeben.  Mit¬ 
unter  erhält  man  in  solchen  Fällen 
Bonuspunkte  oder  Extrabälle  (sehr 
angenehm),  und  dann  und  wann  auch 
einmal  eine  Anzahl  von  Extrajumps 
für  die  Bonusrunde,  die  auf  jeden 
Spieler  am  Ende  eines  Levels  wartet. 
In  dieser  Bonusrunde  besteht  die  zu 


erledigende  Aufgabe  darin,  auf  einem 
Feld,  das  zur  Abwechslung  einmal 
völlig  eben  ist  und  eine  Vielzahl  von 
Fragezeichen  enthält,  alle  diese  Fra¬ 
gezeichen  abzuklappem  und  die  darin 
verborgenen  Bonuspunkte  einzusam¬ 
meln.  Ist  das  erst  einmal  erledigt,  geht 
es  ab  ins  zweite  Level;  dort  muß  man 
schon  einiges  an  Sprungkunstslücken 
an  den  Tag  legen,  um  hindurchzuge¬ 
langen. 

Das  erste,  was  mir  bei  Bounder  auf¬ 
fiel,  ist  der  Sound.  Irgendwie  habe  ich 
eigentlich  schon  mit  einer  guten 
Musikuntermalung  gerechnet,  denn 
scheinbar  haben  die  Programmierer 
von  Gremlin  denselben  abonniert  - 
jedes  Spiel  dieses  Softwarehauses, 
das  ich  bisher  in  die  Finger  bekom¬ 
men  habe,  glänzt  mit  einer  ausge¬ 
zeichneten  Musikuntermalung.  So 
hat  auch  Bounder  ein  tolles  Thema, 
das  ohne  Unterlaß  aus  dem  Lautspre¬ 
cher  meines  CPC’s  trällert.  Aber 
nicht  nur  mit  dem  Sound  hat  man  sich 
einige  Mühe  gegeben,  auch  optisch 
präsentiert  sich  Bounder  in  einem 
wohldurchdachten  Design,  das  so¬ 
wohl  von  der  Farbigkeit  als  auch 
von  der  grafischen  Gestaltung  her,  als 
gut  gelungen  bezeichnet  werden 
kann. 

Was  besonders  auffiel,  war  die  hohe 
Motivation,  die  das  Spiel  beim  Spie- 


Ein  Stahlgerüst  in 
schwindelnder  Höhe, 
auf  dem  ein  Tennisball 
herumhüpft.  Das  ist 
der  Schauplatz  von 
Bounder.  Abgesehen 
davon,  daß  überall  in 
dem  Gerüst  große 
Löcher  klaffen,  behin¬ 
dern  auch  noch  eine 
ganze  Reihe  von  un¬ 
heimlichen  Wesen  das 
Vordringen  auf  dem 
Gerüst. 

Nur  mit  Geschicklich¬ 
keit  und  gutem  Timing 
gelingt  es  dem  Spieler, 
die  immer  schwieriger 
werdenden  Level  zu 
meistern.  Ein  Spiel,  an 
dem  man  lange  seinen 
Spaß  haben  kann. 
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ler  hervorruft.  Alleine  die  Ankündi¬ 
gung,  daß  es  über  200  verschiedene 
Levels  gibt,  spornt  ungemein  an.  Ab¬ 
gesehen  davon  erscheint  die  ganze 
Angelegenheit  auf  den  ersten  Blick  so 
leicht,  daß  man  es  einfach  nicht  hin¬ 
nehmen  kann,  bereits  beim  zweiten 
Level  gescheitert  zu  sein.  Und  so  ver¬ 
sucht  man  es  nocheinmal  und  noch- 
einmal  und  nocheinmal  und . 

(HS) 


SHADOWFIRE 

Hersteller:  Bcyound  Software 
Vertrieb:  Fachhandel 
Autor:  Denton  Design 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe 
Programm:  100  %  M-Code 
Preis:  ca.  30,-  DM 

CPC  464  Kl  CPC  664  K  CPC  6128  Kl 

Wenn  es  irgendwo  in  der  Galaxis 
brenzlig  wird,  dann  ist  das  ein  Fall 
für  das  Enigma  Team.  Aus  sechs  Per¬ 
sonen  (Mann/Frau)  bestehend,  stellt 
es  so  etwas  wie  eine  galaktische 
Feuerwehr  dar.  Jedes  Mitglied  ist  auf 
seine  Art  und  Weise  ein  Spezialist  sei¬ 
nes  Faches.  Als  nun  der  garstige  Ge¬ 
neral  Zoff  den  Botschafter  von 
Kryxix  kidnappen  läßt,  beginnt 
damit  ein  neuer  aufregender  Einsatz 
für  das  Enigma  Team,  ihr  Auftrag  be¬ 
steht  darin,  in  das  Flaggschiff  Gene¬ 
ral  Zoffs  einzudringen  und,  koste  es 
was  es  wolle,  den  Botschafter  zu  be¬ 
freien.  Sollte  Zoff  mit  seinen  Plänen 
Erfolg  haben,  bedeutet  dies  den  An¬ 
fang  von  einigen  brandgefährlichen 
intergalaktischen  Verwicklungen. 
Aber  das  Enigma  Team  ist  kampf¬ 
erprobt;  sind  doch  einige  der  Mitglie¬ 
der  direkt  aus  der  Todeszelle  heraus 
rekrutiert  worden.  Aber  mit  der  Über¬ 
nahme  dieser  Selbstmordmission  ste¬ 
hen  die  sechs  Spezialisten  am  Anfang 
ihres  härtesten  und  gefährlichsten 
Auftrages. 

Obwohl  es  sich  bei  "Shadowfire”  laut 
Bcyound  um  ein  Adventure  handelt, 
ist  es  meines  Erachtens  eher  eine  Art 
von  Rollenspiel  geworden.  Aller¬ 
dings  eines  der  ersten  Wahl.  Grund¬ 
sätzlich  ist  dieses  Spiel  nichts  für 
Leute  mit  wenig  Geduld,  und  diejeni¬ 
gen,  die  am  liebsten  ganze  Armeen 
von  Aliens  im  Feuer  ihrer  Laser  ver¬ 
glühen  sehen,  werden  an  "Shadowfire” 
noch  weniger  Freude  haben.  Der  er¬ 
ste  Punkt,  der  mir  an  diesem 
Programm  auffiel,  ist  die  Konse¬ 
quenz,  mit  der  hier  die  Steuerung 
über  Icon-Menues  angelegt  wurde. 
Wirklich,  das  ganze  Spiel  besteht  nur 
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Menuesteuerung  ist 
Trumpf.  SHADOW¬ 
FIRE  ist  eine  Mi¬ 
schung  aus  Aben¬ 
teuer  und  Rollen¬ 
spiel,  deren  prägnan¬ 
testes  Merkmal  die 
Konsequenz  mit  der 
die  Iconsteuerung 
hier  eingesetzt  wurde. 
Jede  Funktion  wird 
hier  durch  Menues 
angesteuert  und  abge- 
wählt  Ein  Steuer¬ 
prinzip,  das  sicherlich 
gewöhnungsbedürftig 
ist,  aber  bereits  nach 
kurzer  Zeit  in  Fleisch 
und  Blut  übergeht. 


aus  solchen  Menues,  mit  denen  alles, 
aber  auch  wirklich  alles  gesteuert 
wird.  Zu  Beginn  steht  der  Spieler  erst 
einmal  vor  dem  Problem,  sein 
Enigma  Team  oder  die  Teammitglie¬ 
der,  die  seiner  Meinung  nach  an  der 
Mission  teilnehmen  sollten,  an  Bord 
von  General  Zoffs  Flaggschiff  zu  bea- 
men.  Damit  begann  auch  für  mich 
erst  einmal  der  Jammer,  denn  partout 
gelang  es  mir  nicht  mehr  als  einen 
speziell  dafür  ausgelegten  Androiden 
dorthin  zu  beamen.  Zwar  ist  die  engli¬ 
sche  Anleitung,  die  dem  Spiel  bei¬ 
liegt,  recht  umfangreich,  aber  trotz¬ 
dem  wurde  ich  anfangs  durch  die 
Vielzahl  der  Icons  und  deren  manch¬ 
mal  nur  schwer  zu  erkennenden  Be¬ 
deutung  sehr  verwirrt.  Erst  nach 
mehrmaligem  Anlauf  bekam  ich 
dann  das  Transportproblem  geregelt. 
Nachdem  ich  dies  erreicht  hatte,  be¬ 
gann  sich  endlich  das  Dunkel  zu  lich¬ 
ten  und  das  Spiel  richtig  Spaß  zu  ma¬ 
chen.  Jeder  Charakter  besteht  eigent¬ 
lich  nur  aus  einer  Reihe  von 
Statusanzeigen  und  Menues.  So  ste¬ 
hen  ein  Kampfscreen,  ein  Objekt- 
screen,  ein  Bewegungsscreen  und  ein 
Statusscreen  zur  Verfügung.  Der 
Bildschirm  ist  während  des  gesamten 
Spiels  zweigeteilt.  In  der  unteren 
Hälfte  befinden  sich  die  Menues,  in 
denen  man  hin  und  her  blättern 
kann,  und  in  der  oberen  Hälfte  sitzen 
einige  Windows,  in  denen  man  dann 
die  jeweiligen  Auswirkungen  einer 
Aktion  ablesen  kann.  Eines  dieser 
Windows  dient  dann  auch  dazu,  die 
Standorte  der  Missionsteilnehmer 
anzuzeigen. 

Shadowfire  ist  ein  gelungenes  Stück 
Software;  dies  bezieht  sich  allerdings 
nicht  auf  den  Sound.  Dazu  ist  anzu¬ 
merken,  daß  der  Menuepunkt,  mit 
dem  sich  die  Hintergrundmelodie 
ausblenden  läßt,  in  punkto  Sound 
das  Beste  an  diesem  Programm  ist. 
Das  Spiel  selbst  gestaltet  sich,  sobald 


es  einmal  gelungen  ist,  hinter  das 
Steuerungsprinzip  zu  steigen,  ab¬ 
wechslungsreich  und  leicht  zu 
handhaben.  Zwar  werden  die  mei¬ 
sten,  die  sich  dieses  Spiel  zulegen,  erst 
einmal  gehörig  fluchen,  da  ihnen  die 
Steuerung  ein  Buch  mit  sieben  Sie¬ 
geln  ist.  Aber  seien  Sie  versichert,  das 
gibt  sich.  In  diesem  Zusammenhang 
fällt  auf,  daß  ein  Spiel  wie  "Shadowfire" 
eigentlich  gar  keinen  Kopierschutz 
benötigt,  denn  ohne  Anleitung  läuft 
hier  nichts,  aber  auch  gar  nichts. 

(HS) 


Starquake 

Hersteller:  Bubble  Bus 
Vertrieb:  Fachhandel 
Autor:  Stephen  Crow 
Steuerung:  Tastatur/Joystick 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis:  ca.  30,-  DM 

CPC  464  Kl  CPC  664  Kl  CPC  6128  Kl 

Die  Nachricht  von  dem  instabilen 
Planeten,  der  in  ein  "Schwarzes 
Loch”  zu  fallen  droht,  beschwört  auf 
der  Erde  hektische  Betriebsamkeit 
herauf. 

Eine  Gruppe  von  Physikern  macht 
sich  sogleich  daran,  die  Auswirkun¬ 
gen  einer  solchen  Kollision  zu  er¬ 
rechnen.  Das  Ergebnis  ist  nieder¬ 
schmetternd.  Sollte  der  Planet  in  sei¬ 
nem  derzeitigen  instabilen  Zustand 
in  das  Black  Hole  stürzen,  wäre  die 
unmittelbare  Folge  davon  ein  Ster- 
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nenbeben  unüberschaubaren  Aus¬ 
maßes.  Gewaltige  Gravitationsschü¬ 
be  würden  durch  die  Galaxis  rasen 
und  alle  Planeten  bedrohen.  Also 
muß  die  innere  Stabilität  des  galakti¬ 
schen  Irrläufers  wieder  hergestellt 
werden,  und  zwar,  koste  es  was  es 
wolle,  noch  bevor  er  mit  dem  "Schwar¬ 
zen  Loch”  kollidiert.  Allerdings  be¬ 
findet  sich  der  fragliche  Planet  bereits 
im  unmittelbaren  Einflußbereich  des 
Gravosterns.  In  der  dort  herrschen¬ 
den  Strahlenhölle  kann  kein  Mensch 
auch  nur  wenige  Sekunden  existie¬ 
ren.  Die  Lösung  dieses  Problems  wird 
mit  dem  BLOB  gefunden.  Ein  BLOB, 
das  ist  ein  BIO-LOGICALLY- 
OPERATED-BEING,  also  eine  Art 
halborganischer  Roboter.  Immun  ge¬ 
gen  die  tödliche  Neutronen-  und 
Gravo-Strahlung  ist  er  in  der  Lage, 
den  kollabierenden  Planeten  wieder 
zu  stabilisieren.  Ob  das  nun  aber  ge¬ 
lingt,  steht  und  fällt  mit  den  Fähigkei¬ 
ten  des  Spielers,  der  den  BLOB  mit¬ 
tels  Fernlenkung  durch  das  ausge¬ 
dehnte  Höhlensystem  des  Planeten 
steuern  muß.  Dort  verstreut  liegen 
auch  die  Objekte,  mit  denen  das  ge¬ 
wagte  Unterfangen  zum  Erfolg  ge¬ 
führt  werden  kann. 

Bereits  mit  seinem  ersten  Programm 
WIZARDS  LAIR,  konnte  der  Pro¬ 
grammierer  Stephen  Crow  mehr  als 
einen  Achtungserfolg  erzielen. 
Machte  er  damals  noch  den  Fehler, 
sein  Spielkonzept  fast  völlig  den 
Ultimate-Spielen  ”Attic  Attac"  und 
"Sabre  Wulf’  zu  entlehnen,  so  hat  er 
bei  "Starquake”  daraus  einiges  ge¬ 
lernt.  Zwar  erinnert  auch  dieses  Spiel 
ein  wenig  an  die  erwähnten  Ultimate- 
Produkte,  ist  aber  in  vielerlei  Hin¬ 
sicht  anders,  interessanter;  schlicht 
und  einfach  besser. 

Das  Szenario  ist  zweidimensional, 
der  zu  durchquerende  Irrgarten  ist  als 
Querschnitt  dargestellt.  Das  BLOB 
kann  auf  zweierlei  Arten  und  Weisen 
fortbewegt  werden,  einmal  zu  Fuß, 
zum  anderen  mittels  überall  verstreu¬ 
ter  Antigrav-Plattformen.  Alle  maß¬ 
geblichen  Funktionen  des  BLOB 
werden  am  oberen  Rand  des  Bildes 
durch  Balkendiagramme  angezeigt. 
An  dieser  Anzeige  kann  auch  der  je¬ 
weilige  Stand  von  Energie,  Schuß¬ 
kraft  und  Plattformen  abgelesen  wer¬ 
den.  Die  zuletzt  erwähnten  Plattfor¬ 
men  dienen  bei  der  Fortbewegung  zu 
Fuß,  zur  Überbrückung  von  Barrieren 
und  Hindernissen.  Denn  ist  es  ein¬ 
mal  gelungen,  eines  der  benötigten 
Teile  zu  lokalisieren,  muß  zuerst  ein¬ 
mal  die  Antigrav-Plattform  verlassen 
werden;  auf  ihr  stehend  ist  es  nicht 
möglich,  die  benötigten  Teile  einzu¬ 


sammeln,  per  pedes  gilt  es  nun,  bis  zu 
dem  Teil  vorzudringen. 

Das  BLOB  ist  in  der  Lage,  jeweils  vier 
verschiedene  Gegenstände  zu  trans¬ 
portieren;  um  den  Planeten  wieder 
zu  stabilisieren,  bedarf  es  aber  neun 
verschiedener  Teile.  Klar,  daß  man 
unter  diesen  Umständen  das  Vorge¬ 
hen  im  Labyrinth  genauestens  orga¬ 
nisieren  sollte.  Des  weiteren  ist  es 
sicherlich  nicht  verkehrt,  ein  Karte 
des  sehr  umfangreichen  Gängesy¬ 
stems  anzulegen,  denn  bei  der  Viel¬ 
zahl  von  Wegen,  die  sich  vor  dem 
BLOB  öffnen,  kann  man  leicht  der 
Orientierung  verlustig  gehen. 

Obwohl  die  Grafik  von  "Starquake” 
zweifelsohne  durch  Zeichensätze  er¬ 
zeugt  wird,  ist  es  hier  gelungen,  ein 
wirklich  ansprechendes  Szenario  zu 
erstellen.  Immer  wieder  gelangt  der 
Spieler  in  Regionen,  die  sich  grafisch 
grundlegend  von  der  Region  unter¬ 
scheidet,  aus  der  er  gerade  kommt. 
Viele  kleine  Features  wie  Transmit¬ 
ter,  Sicherheitstüren  und  Pyramiden, 
in  denen  einzelne  Gegenstände  ge¬ 
gen  andere  ausgetauscht  werden  kön¬ 
nen,  machen  das  Spielen  von  "Star¬ 
quake”  noch  interessanter  als  es 
ohnehin  schon  ist.  Sicherlich  ist  Ste¬ 
phen  Crow  nicht  zu  unrecht  in  Eng¬ 
land  zum  "Programmierer  des  Jah¬ 
res”  gewählt  worden.  Hier  hat  er  sein 
Meisterstück  vorgelegt,  und  Bubble 
Bus  veröffentlichte  das  beste  Spiel, 
das  sie  jemals  im  Programm  hatten. 

(HS) 
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Zoids 

Hersteller:  Martech 
Vertrieb:  Fachhandel 
Steuerung:  Tastatur/Joystick 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis:  ca.  47,-  DM 

CPC  464  H  CPC  664  E  CPC  6128  E 

Die  Zoids  sind  los.  Einige  unter 
Ihnen  werden  sie  schon  kennen,  die 
phantastischen  Biomechanoiden  der 
Firma  Tomy.  Zoids,  das  sind  auf  das 
Schwerste  bewaffnete  Kampfcyborgs, 
die  seil  einiger  Zeit  zum  breiten 
Angriff  auf  Deutschlands  Kinderzim¬ 
mer  blasen.  Eine  ganze  Armee  von 
Science  Fiction-Gestalten  ist  unter 
der  Aufsicht  japanischer  Konstruk¬ 
teure  entworfen  worden.  Einige  die¬ 
ser  Wesen  sehen  aus  wie  robotisierte 
Insekten,  andere  wiederum  ähneln 
eher  saurierartigen  Tieren  ä  la 
Godzilla  und  Konsorten.  Daß  die 
Ähnlichkeit  zu  den  japanischen 
Filmmonstern  nicht  von  ungefähr 
kommt,  zeigt  eigentlich  schon  das 
Ziel,  das  der  Spieler  bei  diesem  Spiel 
erreichen  muß.  Es  gilt  nämlich,  den 
in  viele  Teile  zerschmetterten  Ober- 
zoid  Zoidzilla  wieder  zusammenzu¬ 
setzen.  Zoidzilla,  der  Boss  der  roten 
Zoids,  ist  tatsächlich  das  einzige  We¬ 
sen,  das  die  Macht  des  bösen  Red 
Hora,  seines  Zeichens  Chef-Finster¬ 
ling  der  üblen  blauen  Zoids,  zu  bre¬ 
chen  vermag. 

In  die  Suche  nach  den  verstreuten 
Zoidzilla-Teilen  wird  dann  auch  ein 
Erdenmensch  verwickelt,  der  mit  sei¬ 
nem  defekten  Raumschiff  auf  dem 
Planeten  der  Zoids  notlanden  mußte. 
Ganz  klar,  daß  der  Spieler  die  Rolle 
des  havarierten  Piloten  übernimmt. 
Dieser  gelangt  nämlich  in  das  Innere 
eines  kleinen  roten  Zoids.  Dort  er¬ 
fährt  er  von  der  Auseinandersetzung 


Stephen  Crow  hat 
die,  seit  Wizardslair, 
in  ihn  gesetzten  Hoff¬ 
nungen  nicht  ent¬ 
täuscht.  Mit  STAR¬ 
QUAKE  steuert  er 
dem  Genre  der 
Search  &  Destroy- 
Spiele  ein  neues 
Highlight  bei.  Mit 
seiner  abwechslungs¬ 
reichen  Grafik  und 
dem  rasanten  Spiel¬ 
geschehen  ist  dieses 
Spiel  sicherlich  eine 
Bereicherung  für  jede 
Softwaresammlung. 
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Is  ja  gut.  Kommt  ja.  Das  Kompjutä-Schpiel.  Echt  versprochen.  | 
Aber  bevor  ich  mein  eigenes  Spiel  nich  selber  kann,  kriecht  Ihr  i 
das  auch  nich.  Dauert  aber  nich  mehr  lange.  Die  Fahrt  im  Nebel...  ! 
Nix  as  Schrott  gefahn...  Könnt  Ihr  ja  selber  sehn.  Bald. 

Muß  aber  nu  erstmal  wieder 
neuen  Jeu  Schtick  holen. 

Bis  bald  auf  Euerm  Bildschirm. 


Oder  vorher  schon  ma  den  Kuh-Pong  aussägen  und  schicken. 


Kommt  dann  der  Gesamtkatalog.  Aber  Hallo! 

15  Semmel  Verlach 
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zwischen  roten  und  blauen  Zoids. 
Recht  bald  stellt  der  Erdenbürger  fest, 
daß  er  das  Zoid,  das  ihm  als  Unter¬ 
schlupf  dient,  zu  lenken  vermag.  Der 
Suche  nach  den  verstreuten  Zoidzilla - 
Teilen  steht  also  nichts  mehr  im 
Wege. 

Sobald  sich  Zoids  nach  dem  Laden 
auf  dem  Monitor  meldet  und  der 
Spieler  sich  seine  Art  zu  steuern  ein¬ 
gestellt  hat,  meldet  sich  der  Zoid,  den 
man  zu  steuern  die  Ehre  hat,  mit 
einem  Menue.  Von  hier  aus  stehen 
verschiedene  Funktionen  zur  Verfü¬ 
gung.  Ziemlich  in  der  Mitte  des 
Screens  befindet  sich  ein  Window, 
durch  das  eine  Ausschnittskarte  des 
umliegenden  Geländes  zu  sehen  ist. 
Auf  dieser  Karte  sind  alle  für  das  Zoid 
gangbare  Wege  eingezeichnet;  ferner 
kann  die  Lage  in  der  Nähe  befindli¬ 
cher  Bauwerke  und  Ansiedlungen 
abgelesen  werden. 

Ein  Teil  der  übrigen  Funktionen 
steht  in  Korrespondenz  mit  dem  be¬ 
schriebenen  Zentralfenster.  Wählt 
man  Menuepunkte  wie  beispielsweise 
Radio  (Kommunikation)  oder  Scanner 
(Radar),  so  erscheint  auf  der  Karte  ein 
Fadenkreuz,  mit  dem  man  den  zu 
untersuchenden  Punkt  genau  be¬ 
zeichnen  kann.  Ist  dies  geschehen, 
wird  die  Funktion  durch  das  Drü¬ 
cken  des  Feuerknopfes  aktiviert  und 
das  folgende  Ergebnis  durch  ein 
Extra-Window,  das  sich  von  Fall  zu 
Fall  öffnet,  ausgegeben. 

Obwohl  es  bei  dem  Zoid,  das  durch 
den  Spieler  kontrolliert  wird,  anfangs 
eher  um  ein  minderwertiges  Killer- 
cyborg  handelt,  sind  die  vorhande¬ 
nen  Waffensysteme  so  ausgefeilt,  daß 
so  mancher  irdische  General  sich  alle 
zehn  Finger,  und  die  Zehen  noch 
dazu,  danach  lecken  würde. 

Sobald  das  Zoid  angegriffen  wird, 
meldet  es  seinem  menschlichen  Mei¬ 
ster,  daß  sich  gegnerische  Geschosse 
im  Anflug  befinden.  Wenn  diese 
nahe  genug  heran  sind,  um  Abwehr¬ 
maßnahmen  in  die  Wege  zu  leiten, 
weicht  das  Zentralfenster  einem  an¬ 
deren,  größeren  Window,  durch  das 
man  einen  Ausblick  auf  die  ankom- 
menden  Raketen  hat.  Mittels  einer 
großkalibrigen  Schnellfeuerwaffe, 
die  mit  Explosivprojektilen  gefüttert 
wird,  muß  der  Spieler  nun  sein  Zoid 
verteidigen.  Wie  gut  oder  schlecht 
ihm  das  gelungen  ist.  zeigt  ein  Status¬ 
bericht,  der  nach  der  Abwehr  des 
Angriffs  eingeblendet  wird.  Ist  das 
Zoid  dann  noch  dazu  in  der  Lage, 
kann  man  zum  Gegenangriff  blasen. 
Hier  kommen  offensichtlich  atomare 
Lenkwaffen  zum  Einsatz,  die,  sobald 
sie  gestartet  sind,  aus  dem  Zoidcockpit 
ferngelenkt  werden  müssen.  Wie  bei 
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Kampfcyborgs  ver¬ 
schiedenster  Fasson 
sind  die  eigentlichen 
Hauptfiguren  dieses 
SF-Thrillers.  Dies  kann 
allerdings  nur  mittels 
Zoidzilla,  dem  An¬ 
führer  der  Blauen 
Zoids,  geschehen. 
Dieser  ist  allerdings 
nach  einem  verlore¬ 
nen  Kampf  de¬ 
montiert  worden.  Der 
Spieler  steuert  an¬ 
fangs  ein  kleines 
blaues  Zoid,  mit  dem 
er  versuchen  muß, 
Zoidzilla  wiederher¬ 
zustellen. 


einem  Angriff  öffnet  sich  auch  in  die¬ 
sem  Fall  das  erweiterte  Zentralfen¬ 
ster,  nur  diesmal  gilt  es,  ein  rasendes 
Geschoß  durch  einen  Parkour  von 
spitzen,  fast  senkrecht  aufragenden 
Felsnadeln  ins  Ziel  zu  lenken. 
Sowohl  grafisch  als  auch  in  Punkto 
Spielidee  und  Ablauf  besticht  Zoids 
zwar  weniger  durch  völlig  neue  Ideen, 
weist  aber  eine  recht  interessante 
Zusammenstellung  bekannter  De¬ 
tails  auf.  Beim  Sound  ist  auf  das  Vor¬ 
handensein  von  Aktionsgeräuschen 
geachtet  worden,  aber  sonst  kann 
man  dazu  nicht  viel  Positives  vermel¬ 
den.  Auf  jeden  Fall  ist  Zoids  ein  Spiel, 
das  seine  Features  nicht  beim  ersten 
Spielen  vorzeigt.  Schon  am  Vorhan¬ 
densein  einer  Abspeicheroption  kann 
man  erkennen,  daß  es  wohl  einige 
Zeit  des  Spiels  braucht,  um  Zoidzilla 
wieder  zusammenzusetzen,  und  Red 
Horn,  das  böse  rote  Zoid  zu  vernich¬ 
ten.  (HS) 
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Equinox 

Hersteller:  Micro  Gen 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis:  ca.  C  29,90  /  D  47,50  DM 

CPC  464  E  CPC  664  E  CPC  6128  E 

Daß  der  Schneider  Computer  sich 
durch  seine  Hardware  auf  das  Beste 


zur  Erstellung  von  farblich  wie  gra¬ 
fisch  ausgefeilten  Programmen  eig¬ 
net,  ist  ja  durch  so  manches  gelun¬ 
gene  Spielprogramm  hinlänglich  be¬ 
legt.  Auch  das  hier  vorliegende  Spiel 
"Equinox”  ist  mit  einer  atembe¬ 
raubend  guten  Farbgrafik  versehen. 
Auf  einem  abgelegenen  Asteroiden, 
dessen  Bodenschätze  mittels  voll¬ 
automatischer  Schürfanlagen  ausge¬ 
beutet  werden,  ist  scheinbar  einiges 
schief  gelaufen.  Unheimliche  Aliens 
sind  in  das  Innere  des  intergalakti¬ 
schen  Gesteinsbrocken  eingedrun¬ 
gen,  und  stiften  dort  einiges  an 
Unruhe.  So  sind  auch  einige  Contai¬ 
ner  mit  spaltbarem  Material  abhan¬ 
den  gekommen.  Alle  Untersuchun¬ 
gen  des  Vorfalles  ergeben,  daß  dieses 
Material  innerhalb  kürzester  Zeit 
eine  kritische  Masse  aufgebaut  haben 
wird.  Die  unmittelbare  Folge  hiervon 
wäre  eine  gewaltige  Thermonukleare 
Reaktion,  die  ohne  Zeifei  den  gesam¬ 
ten  Asteroiden  und  alle  darauf  vor¬ 
handenen  Anlagen  vernichten  wür¬ 
de. 

Eine  Sonde  wird  in  das  Stollen¬ 
labyrinth  des  Weltraumfelsens  ein- 
geschleusl,  um  die  einzelnen  Contai¬ 
ner  mit  der  gefährlichen  Substanz  zu 
bergen  und  in  einem  reaktionshem¬ 
menden  Raum  in  Sicherheit  zu  brin¬ 
gen.  Dies  gestaltet  sich  allerdings  als 
schwieriger  als  ursprünglich  ange¬ 
nommen.  Denn  als  die  Aliens  in  den 
Asteroiden  eindrangen  lösten  sie 
einen  Sicherheitsalarm  aus,  worauf¬ 
hin  der  Zentralcomputer  eine  ganze 
Reihe  von  unzerstörbaren  Sicher¬ 
heitsschotts  verschloß.  Um  durch 
diese  hindurchzugelangen,  muß  die 
Sonde  zuerst  einer  ganzen  Reihe  von 
Gegenständen,  mit  denen  die  Sicher¬ 
heitsschotts  geöffnet  werden  können, 
habhaft  werden.  Dadurch  wird  es 
überhaupt  erst  möglich,  an  die  Con¬ 
tainer  heranzukommen. 
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Software  Reviews 


'The  Home  of  the  Week's”  Micro 
Gen  macht  seinen  zweiten  Abstecher 
ins  Reich  der  Baller-Spiele,  denn  ge¬ 
schossen  wird  hier  reichlich.  Aber 
dem  wilden  Kampfgetümmel  zum 
Trotz,  können  es  die  Köpfe  bei  Micro 
Gen  nicht  lassen,  auch  noch  eine  ge¬ 
hörige  Portion  Abenteuer  mit  ein¬ 
zubringen.  Die  vielen  Ebenen  und 
Räume  werden  vertikal  dargestellt, 
als  verwinkelte  Tunnels,  als  großer 
Raum,  als  Tunnel,  als  Magnetlift,  der 
nur  in  eine  Richtung  zu  befahren  ist, 
oder  als  Fabrikhalle.  Überall  in  die¬ 
sen  Räumen  befinden  sich  große, 
futuristisch  aussehende  Maschinen, 
von  denen  einige  wirklich  nur  der  De¬ 
koration  dienen,  andere  aber  wich- 
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Spaltbares  Material 
ist  an  vielen  Stellen 
des  Minenastero¬ 
iden  durch  Außerir¬ 
dische  verborgen 
worden.  Mit  viel  An¬ 
spruch  an  Geschick¬ 
lichkeit  und  Intelli¬ 
genz  stellt  Equinox 
eine  gelungene 
Mischung  aus  Aben¬ 
teuer-  und  Arcade- 
Elementen  dar.  Es 
gilt,  sich  den  Weg 
zu  den  versteckten 
Containern  mit 
Reaktion  und  Ein¬ 
fallsreichtum  zu 
bahnen. 


tige  Bedeutungen  für  das  weitere 
Spiel  haben. 

So  gibt  es  dort  beispielsweise  Trans¬ 
mitter.  durch  die  man  ohne  Mühe  und 
Zeitverlust  in  verborgene  Räume  mit 
zu  meist  wichtigen  Objekten  gelangen 
kann.  Durch  diese  Transmitter  ist  es 
nach  dem  erfolgreichen  Deponieren 
des  in  diesem  Level  befindlichen 
Containers  auch  möglich,  in  andere 
Level  des  Bergwerksasteroiden  zu  ge¬ 
langen,  um  auch  dort  nach  dem 
Rechten  zu  sehen.  Dies  wird,  wie  sich 
eigentlich  von  selbst  versteht,  mit 
fortschreitendem  Spielstand  immer 
schwieriger.  Zwar  nehmen  die  Alien- 
Angriffe  nicht  zu,  aber  die  Labyrinthe 
der  Levels  werden  immer  komplexer 
und  die  Puzzles  immer  schwieriger. 
Eines  muß  man  Micro  Gen  wirklich 
zugestehen  -  die  letzten  drei  Pro¬ 
gramme  aus  diesem  Hause  sind  rund¬ 
herum  gelungen.  Seitdem  man  sich 


SPIELlMc  DEOIENUNGS-  DOKUMENTATION  5MHK  SOUND  ‘■HEIS.lf ISTUNG 


auch  ein  kleines  bißchen  darum  be¬ 
müht,  das  Spielgeschehen  ein  wenig 
anders  zu  gestalten  als  die  x-te  Wally, 
Wilma,  Herbert,  etc.  Week-Fortset- 
zung.  Nicht  daß  die  so  richtig  schlecht 
gewesen  wären,  aber  ein  wenig  lang¬ 
weilig  wurde  es  schon,  oder?  (HS) 

Classic  Invaders 

Hersteller:  Bubble  Bus 
Vertrieb:  Fachhandel 
Autor:  Paul  Midcalf 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  1()0%M-Code 
Preis:  ca.  15,-  DM 

CPC  464  IS  CPC  664  Kl  CPC  6128  K 

Am  Anfang  war  das  Pong.  Und  das 
wurde  schnell  langweilig:  glückli¬ 
cherweise  so  langweilig,  daß  sich  ein 
Programmierer  auf  den  Hosenboden 
setzte  und  sich  ein  Spiel  schrieb,  mit 
dem  es  sich  noch  besser  spielen  ließ, 
als  es  bisher  überhaupt  zu  erahnen 
war.  Die  grauslichen  Invasoren  setzten 
dann  auch  schon  kurze  Zeit  später 


Back  again  -  Space 
Invaders  ist  im 
Grunde  genommen 
der  Oldie  unter  den 
TV-Games,  und  end¬ 
lich  hat  dieser  Ever¬ 
green  nun  auch  sei¬ 
nen  Weg  in  die 
CPC’s  gefunden. 
Seit  den  Tagen,  in 
denen  sie  in  hellen 
Scharen  Deutsch¬ 
lands  Spielhallen 
angriffen,  haben 
sie  auch  einiges  hin¬ 
zugelernt.  So  ist  die 
ganze  Sache  nun  in 
ein  Gewand  aus 
Musik  und  Farbe 
gesteckt  worden; 


zum  Großangriff  auf  die  Spielhallen 
der  Welt  an. 

Von  jenseits  der  Galaxis  waren  sie 
angereist,  um  ein  Loch  im  Terminka¬ 
lender  suchend,  die  Zeit  zu  erübrigen, 
unsere  gute  alte  Erde  zu  vernichten. 
Ein  ruchloses  Unterfangen,  das  sicher¬ 
lich  auch  vom  Erfolg  gekrönt  worden 
wäre,  gäbe  es  da  nicht  einen  kleinen 
Raumjäger,  der  sich  auf  das  beste  be¬ 
waffnet  den  Außerirdischen  in  den 
Weg  stellt.  Hinter  einigen  Schutz¬ 
wällen  verborgen  gilt  es,  die  in  Scha¬ 
ren  auf  den  Spieler  einstürmenden 
Aliens  einen  nach  dem  anderen  in 
den  Speicherhimmel  des  Rechners  zu 
ballern. 

Ballerspiel,  auf  wenige  andere  paßt 
dieser  Name  so  treffend  wie  auf  das 
hier  vorliegende  Remake  des  Klassi¬ 
kers  "Space  Invaders",  das  sich  in  die¬ 
ser,  dem  ursprünglichen  Original 
exakt  nachempfundenen  Version 
"Classic  Invaders"  nennt. 

Sicherlich  hat  sich  seit  jenen  Tagen 
einiges  getan;  so  wird  die  Farbe  im 
Spiel  hier  nicht  mittels  einer  farbi¬ 
gen  Folie,  die  über  den  Monitor  ge¬ 
spannt  wurde,  erzeugt,  sondern  via 
fortschrittlicher  Programmierung  aus 
dem  Prozessor  gekitzelt.  Aber  davon 
einmal  abgesehen,  ist  das  hier  die 
definitive  Version  dieses  Spiele-Ever- 
greens,  die  in  sich  eigentlich  eine 
ganze  Reihe  von  interessanten 
Features  birgt.  Zunächt  einmal  sei 
auf  das  tolle  kleine  Musikstückchen 
hingewiesen,  das  zu  Beginn  eines  je¬ 
den  Spieles  ertönt  und  sich  anhört 
wie  der  Soundtrack  eines  50er  Jahre 
SF-Filmes. 
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Optionen  für  Steuerung  und  Spieler¬ 
anzahl  sind  fast  selbstredend  vor¬ 
handen.  Auf  der  Disk-Version  gibt  es 
sogar  eine  speicherbare  Hi-Score- 
Liste.  Zweifelsohne  eines  der  ältesten 
Computerspiele  überhaupt,  aber 
auch  eines  der  spielbarsten,  wie 
unzählige  Versionen  beweisen.  Und 
Bubble  Bus  haben  mit  ihren  "Classic 
Invaders”  sicherlich  eine  der  besse¬ 
ren  im  Programm.  (HS) 


Gunfright 

Hersteller:  Ultimate 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100  %  M-Code 
Preis:  ca.  39,90  DM 

CPC  464  B  CPC  664  B  CPC  6128  KI 
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Ultimate  goes  West;  so  könnte  man 
das  neueste  Produkt  des  einstmals  für 
seine  brillianten  Spiele  gerühmten 
Softwarehauses  umschreiben. 

Und  wirklich,  seit  Knight  Lore  hat 
Ultimate  schwer  nachgelassen. 

So  ziemlich  jedes  Spiel,  das  seit  die¬ 
sen  Tagen  erschienen  ist,  sieht  wie  ein 
eineiiger  Zwilling,  mit  anderer  Haar¬ 
farbe  aus. 

Bei  Gunfright  hat  man  sich  das  Män¬ 
telchen  des  klassischen  Kopfgeldjä¬ 
gers  umgelegt  und  die  Grafik  so 
umgestrickt,  daß  es  aussieht,  als  fände 
die  ganze  Geschichte  in  Dodge  City 


statt.  In  dieser  Stadt  gilt  es  dann,  eine 
ganze  Reihe  steckbrieflich  gesuchter 
Verbrecher,  die  dort  gerade  ihr  Unwe¬ 
sen  treiben,  dingfest  zu  machen.  Daß 
die  Herren  sich  nicht  freiwillig  von 
ihren  Colts  trennen,  versteht  sich  fast 
von  selbst,  also  kommt  es  zum 
Duell. 

Während  Sie  die  Spielfigur  auf  der 
Suche  nach  den  Verbrechern  durch 
die  Stadt  führen,  wird  das  Areal  im 
üblichen  3D-Szenario  dargestellt, 
das  auch  hier  wieder  grafisch  ein¬ 
wandfrei  gestaltet  wurde. 

Die  Bevölkerung,  die  außer  den  Fin¬ 
sterlingen  in  der  Stadt  umhergeistert, 
gibt  unserem  kleinen  Bountyhunter 
immer  wieder  Tips,  durch  die  er  die 
Bösewichter  leichter  finden  kann.  Ist 
es  dann  erst  einmal  gelungen,  den  Re¬ 
volverhelden  zu  stellen,  blendet  sich 
eine  Szene  ein.  in  der  man  mittels 
eines  Fadenkreuzes  den  Killer  außer 
Gefecht  setzen  kann;  allerdings  nur 
wenn  man  schneller  als  er  zieht  und 
schießt.  Ist  dies  gelungen,  wartet  be¬ 
reits  der  nächte  Outlaw  darauf,  sich 
mit  Ihnen  zu  duellieren.  Das  Sorti¬ 
ment  der  Kontrahenten  reicht  von 
Buffallo  Bill  über  Billy  the  Kid,  bis  zu 
Doc  Holliday. 

Je  weiter  man  in  dieser  illustren  Riege 
von  Wild  West-Legenden  vordringt, 
desto  talentierter  werden  die  Gegen¬ 
spieler. 

Erschwerend  kommt  hinzu,  daß  die 
Bevölkerung  sich  zwar  recht  neutral 
verhält,  eine  Berührung  mit  den  Ge¬ 
stalten  aber  trotzdem  den  sicheren 
Tod  bedeutet. 

Bemerkenswert  ist  hier  noch  anzu¬ 
merken,  daß  das  sonst  bei  Ultimate 
übliche  Abenteuermoment  hier 
völlig  fehlt.  Rundherum  ist  Gunfight 
eine  runde  Sache,  alles  ist  glatt  und 
sauber  programmiert,  Musik  und 
Grafik  ist  routiniert  und  souverän  ge¬ 
macht.  Das  einzige,  das  diesem  Spiel 


Die  Cartwrights  wä¬ 
ren  bis  an  ihr  Le¬ 
bensende  neidisch, 
wenn  sie  sehen 
könnten,  welch  tolle 
Abenteuer  sich  al¬ 
leine  beim  Herum- 
wandem  in  einer 
kleinen  Western¬ 
stadt  erleben  lassen. 
Der  kleine  Hansel, 
der  da  von  Ultimate 
auf  den  Weg  ge¬ 
schickt  wird,  ähnelt 
auf  das  Schwerste 
einem  gewissen  Sab- 
reman,  der  in  ein 
paar  anderen  Spie¬ 
len  bereits  einige  ra¬ 
sante  Abenteuer  er-r 
leben  durfte. 


wirklich  fehlt,  ist  ein  wenig  Inno¬ 
vation  und  einige  gute  Ideen. 

Na  mal  sehen,  vielleicht  gelingt  es 
den  Ultimate-Jungs,  ihren  sinkenden 
Stern  ein  wenig  aufzupowern  und  bei 
Gelegenheit  mal  wieder  mit  einem 
Klasse-Programm  herauszukommen. 

(HS) 


Ghosts’n  Goblins 

Hersteller:  Elite  Systems 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  ca.  45-  DM 

CPC  464  B  CPC  664  B  CPC  6128  B 

Weg  ist  sie.  Entführt  vom  Herrn  der 
Trolle,  ist  die  schöne  Prinzessin  aus 
dem  Königreich  verschwunden.  Ein 
Ritter,  der  der  edlen  Dame  zärtliche 
Gefühle  entgegenbringt  macht  sich 
auf  den  Weg  in  das  unheimliche  Kö¬ 
nigreich  der  Trolle,  um  seine  Herz¬ 
dame  aus  den  Klauen  des  garstigen 
Unholdes  zu  befreien. 

Schon  an  der  Grenze  des  vom  Bösen 
gezeichneten  Landes,  muß  der  tapfere 
Ritter  erkennen,  daß  sein  Unterneh¬ 
men  sich  doch  nicht  so  einfach  gestal¬ 
tet,  wie  er  sich  das  vorgestellt  hat. 
Denn  dem  König  der  Trolle  ist  der 
Eindringling  nicht  verborgen  geblie¬ 
ben;  er  weist  seine  Untergebenen  an, 
den  Wicht,  der  es  wagt  sich  ihm  in  den 
Weg  zu  stellen,  zu  vernichten. 

Der  Weg  des  Helden  führt  ihn  an¬ 
fangs  über  ein  ödes  Gräberfeld,  das 
den  Eingang  zum  finsteren  König¬ 
reich  markiert.  Mit  großem  Schrecken 
erkennt  unser  Held,  daß  um  ihn 
hemm  unzählige  Hände  das  Erd¬ 
reich  von  unten  her  aufwühlen. 
Schon  wenig  später  hat  sich  der  erste 
Untote  seinen  Weg  durch  das  kru- 
mige  Erdreich  gebahnt  -  mit  rucken¬ 
den  Bewegungen  verfolgt  er  den  Rit¬ 
ter,  der  rundum  immer  mehr  dieser 
schrecklichen  Gestalten  gewahr 
wird. 

Aber  er  ist  nicht  unvorbereitet  ge¬ 
kommen,  und  er  weiß,  daß  die  wan¬ 
kenden  Zombies  zu  den  harmlose¬ 
sten  Widersachern  gehören,  die  ihm 
auf  seinem  Weg  in  das  Schloß  des 
Trollkönigs  begegnen  werden. 

Elite  Systems  ist  eines  jener  engli¬ 
schen  Softwarehäuser,  die  in  den  letz¬ 
ten  Monaten  einiges  an  Gerede  her¬ 
vorgerufen  haben.  Begonnen  hat  die 
Munkelei  eigentlich  mit  der  Vorstel¬ 
lung  eines  völlig  neuartigen  Aben¬ 
teuerspieles.  "Scooby  Doo  and  the 
Castle  of  Mistery"  sorgt  bis  zum 
heutigen  Tage  immer  noch  für  wilde 
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Gerüchte;  denn  obgleich  es  mit  enor¬ 
mem  Aufwand  beworben  wurde,  ist 
es  immer  noch  nicht  gelungen,  das 
Spiel  so  zu  gestalten,  wie  es  eigentlich 
vorgesehen  war.  Und  so  ist  es  bisher 
bei  den  tollen  Werbeseiten  geblie¬ 
ben. 

Danach  versuchte  man  sich  am  Um¬ 
setzen  von  Spielhallenprogrammen. 
Das  erste  Produkt,  das  im  Zuge  dieses 
neuen  Konzeptes  auf  den  Markt  los¬ 
gelassen  wurde,  war  das  stellenweise 
sehr  kontrovers  diskutierte  ”Com- 
mando”  oder  "Space  Invasion".  Jetzt 
aber  hat  auch  Elite  ein  absolutes 
Highlight  in  seinem  Programm,  eben 
"Ghosts'n  Goblins". 

Meiner  Meinung  nach  ist  die  Jagd 
nach  der  entführten  Prinzessin  das 
wohl  gelungenste  Geschicklichkeits¬ 
spiel  der  letzten  Monate.  Der  Spielab¬ 
lauf  ist  im  Grunde  genommen  denk¬ 
bar  einfach:  in  einem  von  rechts  nach 
links  scrollenden  Hintergrund  so  weit 
wie  möglich  in  Richtung  der  Trollburg 
zu  gelangen.  In  der  ersten  Phase  wird 
das  Vorankommen  durch  Zombies, 
magische  Raben  und  giftspeiende 
Pflanzen  erschwert.  Ist  der  Spieler 
diesen  Wesen  glücklich  entronnen, 
gelangt  er  an  das  Ufer  eines  ausge¬ 
dehnten  Sumpfgebietes,  in  dem  sich 
wiederum  verschiedene  Arten  von 
Geistern  und  Ungeheuern  hemmtrei- 
ben. 

Anders  als  im  bisherigen  Spielver¬ 
lauf,  sind  einige  dieser  Unholde 
unverwundbar.  Die  einzige  Methode, 
an  ihnen  vorbeizugelangen,  besteht 
im  Ausweichen  und  geschickten 
Manövrieren. 

Immer  neue  Widersacher,  die  über 
andere  Eigenschaften  verfügen  als 
das  Getier,  das  dem  Spieler  auf  sei¬ 
nem  bisherigen  Wege  begegnet  ist,  er¬ 
fordern  immer  wieder  aufs  neue 
schnelle  und  sichere  Reaktionen.  Es 
gibt  Stellen  im  Spiel,  an  denen  der 
Ritter  auf  den  ersten  Blick  nicht  ohne 
weiteres  vorankommt,  es  muß  pro¬ 


Immer  neue  Wider¬ 
sacher  winden  sich 
aus  dem  lehmigen 
Boden,  um  sich  auf 
unseren  unschuldi¬ 
gen  Helden  zu  stür¬ 
zen.  Dieser  verfügt 
allerdings  über  ein 
ganzes  Sortiment 
von  Schwertern,  mit 
denen  er  den  einen 
oder  anderen  seiner 
Feinde  niederstrecken 
kann. 

Aber  Vorsicht,  ab 
und  an  begegnen 
dem  Ritter  auch 
Unholde,  die  seine 
Schwerter  mit  einem 
kalten  Lächeln  weg¬ 
stecken. 


biert  werden,  wie  man  seinen  Helden 
an  den  mächtigen  und  unverwund¬ 
baren  Trollen  vorbeibringt. 

Ein  wahrlich  gelungener  Soundtrack 
begleitet  das  Vorbeiscrollen  des  far¬ 
benfrohen  Hintergrundes.  Ghosts’n 
Goblins  ist  sicherlich  nicht  gerade 
das  leichteste  Spiel,  das  es  derzeit  für 
die  CPC's  gibt,  aber  bestimmt  ist  es 
eines  der  unterhaltsamsten.  (HS) 


Mission  Elevator 

Hersteller:  Euro  Gold 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  ca.  39,-  DM 

CPC  464  81  CPC  664  8  CPC  6128  8 


Irgendwo  in  der  Stadt  hat  sich  ein 
ausländischer  Agentenring  eine  ge¬ 
heime  Zentrale  errichtet.  Von  dort 
aus  werden  alle  nur  denkbaren  Akti¬ 
vitäten  gesteuert,  deren  erklärtes  Ziel 
die  Zerstörung  der  herrschenden 
Ordnung  ist.  Eine  der  niederträchtig¬ 
sten  Aktionen  dieses  Ringes  konnte 
allerding  vom  eigenen  Geheimdienst 
in  Erfahrung  gebracht  werden.  Ir¬ 
gendwo  im  62.  Stockwerk  des  belieb¬ 
testen  Hotels  der  Stadt  ist  eine  ver¬ 
heerende  Bombe  versteckt  worden. 
Ganze  Scharen  von  Agenten  haben 
sich  in  diesem  Gebäude  eingemietet, 
um  eine  eventuelle  Gegenaktion  der 
Abwehrdienste  zu  verhindern.  Die 
einzige  Möglichkeit,  der  Situation 
Herr  zu  werden,  besteht  darin,  einen 
Top-Agenten  in  das  Hotel  einzu¬ 
schleusen. 

Dieser  Spezialist  muß  allerdings  erst 
einmal  unter  lebensgefährlichen  Be¬ 
dingungen  in  die  besagte  62.  Etage  ge¬ 
langen.  Um  nicht  allzusehr  die  Auf¬ 
merksamkeit  der  gegnerischen  Agen¬ 
ten  auf  sich  zu  lenken,  muß  er  seine 
Mission  inkognito  absolvieren. 

Also  weiß  nicht  einmal  das  Hotelper¬ 
sonal  über  seine  wahren  Aufgaben 


Für  unsere  ständige  Joyce-Rubrik  suchen  wir 
noch 

Programme 
Tips  +  Tricks 

zur  Veröffentlichung.  Honorar  nach 
Vereinbarung. 

Einsendungen  an: 

DMV  Daten  &  Medien  Verlagsges.  mbH, 
Fuldaer  Str.  6,  3440  Eschwege 


Wir  haben  die  Joyce-Software,  die 


Sie  suchen! 


Buchhaltung 

ab 

DM 

577,- 

Hausverwaltung 

ab 

DM 

570,- 

Faktura/Lager/Datei 

ab 

DM 

178,- 

Vereinsverwaltung 

ab 

DM 

248,- 

Adressverwaltung 

ab 

DM 

128,- 

Videoarchivverwaltung 

ab 

DM 

98,- 

Datenbank 

ab 

DM 

198,- 

Finanzmathematik 

ab 

DM 

95,- 

Wärmebedarf 

ab 

DM 

248,- 

Weitere  Software  auf  Anfrage! 

Computer  —  Studio 

Am  Rätschenbach  9,  8058  Erding 
Tel.:  08122-40529  zw.  14.00  u.  18.00 

Händleranfragen  erwünscht 
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Bescheid,  das  ist  auch  gut  so,  denn  die 
Informanten  sprachen  auch  von  Be¬ 
stechung,  und  wer  weiß,  vielleicht  ist 
ja  selbst  einer  der  Portiers  ein  getarn¬ 
ter  gegnerischer  Agent. 

"Mission  Elevator”  ist  in  vielerlei 
Hinsicht  ein  bemerkenswertes  Pro¬ 
gramm.  Zum  einen  ist  es  im  Grunde 
genommen  eine  Umsetzung  eines  we¬ 
niger  erfolgreichen  Spielhallenauto- 
maten  (dies  -  soviel  als  Anmerkung  - 
sagt  allerding  nichts  über  die  Qualität 
des  Spiels  aus);  zum  anderen  ist 
Mission  Elevator  ein  deutsches  Pro¬ 
dukt,  ein  Spiel  -  und  noch  dazu  ein 
Action  Spiel.  Zieht  man  in  Betracht, 
daß  die  Produkte,  die  zumeist  aus  den 
hiesigen  Software-Laboratorien  kom¬ 
men,  bisher  bestenfalls  Basic- Adven- 
tures  waren,  ist  dies  doch  recht  er¬ 
staunlich.  Und  um  die  Überraschung 
erst  richtig  komplett  zu  machen,  ist 
Mission  Elevator  auch  noch  voll¬ 
ständig  in  Maschinensprache  ge¬ 
schrieben. 

Der  Spieler  übernimmt  die  Rolle  des 
Spezialagenten  und  beginnt  seine 
Mission  in  der  ersten  Etage  des 
Hotels.  Um  in  den  62.  Stock  zu  kom¬ 
men,  muß  er  allerdings  einige  ver¬ 
steckte  Gegenstände  finden,  sich  mit 
diversen  Geheimagenten  herum¬ 
reißen  und  den  einen  oder  anderen 
Portier  bestechen.  Umsicht  sollte 
man  allerdings  in  jeder  Phase  des 
Spieles  walten  lassen;  zwar  verfügt 
der  Spieler  über  die  erkleckliche  An¬ 
zahl  von  acht  Leben,  trotzdem  schließt 
das  nicht  aus,  daß  man  sein  letztes 
Leben  kurz  vor  dem  Ziel  aushaucht. 
Sollte  der  Agent  einmal  das  Be¬ 
dürfnis  nach  einer  kurzen  Pause  ha¬ 
ben,  eventuell  weil  sein  großer  Lenker 
gerade  einmal  unheimlich  dringend 
wohin  muß,  so  braucht  er  nur  an 
einen  Stuhl  heranzugehen  und  die¬ 
sen  untersuchen.  Sogleich  nimmt 
unser  Mini-Agent  platz  und  ruht  sich 
aus.  Stühle  stehen  an  verschiedenen 


Eine  Vielzahl  von 
Aufzügen  verbindet 
die  einzelnen  Stock¬ 
werke  des  großen 
Hotels,  in  dem  die 
feindlichen  Agenten 
ihre  Bombe  ver¬ 
steckt  haben.  Scha¬ 
ren  von  feindlichen 
Agenten  haben 
außerdem  ihre  Basis 
in  das  Hotel  verlegt, 
um  dort  jeden  Ver¬ 
such  die  Bombe  zu 
entschärfen,  zu  ver¬ 
eiteln. 

Stellen  des  Spieles  herum,  und  ich 
meine,  daß  dies  die  gelungenste  Ein¬ 
flechtung  einer  Pausenfunktion  ist, 
die  mir  seit  langem  über  den  Weg  ge¬ 
laufen  ist.  Mission  Elevator  sollte  in 
keiner  Softwaresammlung  fehlen,  es 
ist.  wie  man  so  sagt,  rundherum 
gelungen.  (HS) 

SCIELIOfE  BEDifNUNGS-  DOKUMENTATION  GKAfl»  SOUNO  ITOSAUStllNS 
_ r.  -m _ r, _ n _ 


Biggles 

Hersteller:  Mirrorsoft 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  ca.  45,-  DM 
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Wer  in  den  80-er  Jahren  lebt,  ist  im 
Grunde  genommen  arm  dran.  Denn 
scheinbar  gibt  es  heutzutage  keine 
echten  Abenteuer  mehr  zu  erleben. 
Das  haben  sich  auch  einige  englische 
Filmproduzenten  gedacht,  als  sie  das 
Drehbuch  zu  dem  neuen  Film  ”Bigg- 
les"  absegneten.  Hier  geht  es' um 
einen  netten  kleinen  Manager,  der 
sich  gerade  mit  der  Organisation 
einer  sogenannten  "Fast  Food-Kette” 
beschäftigt,  als  er  von  einem  seltsa¬ 
men  alten  Mann  aufgesucht  wird. 
Dieser  komische  Alte  befragt  Jim  Fer¬ 
guson,  so  der  Name  des  Hambur¬ 
gerprinzen,  ob  in  letzter  Zeit  nicht 
einige  seltsame  Dinge  passiert  seien. 
Ferguson  schickt  den  Mann  weg  -  er 
hält  ihn  für  einen  Spinner.  Nur  wenig 
später  wird  er  recht  unangenehm  an 
das  Gespräch  mit  dem  Alten  erinnert. 
Als  er  nämlich  durch  unerfindliche 
Kräfte,  optisch  sehr  wirksam  in  Szene 
gesetzt,  mitten  in  den  Ersten  Weltkrieg 
versetzt  wird. 

Dort  begegnet  er  dem  englischen 
Fliegeras  Bigglesworth  der,  wie  er  im 
weiteren  Verlauf  der  Geschichte  her¬ 
ausfindet,  so  etwas  wie  ein  Zeitzwil¬ 
ling  von  ihm  ist.  Obgleich  Ferguson 
von  der  spontanen  Zeilreise  nicht  ge¬ 
rade  erbaut  ist,  besteht  für  ihn  keine 
sichtbare  Möglichkeit,  den  Prozeß 
umzukehren  und  wieder  in  seine 
eigene  Zeit  zu  gelangen.  Bigglesworth 
hingegen  hat  von  einer  neuartigen 
Waffe  der  Deutschen  Wind  bekom¬ 
men,  und  wie  es  sich  für  einen  echten 
Helden  gehört,  plant  er  auch  gleich 
diese  Waffe  entweder  zu  vernichten 
oder,  sollten  die  Deutschen  sich 
dumm  genug  anstellen,  sie  sogar  zu 
entwenden. 

Dies  ist  in  groben  Zügen  die  Story  von 
Biggles.  Das  Computerspiel  selbst 
kann  diesem  Plot  natürlich  nicht 
buchstabengetreu  folgen;  so  hat  man 
sich  bei  Mirrorsoft  dazu  entschlos¬ 
sen,  einige  der  interessantesten  Se- 


Four  in  One,  könnte 
man  fast  sagen, 
denn  hinter  Biggles 
verbergen  sich  eigent¬ 
lich  vier  verschie¬ 
dene  Spiele.  Die 
A  benteuer  eines  jun¬ 
gen,  dynamischen 
Managers,  der  unter 
mysteriösen  Umstän¬ 
den  mitten  in  den 
Ersten  Weltkrieg 
versetzt  wird,  bilden 
den  Hintergrund 
dieses  interessanten 
Programmes. 
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quenzen  des  Filmes  herauszupicken 
und  diese,  in  etwa  der  Handlung  fol¬ 
gend,  miteinander  zu  verbinden.  So 
ist  Biggles  dann  auch  ein  sogenann¬ 
tes  Multi  Screen-Spiel  geworden. 
Insgesamt  sind  vier  verschiedene 
Spielsequenzen  in  Biggles  enthalten, 
die  in  der  Anleitung  als  Spiel  1 ,  Spiel  2 
usw.  bezeichnet  werden.  Jede  dieser 
Szenen  hat  ein  eigenes  Spielthema: 
Diese  reichen  vom  Luftkampf  mit 
Doppeldeckern  bis  zu  einer  rasanten 
Flucht  der  Zeitzwillinge  über  die 
Dächer  einer  von  den  Deutschen  be¬ 
setzten  Stadt 

Sicherlich  ist  Biggles,  auch  wenn  man 
sich  den  Film  nicht  angesehen  hat, 
ein  interessantes  Spiel,  aber  der 
eigentliche  Durchblick  bei  der  gan¬ 
zen  Geschichte  wird  erst  durch  den 
Film  vermittelt.  Das  bedeutet  natür¬ 
lich  nicht,  daß  man  das  Spiel  ohne 
den  Film  gesehen  zu  haben  nicht 
spielen  könnte,  das  ist  sogar  gut  mög¬ 
lich.  Allerdings  springen  Biggles  und 
Ferguson  derart  wild  durch  die  Zeit 
und  nehmen  bei  jedem  Sprung  die 
unterschiedlichsten  Dinge  mit,  daß  es 
ohne  Kenntnis  der  Filmhandlung 
wirklich  so  anmutet,  als  würde  man 
vier  verschiedene  Spiele  auf  einmal 
spielen. 

(HS) 
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Shogun 

Hersteller:  Virgin  Games 
Vertrieb:  Fachhandel 
Steuerung:  Joystick 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  ca.  39,-  DM 

CPC  464  Kl  CPC  664  Kl  CPC  6128  81 

Japan  im  17.  Jahrhundert.  Ein  hol¬ 
ländisches  Handelsschiff  scheitert  in 
einem  Taifun  vor  der  japanischen 
Küste.  Der  größte  Teil  der  Besatzung 
findet  den  Tod  in  den  aufgewühlten 
Wogen  des  Meeres.  Einigen  gelingt  es 
allerdings,  sich  an  der  Küste  in 
Sicherheit  zu  bringen  -  unter  ihnen 
der  Navigator  Blackthorne. 

Der  Empfang,  der  den  Schiffbrüchi¬ 
gen  von  den  Einheimischen  bereitet 
wird,  ist  mehr  als  unfreundlich,  und 
so  wandern  die  Seeleute  zunächt  ein¬ 
mal  in  einen  Kerker.  Mit  der  Zeit  ge- 


Es  gilt  der  oberste 
aller  Kriegsherren 
im  Japan  des  1 7. 
Jahrhunderts  zu 
werden.  Unter  34 
verschiedenen  Per¬ 
sonen  kann  der 
Spieler  sich  die 
Figur  aussuchen, 
die  er  dars teilen 
möchte.  Um  ans 
Ziel  zu  gelangen, 
muß  zuerst  einmal 
eine  Gefolgschaft 
angeworben  werden, 
die  den  kleinen 
Usurpator  unter¬ 
stützt. 


lingt  es  Blackthorne,  das  Vertrauen 
der  Japaner  zu  gewinnen  -  er  wird 
freigelassen. 

Der  örtliche  Kriegsherr,  der  Daimyo, 
trachtet  danach,  der  Shogun  zu  wer¬ 
den,  der  oberste  Kriegsherr  von  ganz 
Japan.  Natürlich  gibt  es  da  auch  noch 
eine  ganze  Reihe  anderer  Kriegsher¬ 
ren,  die  diesem  Unterfangen  nicht  ge¬ 
rade  freundlich  gegenüberstehen,  ha¬ 
ben  sie  doch  alle  im  Grunde  genom¬ 
men  dieselbe  Idee.  Nur,  wer  Shogun 
werden  will,  der  muß  zuerst  alle  ande¬ 
ren  Lords  in  ihre  Schranken  weisen. 
John  Blackthorne  wird  zum  Berater 
des  Daimyo,  der  sich  anschickt,  nach 
dem  Thron  des  Shogun  zu  greifen. 
James  Calvells  Shogun  sollte  nach 
einem  überwältigenden  Erfolg  als 
Buch  und  Film  eigentlich  fast  jeder¬ 
mann  ein  Begriff  sein.  Dies  dachten 
sich  sicherlich  auch  die  Köpfe  der 
Gang  of  Five,  als  sie  begannen,  den 
Stoff  von  Shogun  in  ein  Computer¬ 
spiel  einzubringen.  Mit  den  Pro¬ 
grammen,  die  bisher  aus  ihrer  Ideen¬ 
küche  kamen,  hatten  sie  enorme 
Erfolge. 

Mindestens  ihr  "Sorcery'’  zählt  zu 
den  "All  Time  Greats",  die  es  für  die 
CPC's  gibt.  Und  so  richtig  sind  sie 
von  dem  Spielkonzept,  das  Sorcery 
zugrunde  lag,  nie  weggekommen. 
Das  zweite  Spiel,  das  sie  mit  Shogun 
nach  Sorcery  vorlegen,  zehrt  eben¬ 
falls  an  dem  damals  entwickelten 
Konzept;  wobei  man  allerdings  nicht 
außer  Acht  lassen  sollte,  daß  es  seit¬ 
dem  um  einiges  verfeinert  wurde. 
Ziel  des  Spieles  ist  es,  eben  jener  ober¬ 
ste  Kriegsherr  zu  werden  und  in  den 
Palast  einzuziehen. 

Am  Anfang  des  Spieles  wird  der  Spie¬ 
ler  gefragt,  welchen  Charakter  er  bei 
dieser  Partie  darstellen  möchte.  Es 
besteht  die  Möglichkeit  unter  34  ver¬ 
schiedenen  Personen  zu  wählen,  an¬ 
gefangen  bei  John  Blackthorne  bis 
zum  niedrigsten  Diener. 


Hat  der  Spieler  sich  dann  für  einen 
Charakter  entschieden,  gilt  es  Ge¬ 
treue  zu  finden,  die  bei  der  nicht  ge¬ 
rade  leichten  Aufgabe  helfen.  Dazu 
steht  ein  Menue  zur  Verfügung,  in 
dem  der  Spieler  seine  jeweiligen  Hand¬ 
lungen  anwählen  kann.  So  ist  es  bei¬ 
spielsweise  möglich,  freundlich  zu 
sein:  man  wählt  den  entsprechenden 
Menuepunkt  an,  und  schon  verschießt 
der  gewählte  Held  Freundlichkeit 
nach  allen  Seiten.  Bei  einigen  der 
Personen,  die  sonst  noch  im  Spiel 
umherrennen,  reicht  es  mitunter 
freundlich  zu  sein,  um  ihre  Loyalität 
zu  erlangen,  andere  allerdings  lassen 
sich  nur  von  blankem  Stahl  überzeu¬ 
gen.  Den  Personen,  die  Sie  nach  einer 
solchen  Prozedur  als  Lord  anerken¬ 
nen,  können  Aufträge  erteilt  werden. 
Ist  die  Schar  Ihrer  Anhänger  groß 
genug,  so  rückt  auch  das  Ziel  des  Sho- 
gunpalastes  in  erreichbare  Nähe. 
Betrachtet  man  Shogun  nach  eini¬ 
gem  Spielen  einmal  in  Ruhe,  erkennt 
der  geneigte  Betrachter,  daß  die 
Grafik  eigentlich  nicht  mit  der  von 
Sorcery  mithalten  kann;  zwar  ist  sie 
auch  hier  über  die  Maßen  farbenfroh, 
aber  nicht  so  stimmig  und  atmosphä¬ 
risch  gelungen.  Dafür  hat  sich  die 
ganze  Sache  in  Punkto  Spielgesche¬ 
hen  um  einiges  verbessert. 

Auch  dieses  Mal  hat  die  Gang  of  Five 
mich  nicht  enttäuscht,  es  mag  stim¬ 
men,  daß  eine  gewisse  Eingewöh¬ 
nungszeit  vonnöten  ist,  um  mit  dem 
Spiel  warm  zu  werden;  hat  man  die 
allerdings  hinter  sich,  macht  auch 
Shogun  enorm  viel  Spaß. 

(HS) 


SINEUOEE  BEOIENUNGS  OOKUMENIAnON  6RARK  SOUNO  «El&tE'STUNG 


r~ 

FR 

UN 

0U£H 

KEtT 

n - 

n 

r 

— 

2| 

- 

3 

; 

4  J 

1 

5  I 

— 1 

L 

lj  1 

. J 

L. 

7  I 

J 

| 

3  1 

- 

1 

] 

h 

58  CPC  9  ’86 


MHHHHIimi 


ui  in  h  im  ii  ii  iii  in  ii  ti  m  ii  hihihi  in 


III  llllll  II II II III II  lllll  II  lllll  II II  llllll  lllll  II II  lllll  II  Hill  HIHI 


II  Hill  Hlllll  II  Hill  Hill  II 1111 II II  Hill  Hill 


Software  Reviews 


Durch  die  wild  ge¬ 
wordene  Flora  eines 
einsamen  Planeten 
führt  der  Weg  unse¬ 
res  kleinen  Monitor¬ 
helden. 

Es  gilt,  Behälter,  in 
denen  sich  eine  hoch¬ 
giftige  Substanz  be¬ 
findet,  sicherzu¬ 
stellen. 

Eine  gar  nicht  so 
leichte  Aufgabe. 


Ovt  the  Run 

Hersteller:  Design  Design 
Vertrieb:  Fachhandel 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  ca.  33,-  DM 

CPC464  B  CPC664  B  CPC6128K 

Der  größte  Teil  der  Galaxis  ist  durch  die 
terranische  Allianz  erkundet  und  besie¬ 
delt  worden.  Friedlich  hat  sich  die 
Menschheit  im  Universum  ausge¬ 
breitet.  Fremden  Völkern  in  Freund¬ 
schaft  verbunden,  hat  sich  überall  ein 
liberales  Bewußtsein  eingebürgert.  Seit 
einigen  hundert  Jahren  hat  es  im  be¬ 
kannten  Universum  keine  kriegerische 
Auseinandersetzung  mehr  gegeben. 
Aber  auch  eine  solch  friedfertige  Ge¬ 
sellschaft  hat  ihre  Probleme.  Als  näm¬ 
lich  ein  Großraumschiff  der  Frachter¬ 
klasse  auf  dem  bisher  friedlichen  Pla¬ 
neten  Flora  notlanden  muß,  läuten 
überall  die  Alarmglocken.  Das  ha¬ 
varierte  Schiff  hatte  nämlich  den  ge¬ 
samten  Laderaum  mit  einigen  hoch- 


wirksamen  Chemikalien  voll,  deren  ge¬ 
naue  Wirkung  noch  niemand  ausgete¬ 
stet  hat.  Als  man  einen  kleinen  Explorer 
nach  Flora  entsendet,  wird  das  Ausmaß 
der  Katastrophe  erkennbar.  Einige  Be¬ 
hälter  mit  Pflanzenmutagen  sind  durch 
den  Aufprall  in  die  Atmosphäre  geschleu¬ 
dert  worden  und  haben  dort  ihren  ge¬ 
samten  Inhalt  an  die  Umwelt  abgege¬ 
ben.  Die  komplette  Tier-  und  Pflanzen¬ 
welt  von  Flora  reagierte  auf  diesen 
neuartigen  Stoff. 

Seither  ist  Flora  von  einer  amoklaufen¬ 
den  Flora  und  Fauna  bevölkert,  die  den 
Planeten  von  nun  an  zu  einer  Höllen¬ 
welt  machten.  Außer  dem  bereits  er¬ 
wähnten  Mutagen,  hatte  der  Frachter 
noch  einige  Behälter  mit  einer  anderen 
Substanz  geladen,  die  bisher  in  der  At¬ 
mosphäre  nicht  nachgewiesen  werden 
konnte.  Also  sind  diese  Behälter  aller 
Wahrscheinlichkeit  noch  intakt. 

Das  eigentliche  Spiel  beginnt  nun  an 
der  Stelle,  an  der  unser  intergalakti¬ 
scher  Feuerwehrmann  die  Höllenwelt 
Flora  betritt.  Von  nun  an  ist  er  völlig  auf 
sich  alleine  gestellt. 

On  the  Run  fällt  von  seiner  Machart  her 
wohl  zweifelsohne  in  die  Kategorie 


Arcade-Adventure,  wenn  es  auch  nur 
ein  recht  einfacher  Vertreter  dieses  Gen¬ 
res  ist.  Ausgerüstet  mit  einem  Jet-Pack 
müssen  Sie  jeweils  einzelne  Abschnitte, 
der  als  vertikales  Labyrinth  angelegten 
Spielwelt,  erkunden  und  die  darin  ent¬ 
haltenen  Gegenstände  untersuchen. 
Einige  dieser  Items  bringen  Ihrer  Spiel¬ 
figur  neue  Energievorräte,  andere  zie¬ 
hen  Energie  ab,  wieder  andere  entpup¬ 
pen  sich  als  Munition.  Die  wichtigsten 
Gegenstände,  die  es  zu  finden  gilt,  sind, 
wie  eingangs  erwähnt,  die  verlorenen 
Tanks  und  die  Schlüssel  zu  dem  näch¬ 
sten  Level.  Ständig  im  Screen  einge¬ 
blendet  ist  eine  Statuszeile,  die  angibt, 
wieviel  Energie  noch  zur  Verfügung 
steht  -  selbstverständlich  den  aktuellen 
Score  -  und  wieviele  der  Tanks  Sie  be¬ 
reits  gefunden  haben.  Hier  ist  auch 
gleich  der  erste  Ansatzpunkt  für  Kritik: 
Eine  Highscore-Option  wurde  nicht  be¬ 
rücksichtigt.  Bewegt  sich  die  Spielfigur 
durch  das  Szenario,  so  scrollt  der  Hin¬ 
tergrund  nicht.  Tritt  das  Männchen  aus 
dem  Bildschirm  heraus,  löscht  der 
Rechner  den  kompletten  Bildschirm 
und  baut  das  nun  anstehende  neue 
Teil  auf. 

Da  man  hier  nun  nicht  einfach  mit 
kompletten  Bildschirminhalten  gear¬ 
beitet  hat,  sondern  gelegentlich  auf 
Halbe-  oderViertel-Screens  umblendet, 
flackern  innerhalb  von  wenigen  4  -  5 
Sekunden  neue  Bilder  über  den  Screen. 
Dies  hat  zur  Folge,  daß  man  leicht  die 
Orientierung  verliert.  All  jene,  die  ein 
unkompliziertes  Arcade-Adventure 
suchen  und  sich  von  den  genannten 
Mängeln  nicht  abschrecken  lassen,  sei 
dieses  Spiel  empfohlen.  (HS) 

SPIELIDEE  8E0I£*UW$-  DOKUMENTATION  GHAfl«  SOUND  «TE'SdEISTuNG 

_  FMUNOlJfiHKEIT 


***  Kreuzvergle Ich  (automatisch  nach  passenden  Paaren 
suchen) . 

***  Einfaches  Erstellen  von  Angebots-  und  Werbeschreiben 
durch  DatenUbergabe  zur  Textverarbeitung  Wordstar. 

Fragen  Sie  einfach  Ihren  Schneider  -  Händler  nach  dem 
liiinobiliKivermttlungssystem,  oder  rufen  Sie  uns  an  1 

Hailer  &  Geisberger  -  Computer  -  Vertrieb  &  Service  GmbH 
Postfach  1231  7317  Wendlingen  Tel.:  07024  /  5  27  77 


***  Heue  Software  für  Schneider  JOYCE+  *** 
Inunobilienvermittlungssystem  nur  DM  498. —  ! 

Bier  einige  Leistungsmerkmale: 

***  speichern  der  Immobilien-  und  Interessentendaten 
(ca.  1900  -  2000  Datensätze  pro  Diskette!). 

***  sehr  schnelles  Suchen  nach  passenden  Objekten 
bzw.  Interessenten. 


Schneider 

COHPUTER  Division 


JOYCE 
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Infocom-Adventures 

oder  Text  ohne  Bilder  ist  doch  bunter 


Manches  mal  kommt  es  vor,  daß  sich 
ein  Computerbenutzer  vor  seinen  Rech¬ 
ner  setzt,  und  ein  Spiel  lädt.  Dieses 
Spiel  kann  nun  alles  mögliche  sein, 
denn  mit  der  Vielfalt  der  Spiele¬ 
software  kommt  wohl  kein  anderer  An¬ 
wendungsbereich  mit. 

Setzen  wir  also  voraus,  daß  es  sich  um 
ein  sogenanntes  Action-Spiel  han¬ 
delt,  das  bedeutet,  daß  der  Spieler 
seine  im  Vergleich  zum  Rechner  be¬ 
scheidene  Reaktionszeit  dazu  benut¬ 
zen  muß,  Aktionen,  die  Programm-ge¬ 
steuert  vom  Computer  in  die  Wege  ge¬ 
leitet  werden,  abzuwehren.  Wie  sich 
das  dann  im  einzelnen  darstellt,  ist  im 
Grunde  genommen  egal.  Konsens 
bleibt,  daß  er  sich  an  Reaktionszeiten 
messen  muß,  die  er  in  hundert  Jahren 
angestrengten  Übens  nicht  erreichen 
kann,  es  ist  also  ein  Kampf  gegen  die 
Maschine,  der  eigentlich  nicht  ge¬ 
wonnen  werden  kann. 

Zwar  ist  es  richtig,  daß  hinter  jedem 
Programm  auch  ein  Programmierer 
steht,  und  der  Spieler  sich  mit  dessen 
in  das  Spiel  eingebauten  Ideen  ausein¬ 
andersetzen  muß.  aber  bei  Action- 
Spielen  verlagert  sich  das  Gewicht  zu 
Gunsten  des  Programmierers,  ihm 
stehen  die  Möglichkeiten  des  Rech¬ 
ners  sozusagen  als  falsche  Muskeln 
zur  Verfügung. 

Die  einzigen  Spiele,  die  als  reine  Aus¬ 
einandersetzung  der  Geister,  deren 
Phantasie  und  Imagination  gewertet 
werden  können,  sind  die  Adventures. 
Hier  verhält  es  sich  so,  daß  der 
Programmierer  sich  eine  Story  aus¬ 


denkt,  in  deren  Verlauf  einige  Pro¬ 
bleme  gelöst  werden  müssen.  Er  greift 
also  nicht  auf  Möglichkeiten  zurück, 
die  letztendlich  dem  Spieler  nicht  zur 
Verfügung  stehen,  die  Verteilung  der 
Kräfte  sieht  hier  eher  nach  einer 
Natura-Spielrunde  aus,  die  vielleicht 
gerade  damit  beschäftigt  ist,  eine 
Partie  Cluedo  zu  Spielen. 

Am  Beispiel  eines  Detektivadventu- 
res  läßt  sich  dies  noch  um  einiges  bes¬ 
ser  verdeutlichen.  Stellt  der  Spieler  in 
diesem  Fall  den  Detektiv  dar,  der 
einen  ruchlosen  Mordfall  aufklären 
muß,  ist  sein  Gegenspieler  der 
Programmierer.  Denn  wie  in  der 
Realität,  hat  er  sich  den  Mord  ausge¬ 
dacht,  er  ist  sozusagen  der  Täter,  der 
sich  im  Spiel  durch  einen  Stellvertre¬ 
ter  ersetzen  läßt.  Dieser  Stellvertreter 
tut  allerdings  nur  das,  was  ihm  der 
Programmierer  zu  tun  aufgibt. 
Sicherlich  sehen  Sie  schon,  worauf 
ich  eigentlich  hinaus  will,  denn  resü¬ 
mierend  aus  den  dargelegten  Überle¬ 
gungen  ergibt  sich  nur  ein  Schluß:  die 
Adventures  sind  die  Computerspiel¬ 
form,  die  einer  realen  Spielrunde  am 
nächsten  kommt.  Die  Möglichkeiten 
sind  zwar  auch  hier  nicht  gleich,  aber 
bei  weitem  ausgewogener  als  im  Falle 
der  Action-Spiele. 

Aber  auch  hier  gilt  wieder  der  Leitsatz 
„nicht  alles,  was  sein  sollte,  ist  so  wie  es 
sein  sollte”.  Seitdem  das  Abenteuer¬ 
fieber  einen  guten  Teil  der  Computer¬ 
user-Szene  infiziert  hat,  vergeht  nicht 
ein  Monat  ohne  Neuerscheinungen 
auf  diesem  Sektor.  Durch  die  wach¬ 


sende  Gemeinde  von  Abenteurern 
läßt  sich  jetzt  auch  auf  diesem  Markt 
richtig  Geld  verdienen.  Sicher  will  je¬ 
der  Programmierer  anständig  für 
seine  Arbeit  entlohnt  werden;  aller¬ 
dings  gibt  es  auch  den  Fall,  daß  ein 
Abenteuerspiel  einzig  und  alleine  als 
gewinnbringendes  Vehikel  gehand- 
habt  wird.  Zwar  merkt  man  das  schon 
nach  kurzem  Spiel  an  einer  langwei¬ 
ligen  Story,  oder  einem  lustlos  und 
fade  hingehuschten  Text,  aber  dann 
ist  es  meistens  zu  spät  und  die  sauer¬ 
verdiente  Mark  ist  schon  längst- über 
den  Tresen,  und  damit  in  die  Tasche 
des  Herstellers  gewandert. 
Verschweigen  möchte  ich  allerdings 
nicht,  daß  auch  der  umgekehrte  Sach¬ 
verhalt  in  der  Branche  anzutreffen 
ist.  Es  gibt  einige  Softwarehäuser,  die 
das  Erstellen  von  Adventurespielen 
fast  schon  aus  Passion  betreiben. 
Nicht,  daß  wir  uns  da  falsch  verste¬ 
hen,  Geld  wollen  auch  diese  Compa- 
ny's  verdienen,  allerdings  nicht  die 
schnelle  Mark  eines  unzufriedenen 
Kunden,  sondern  das  gerne  bezahlte 
Geld  eines  rundherum  zufriedenen 
Abenteurers.  Das  bekannteste  Unter¬ 
nehmen  dieser  Fassion  ist  zweifels¬ 
ohne  das  in  Boston  ansässige  Soft¬ 
warehaus  "Infocom". 

Infocom,  das  ist  ein  Name,  der  den 
meisten  CPC-Besitzern  nur  aus 
Zeitungsberichten  geläufig  ist.  Ein 
Name,  der  Ihnen  immer  dann  begeg¬ 
net,  wenn  sich  die  Anwender  ver¬ 
schiedener  Computersysteme  wie 
IBM  oder  Atari  über  Adventures 
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/’Supercopy 

Das  Diskettenkopierprogramm 
der  Superlative 

!ür  Schneider  CPC  464.  664,  6128  und  Joyce 

•  iOO%  Maschinensprache.  bearbeitet  alle 
43  Tracks 

•  unterstütz!  auch  2.  Laufwerk 

•  |Gde  mögliche  SektorgröBe  und  Sektor¬ 
anzahl 

•  Sektoren  mu  gelöschter  data  adress  mark 

•  kopiert  99%  der  auf  dem  Markt  befind¬ 
lichen  Sotiware  (IT  Sicherheilsduplikat) 
em  unentbehrliches  -disc-tool-  für  jeden 
CPC-  und  Joyce-Besilzer 

a-a,  a-b.  b-a.  b-b 

3"  Oiskette  OM  79.^ 

'Software: 

- > 

Stairway  to  Hell 

C/0  29-/49, — 

Ftankle  goes  to  Hollywood 

C  36- 

Plng  Pong 

C/0  35,-/49, — 

Colossus  Chess  4  0 

C/0  39,-/59. — 

Spmdizzy 

C/D  39.-/S9. — 

The  Graphik  Adventure  Creator 

C/D  79,-/89, — 

Forbidden  Planet 

C/0  39-/59. — 

Eden  Biues=Doomsday  Blues 

C/D  39-/59. — 

Crafton  &  Xunx=Get  Dexter 

C/0  39-/59. — 

Way  of  the  Tigei 

C/D  39  -/59  — 

Souls  ol  Datkon 

C  39.— 

Saboteur 

C/D  39-/59. — 

Samantas  Fox  Strip  Poker 

C/D  39-/59  — 

Winter  Games 

C/D  39-/59, — 

Hexenküche  II 

0  49,— 

Turbo  Esprit 

C/0  39,-/59, — 

Fairlight 

C/D  39-/59, — 

Tomahawk 

D  49,— 

Hacker 

C/0  36-/59. — 

The  Music  System 

C/D  69.-Z79, — 

Tbeatre  Eutope 

C/D  39.-/S9. — 

Tau-Ceti 

C/D  39-/59- 

Battte  ol  the  Ptanets 

39  — 

Working  Backwards 

D  59  — 

Rocky  Horror  Show 

C/D  29-/47- 

Marsport 

C/D  39-/49. — 

Who  dares  wms  11 

C/D  36-/59. — 

Grand  Prix  Rallye  11 

D  59,— 

Cluedo 

39,- 

Yie  are  Kung  Fu 

C/D  39-/59. — 

Fryday  the  1 3th 

C/D  39.-Z69, — 

Zorro 

39,- 

Gyroscope 

34- 

Lords  of  Midmght 

C/D  49-/59  — 

Lord  of  the  Rings 

C  59,- 

Sweevos  World 

C/D  29-/59. — 

The  Scout  Steps  out 

C/0  39-/59. — 

Death  Wake 

34- 

Tornado  low  levei 

C/D  39-/59. — 

Fighting  Warrior/Exploding  Fist 

D  69,- 

Bombjack 

C  39,— 

The  Devll's  Crown 

C/D  39-/59, — 

30  Cyrus  (Schach) 

C/D  39-/49, — 

3D  Grand  Prix 

C/0  39-/49- 

Super  Pipeline 

C/0  36.-156, — 

Codename  Mat  II 

C/D  29.-Z59. — 

Sorcery 

29,- 

Sorcery+  (Disk  3") 

59  — 

Frank  Bruno'  s  Boxlng 

C/D  29-/49. — 

Spy  vs  Spy 

C/D  39.-Z49. — 

Elite 

D  79,— 

^pitfire  40 

C/D  39-/49, — 

r 

- > 

Software: 

Kung-Fu-Master 

C/D  39  -/59, — 

The  tilh  Axis 

C/D  39.-Z59, — 

2112  AD 

C/D  39-/59. — 

Shadowlire 

C  35,— 

V-thisisit 

C/D  39-/59. — 

N.0MA.D 

C  35,- 

Zoids 

C/0  35.-Z59, — 

Pro)ec1  Future 

C  39  — 

Bigales 

C  39,— 

Eouenox 

C/0  39-/59. — 

CORE 

C  39  — 

Arnheim 

C  39  - 

-J 

Für  Joyce  PCW  82S6/BS12 
Proltrem  professionelles  Geschaftssoftware- 
Pakei  mu  Lagerdatei  Adressdatei.  Sofort- 
Speicherfakturlerung 

Preis:  178, —  DM 

Flheklng  professionelle  Finanzbuchhaltung 

•  60  definierbare  Konten 

•  Bilanzauswertung 

•  einfache  Buchungseingabe 

•  Ausdruck  von  Kontenrahmen  + 
Kontenbiocken. 

Preis  138,—  DM 


SpezialprospeKt  anfordem. 


Hardware: 

3"  1- Megabyte- Laufwerk  für  Joyce  698,- 
Alle  Vortex- Erweiterungen  ab  Lager  lieferbar. 
Vortex-Diskettenlaufwerke. 

5  W  Einfachlaufwerk  mit  708  KB  formatiert, 
aufrüstbar  zum  Doppellaufwerk  (548  -  DM)  mit 
resistenten  Assembler.  Disassembler,  Monitor 
und  RSX-Befehlen.  Anlegen  von  Random- 
Dateien  unter  Basic. 

F1-S  5  14"  Floppy  1198- 

M1-S  3  W  Floppy  998,- 

F1-D  5  ’/«"  Doppellaufwerk  1698- 

M1-D  3  ! k "  Doppellaufwerk  1498,— 

F1-X  5  '/*"  Zweitlaufwerk  708KB, 
ROM-Software  758,— 

M1-X  wie  F1-X,  jedoch  3  'k"  758- 

Aufrüstklt  für  80  Spur  Doppellaufwerke 
als  X-Laufwerk  298,— 

Adapterkabel  zum  Anschluß  der 
Schneider-Floppy  an  F1-S  (M1-S) 
oder  Fl -D  (Ml -D)  als  2.  Laufwerk  58.— 


Graflpad  II 

•  Auflösung :  1280x1024  Bildpunkte 

•  Abweichung :  ±  1  Pixel 

•  Zeichenfläche .  DIN  A4 

•  hochauflösende  Graphik 

•  Schaltungsdiagramme 
“•CAD 

•  Abmessungen :  350  x  260  x  12  mm 

•  Optionswahl 

•  Formeingabe 

•  Bilderspeicherung  und  Abruf 

•  Preis  für  464,  664  278,- 

•  Preis  für  61 28  298.- 

•  Anschlußadapter  I,  464-3"  u.  6128  48.- 

•  mit  deutschem  Handbuch 

Fordern  Sie  kostenlosen  Prospekt  an ! 

Sie  werden  begeistert  sein 1 


> 

AMX-Mouse 

Mit  Software  (Zeichenprogramm  t- 
Basiceiweiterung)  Ähnlich  wie  bei 
Macintosh  und  Atari  520  ST  für  CPC  464, 
664  und  61 28. 

Komplett 

mit  deutschem  Handbuch  081  278,- 


STAR-WRITER I  (464  /  664  /  6128) 


Textverarbeitung 

Grafikprogramm 

DIN-Tastatur 

Serienbriefe 

Blockoperationen 

Trenn  Vorschläge 

Suchen  und  Ersetzen 


•  mit  ausführlichem  Handbuch  nur  198 


Adressverwaltung 
DFÜ-Programm 
PULL-DOWN  Menues 
Fließtexteingabe 
Block-  und  Flattersatz 
Bausteinverarbeitung 
Kopf-  und  Fußzeilen 


Händleranfragen  erwünscht 
Schulen  erhalten  Sonderkonditionen 


Ptxsdamer  Rhg  10-7150  Backnang  07191/1528-29 


CGnPUTER-ELEliTRDrilli 


Software  für  Joyce: 

UcoScnpUKurzanleitung  m  Utxmgsdisk)  29,50 
Prompt  (Daleivfiwallung  m  ’Listangeoeratof)  69 — 
DR-0RAW  199,50 

DR-GRAPH  199,50 

Business- Pack  (Adiess-Uoer-  und 
FaktumranageO  199,90 

Cornpulei-Wflrtertmcii  (Englisdil  1 49,90 

3-DCkx;l<Cl>ess(Sctiachpragramn>)  79,90 

MICA  198. — 

RH-OAT  (reialive  Date*verv»altung)  89,— 

Turbo-Adrass  (1400  Adressen)  169,- 

Vokabellrainar  69, — 

Verbenlramet  59. — 


Joyce: 

Bildschirmfilter 

89, — 

3"-Diskette  CF2-DD 

19.80 

Parallel-  u.  Seriellschnittstelle 

148. — 

Farbband 

24.80 

Für  Joyce  PCW  8256: 

Megabytelaufwerk 

698, — 

Aufrür  tkit  von  256KB  auf  512KB 

149. — 

OATEI-STAR 

98. — 

STAR-MAIL 

98,— 

FIBU-STAR+ 

298. — 

STAR-BASE 

198, — 

N 

Wichtiges  Zubehör: 

Abdeckhauben  aus  grauem  Kunstleder 

Konsole  464/664/6128 

19,80 

Floppy  DD1/FD1 

16,80 

Floppy  Vertex  FD-1 

19,80 

Monitor  grün 

26,80 

Monitor  color 

29,80 

Drucker 

19,80 

Drucker  (NLQ/D  MP) 

19,80 

Druckerkabel  464/664 

48,50 

Druckerkabel  61 28 

58,50 

Lightpenfür  CPC  6128 

139,— 

Farbband  (black)  für  Okimate  20 

14  — 

Farbband  (colour)  für  Okimate  20 

17,— 

Schneider  Joystick 

39,50 

Disketten  3" 

ä  12,— 

Disketten  DS/DD  5  V." 

10  39,— 

Traktor  lur  NLQ  401 

79,50 

Farbband  für  NLQ  401 

14,80 

Farbband  für  DMP  2000 
Schutzhaube  Rauchglas 

19,80 

f,  Konsole  464/664 

35,— 

Druckerstander  Rauchglas 

98,— 

Diskbox  3" 

39,80 

RS  232  (V  24) 

168,— 

Telefonmodem 

298,— 

Software: 

Barry  Mc  Guigan's  Boxing 

C/0 

39-/69. — 

Mindshadow 

C/Ü 

39-/59  — 

Cheops 

36  — 

Spltfire  40 

C/D 

39,-/59. — 

Hyper  Sports 

C/D 

37-/69, — 

Night  Shade 

35,— 

Heavy  on  the  Magic 

39.— 

Blade  Runrter 

35,— 

Mooty  on  the  Run 

C/0 

39-/59,— 

Vokabeltrainer 

C/D 

49-/59. — 

Verbentrainer 

C/D 

39-/49, — 

Rock'n  Wrestie 

39,— 

Red  Hawk 

35,— 

Blue  Ribbon 

D  59,— 

They  soid  a  Million  II 

C/D 

39,-/59. — 

Movie 

C/D 

35-/49. — 

Ballblazer 

C/D 

39-/59, — 

Back  to  the  Future 

C/D 

39-/59. — 

Rescue  on  Fractalus 

C/D 

39-/59. — 

Batman 

35,— 

Bounder 

35  — 

Fibuking  (Finanzbuchhaltung) 

136  — 

Fakturem  (Speicherfakturierung) 

98  — 

Profirem  (Faktu,  Lager,  Adressen) 

Sw _ 

r 

Der  Diamant  von  Rabenfels 

Reise  durch  die  Zelt 
Sherlock  Holmes 
Auftrag  In  der  Bronx 

Drachenland 

Die  Insel  der  Smaragde 

Das  Pharaonengrab 

je  Adventure 

C/D  DM  19,— 

/49 

*” 

) 

0  Hiermit  bestelle  ich  per  Nachnahme: 


Vor  nun«  Name 
StriÄ«.  Heuinununtf 


PViOrt 

Teteton-Mummtr 


DjIutl  Unter  sehr  ift 


. "Abenteuer . . . 

unterhalten.  Bisher  war  man  dazu 
verdammt,  sich  all  die  tollen  Dinge 
über  Infocom  aus  zweiter  Hand 
kundtun  zu  lassen,  da  die  CPC's  eines 
jener  Systeme  waren,  die  nicht  über 
die  Segnungen  der  Infocom-Produkte 
verfügen  konnten.  Aber  das  hat  nun 
ein  Ende. 

Bisher  war  es  in  Europa  nur  sehr 
schwer  möglich,  an  die  Adventures 
der  Bostoner  Textzauberer  heranzu¬ 
kommen,  was  zweifelsohne  auf  die  in 
Deutschland  und  im  übrigen  Europa 
verheerenden  Vertriebswege  zurück¬ 
zuführen  ist.  Gelang  es  dann  einmal 
einen  Händler  auszukundschaften, 
der  Infocom-Stoff  im  Sortiment 
hatte,  dann  mußte  dafür  erst  einmal 
anständig  berappt  werden.  In  der  Re¬ 
gel  129,-  bis  149  -  DM. 

Natürlich  war  dieser  Sachverhalt 
auch  den  maßgeblichen  Herren  von 
Infocom  ein  Dom  im  Auge.  Zwar 
sind  schon  früher  Anstrengungen 
unternommen  worden,  dieser  Tatsa¬ 
che  entgegenzuwirken,  allerdings  wa¬ 
ren  diese  nur  von  bescheidenem  Er¬ 
folg  gekrönt.  Erst  durch  die  Über¬ 
nahme  durch  das  in  aller  Welt 
renomierte  Unternehmen  Activision 
scheinen  die  Infocom-Adventures 
endlich  auch  in  Europa  den  Stellen¬ 
wert  zu  erhalten,  der  ihnen  auch  ge¬ 
bührt.  Endlich,  ermöglicht  durch  die 
weltweit  erprobten  und  bewährten 
Vertriebswege,  über  die  Activision 
verfügt,  wird  es  auch  in  Deutschland 
jedem  Anwender  möglich  sein,  in  die 
fantastische  Welt  der  interaktiven 
Textadventures  einzudringen. 

Und  eine  weitere  positive  Nachricht 
ist  in  diesem  Zusammenhang  zu  ver¬ 
melden.  Activision  wird  die  gesamte 
Infocom-Abenteuerpalette  auch  für 
die  CPC’s  herausbringen. 


Vom  Feeling  ein  Abenteuer 
zu  erstellen 


Sicherlich  besitzen  nicht  wenige  von 
Ihnen  ein  Adventure,  sei  es  nun  ein 
Spiel,  daß  Sie  durch  Werbung  ani¬ 
miert  bei  Ihrem  Händler  erstanden 
haben  oder  ein  Mini- Adventure,  daß 
Sie  aus  irgendeiner  Zeitschrift  abge¬ 
tippt  haben.  Wie  dem  auch  sei,  sicher¬ 
lich  sind  Sie  irgendwann  bei  dem 
Punkt  angelangt,  an  dem  Sie  sich 
über  den  bescheidenen  Wortschatz 
des  Spieles  ärgerten. 

Bei  Grafikadventures  verschärft  sich 
in  den  meisten  Fällen  der  Zustand 
noch,  verbraucht  doch  die  Grafik 
einen  guten  Teil  des  zur  Verfügung 
stehenden  Speicherplatzes.  Und  was 
nützt  die  tollste  Grafik,  wenn  der 
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Wortschatz  so  dürftig  ist,  daß  einzig 
und  alleine  durch  die  exakte  Eingabe 
des  erwarteten  Kommandos  ein 
weiterführendes  Ergebnis  erzielt  wer¬ 
den  kann.  Die  Kommunikation  mit 
dem  Rechner  wird  schnell  langweilig, 
wenn  nicht  einmal  ansatzweise  die 
Möglichkeit  besteht,  das  zu  lösende 
Problem  zu  hinterfragen. 

Natürlich  trägt  auch  die  Entwicklung 
von  Rechnern  mit  immer  größeren 
Speichern  dazu  bei,  diesen  Mißstand 
zu  beheben.  Konsequent  mit  dem 
Übel  des  zu  kleinen  Wortschatzes 
aufgeräumt  hat  allerdings  erst  Info¬ 
com.  Diese  Programme  können  ei¬ 
gentlich  alles,  was  sich  der  passio¬ 
nierte  Abenteurer  wünscht.  Wirklich 
gelungene  Texte,  einen  ausgefeilten 
und  fast  schon  riesig  zu  nennenden 
Wortschatz  und  Handlungen,  die 
stimmig  und  dem  in  solchen  Fällen 
notwendigen  Feingefühl  in  Aben¬ 
teuerspiele  umgesetzt  wurden. 


Per  Anhalter  durch  die 
Galaxis 


Der  Trend,  Adventures  nach  bereits 
erschienen  Büchern  zu  gestalten, 
wurde,  um  das  vorab  klarzustellen, 
nicht  von  Infocom  eingeleitet. 

Meines  Wissens  tat  sich  in  diesem 
Punkt  das  ebenfalls  recht  erfolgrei¬ 
che  Unternehmen  "Tellarium”  be¬ 
sonders  hervor. 

Unangenehm  fällt  in  diesem  Zusam¬ 
menhang  die  Tatsache  auf,  daß  die 
Autoren  der  umgesetzten  Bücher 
zwar  die  Honorare  für  die  Verwen¬ 
dung  ihres  Namens,  der  Buchtitel, 
und  der  darin  dargelegten  Handlung 
einstreichen,  sich  allerdings  sonst 
nicht  viel  mehr  um  derartige  Projekte 
kümmern. 

Das  war  dann  auch  genau  die  Kerbe, 
in  die  Infocom  mit  ihrem  "Hitchhi¬ 
kers  Guide  to  the  Galaxy”  schlug.  Be¬ 
geistert  von  der  genial-absurden 
Handlung  der  Bücher,  trat  Infocom 
an  Douglas  Adams  heran  und  unter¬ 
breitete  ihm  das  Angebot,  aus  dem 
Stoff  ein  Computer-Adventure  zu 
machen.  Adams,  der  sich  zu  diesem 
Zeitpunkt  bereits  mit  Computern 
und  auch  Abenteuerspielen  be¬ 
schäftigte,  überdachte  das  Projekt 
und  erkannte  spontan  die  Möglich¬ 
keiten,  die  sich  ihm  als  Autor,  der 
unmittelbar  an  der  Entwicklung  des 
Programmes  beteiligt  wäre,  boten.  So 
kam  es  zu  einer,  wie  ich  meine,  ausge¬ 
sprochen  fruchtbaren  Zusammenar¬ 
beit. 

Adams  erstellte  die  benötigten  Texte, 
modifizierte  die  Handlung  soweit, 
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daß  sie  auch  Spielern,  die  das  Buch 
bereits  gelesen  hatten,  noch  so  man¬ 
ches  Rätsel  aufgaben.  Natürlich  ge¬ 
lang  es  Douglas  Adams  auch  seinen 
unnachahmlichen  Wortwitz  mit  ein¬ 
zubringen.  Sicherlich  ist  die  Tatsache, 
daß  die  Infocom-Adventures  durch¬ 
weg  in  englischer  Sprache  verfaßt 
wurden,  ein  gewisses  Manko  für  den 
deutschen  Abenteuer-Freund,  trotz¬ 
dem  reicht  ein  gewisser  Grundwort¬ 
schatz  und  ein  gutes  Wörterbuch  aus, 
um  ein  solches  Spiel  zu  durch¬ 
schauen.  Davon  einmal  abgesehen 
sind  Adventures  sowieso  keine  Spiele 
für  einen  Abend,  es  kann  Ihnen 
durchaus  passieren,  daß  Sie  mehrere 
Tage  an  einem  Problem  zu  kauen  ha¬ 
ben.  Ist  es  aber  dann  gelungen,  sich 
durch  das  Problem  durchzuarbeiten, 
ist  die  Genugtuung  darüber  umso 
größer. 


Anfänger  -  Fortgeschrittener  - 
Profi  -  Experte 

Ganz  klar  ist,  daß  ein  Abenteuerspie¬ 
ler,  der  schon  das  eine  oder  andere 
Spiel  gemeistert  hat,  einen  ganz  ande¬ 
ren  Blick  für  die  zu  lösenden  Pro¬ 
bleme  hat.  Diesen  Sachverhalt  hat 
man  bei  Infocom  ebenfalls  berück¬ 
sichtigt  So  ist  das  gesamte  Programm, 
das  inzwischen  immerhin  18  ver¬ 
schiedene  Titel  umfaßt,  in  vier  ver¬ 
schiedene  Schwierigkeitsgrade  einge¬ 
teilt.  Wie  die  Zwischenüberschrift 
dies  schon  andeutet,  sind  diese  Stufen 
Anfänger,  Fortgeschrittene,  Profis 
und  für  ganz  Hartgesottene  die 
Experten- Abenteuer. 

Wer  zwar  schon  andere  Abenteuer 
gespielt  hat  und  sich  nun  erstmalig  an 
einem  Infocom-Spiel  versuchen 
möchte,  dem  sei  geraten,  es  anfangs 
mit  einem  Anfänger-  oder  bestenfalls 
Fortgeschrittenen-Programm  zu  ver¬ 
suchen. 


Ausblick 


Wie  schon  an  anderer  Stelle  ange¬ 
führt,  wird  Infocom  in  naher  Zukunft 
auch  in  Deutschland  vertreten  sein. 
Und  wie  wir  meinen,  ist  das  ein  echter 
Grund,  diesen  absoluten  Edeladven- 
tures  einen  gewissen  Platz  einzuräu¬ 
men.  Wir  werden  für  Sie  ab  CPC 
International  Nr.  10  einzelne  Spiele 
genauer  besprechen. 

Ganz  zum  Schluß  möchte  ich  noch  eine 
Warnung  aussprechen:  Infocom  ist 
nachgewiesenerweise  suchterzeugend. 

(HS) 
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Programme 


Top-Programm 
des  Monats 

Überleg  mal 

Das  Top-Programm  dieses  Monats  ist  wieder  mal  ein 
Spiel.  Obwohl  bei  "Überleg  mal"  eine  sehr  alte  Spielidee 
zugrunde  liegt,  hat  sich  unser  Leser,  P.  Eismann,  die 
Prämie  wohlverdient.  Von  der  grafischen  und  program¬ 
miertechnischen  Konzeption,  konnte  das  Spielthema 
kaum  besser  umgesetzt  werden.  Die  Idee  für  den  Aufbau 
stammt  aus  einer  Software  Review  des  Mai-Heftes. 

Der  Autor  war  von  dem  schönen  Aufbau  des  vorgestellten 
Spieles  so  fasziniert,  daß  er  sich  gleich  an  die  Programmie¬ 
rung  eines  ähnlichen  Programmes  machte.  Das  Ergebnis 
ist  sehenswert. 

"Überleg  mal"  hat  die  Grundidee  von  "Vier  Gewinnt", 
einem  bekannten  Strategiespiel,  als  Basis.  Zwei  Spieler 
setzen  auf  einer  Matrix  abwechselnd  Spielsteine.  Wer 
zuerst  vier  Steine  in  einer  gleichen  Farbe  nebeneinander 
gesetzt  bekommt,  gewinnt. 

Dabei  können  die  Steine  horizontal,  vertikal  oder  diago¬ 
nal  liegen.  Neu  ist  bei  "Überleg  mal”  der  Zeitfaktor  hinzu¬ 
gekommen.  Die  Spieler  spielen  gegen  die  Uhr,  und  für  je¬ 
den  Spieler  kann  ein  eigenes  Timeout  bestimmt  werden. 
Das  Spiel  hat  eine  klare  Menueführung  und  erklärt  sich 
weitgehend  selbst. 

Viel  Spaß!! 


für  464-664-6118 


10  . [12851 

15  '*  •  11753 

20  ' •  ÜEBERLEG  MAL  *  [13701 

22  ' *  eine  Variante  von  THINK  *  [16101 

25  '•  von  EISMANN  PETER  *  [17481 

45  ' *  (C)  MAI  1986  *  [4651 

50  '  *  Idee  und  Teilbildaufbau  aus  *  [1341  1 

55  '*  CPC  Schneider  INTERNATIONAL  *  [2026] 

60  ' *  HEFT  5/1986  SOFTWARE  REVIEWS  *  [20281 

65  '*  *  [1751 

■100  [12231 

110  '*  INITIALISIERUNG  *  [941] 

120  '**•••*••***•****•*••••********•  (12231 

130  MODE  1  (5061 

140  BORDER  14  [9631 


150  INK  0,0: INK  1 ,26:INK  2,2:INK  3,1  [878] 

160  ENT  -1 ,1 ,1 ,3,1 ,-1 ,3,1 ,0,4 ,1 ,1 ,3,1 ,-1 ,3  [21051 
170  ENV  1 ,1 ,15,1 ,1 ,0,1 ,1 ,0,1 ,12,-1 ,8, 2,-1 ,  [22051 
20 

180  WINDOW#2 ,26,35,3,4: PEN#2 , 1 : PAPER#2 , 2  [20861 
190  WINDOW# 3 ,26 ,35,7,8: PEN# 3, 1 : PAPER# 3, 3  [2675] 

200  WINDOW#4 ,24,38,11 ,23: PEN#4 , 0 : PAPER#4 , 1  [31211 


210  SYMBOL 
220  SYMBOL 
27 

230  SYMBOL 
55 

240  SYMBOL 
54 

250  SYMBOL 
,127 


AFTER  200 

200,0,127,127,1 27,127,127,127,1 
201 ,0,255,255,255,255,255,255,2 
202,0,254,254,254,254,254,254,2 
203,127,127,127,127,127,127,127 


(1432  1 
[2434 1 

[2077  1 

[18691 

(2038  1 


260  SYMBOL  204,254,254,254,254,254,254,254  (23551 
,254 

270  SYMBOL  205,127,127,1  27,127,127,127,127  [23851 
,0 

280  SYMBOL  206,255,255,255,255,255,255,255  [29431 

,0 

290  SYMBOL  207,254,254,254,254,254,254,254  [25763 
,0 

300  SYMBOL  208,127,191,223,224,239,239,239  [2414] 
,239 

310  SYMBOL  209,255,255,255,0,255,233,255,2  [21401 
55 

320  SYMBOL  210,254,253,251 ,7,245,21 ,149,21  [2083] 

5 

330  SYMBOL  211,239,239,239,239,239,239,235  [23391 
,239 

340  SYMBOL  212,247,215,215,247,215,247,247  [27941 
,247 

350  SYMBOL  213,235,233,232,239,224,223,191  (2250! 

,127 

360  SYMBOL  214,255,255,191,255,0,255,255,2  [23991 
55 

370  SYMBOL  215,247,247,247,247,7,251,253,2  [2232] 


54 

380  SYMBOL  233,24,90,36,219,219,36,90,24  [1943] 

390  a$ ( 0 ) =CHR$ ( 200) +CHR$ ( 201 ) +CHR$ { 202 )  [13081 

400  a$ ( 1 ) =CHR$( 203 )+CHR$ (143 )+CHR$ ( 204 )  [17261 

410  a$  { 2  )  =CHR$  (  205  )  +  CHR$  {  206  )  +CHR$  (  207  )  [1866] 

420  s$ { 0 ) =CHR$ ( 208 ) +CHR$ ( 209 ) +CHR$ (210)  [2528] 

430  s$(1  )=CHR$(211 )  +  CHR$(143)+CHR$(212)  [1321] 

440  s$(2)=CHR$(213 ) +CHR$ ( 214) +CHR$ (215)  [15411 

450  '•*•*  ANFANGSWERTE  *  *  *  *  (928  1 

460  DIM  xx ( 6 ) , yy ( 6  )  [1221  J 

470  FOR  i=1  TO  6  [4481 

480  xx  (  i  )  =  1 8  :  y  y  (  i  )  =1 8  [7871 

490  NEXT  [3501 

500  x=4:xx=x:y=21 :yy=y  [1961] 

510  REM  ***•**••*****•**••***•**•••**  [1471] 

520  REM  *  BILDAUFBAU  *  [971 } 

530  REM  ****•• . [14711 

540  PAPER  3:CLS  1861  1 

550  FOR  i=0  TO  96  STEP  8  [574 J 

560  SOUND  1 ,100  +  INT(i/5),1  ,15,1  ,1  (2231  1 

570  MOVE  0 , i : DR AWR  639,0,2  (1298  1 

580  MOVE  0 , 1 04+i : DR AWR  639,0  (8781 

590  MOVE  0,208+i: DR AWR  639,0  (17331 

600  MOVE  0,31 2 +i: DRAWR  639,0  (13601 

610  MOVE  i,0:DRAWR  0,399  1508] 

620  MOVE  1 0 4  +  i , 0 : DR AWR  0,399  [1510  1 

630  MOVE  208  +  i , 0 : DR AWR  0,399  11551  1 

640  MOVE  312+i,0:DRAWR  0,399  (1457} 

650  MOVE  41  6  +  i ,  0  :  DR  AWR  0,399  (1279) 

660  MOVE  52 0  +  i , 0 : DRAWR  0,399  [1304  1 

670  MOVE  624+i,0: DRAWR  0,399  [16001 

680  NEXT  (3501 

690  CLS # 2 : CLS # 3 : CLS ff 4  1588  1 

700  '***»  SPIELFLAECHE  (038) 

710  PAPER  0:PEN  1  (9651 

720  FOR  i=3  TO  18  STEP  3  [1837] 

730  FOR  il =3  TO  18  STEP  3  (1522) 

740  SOUND  1 ,100+il ,1 ,1 5,1 ,1  [18301 

750  FOR  i2=0  TO  2  (10581 

760  LOCATE  i ,i1 +i2 : PRINT  a$(i2);  [14341 

770  NEXT  i2,i1 ,i  (422  I 

780  PEN  0: PAPER  1  [7431 

790  FOR  i=4  TO  21  [446  1 


800  ehr =207 :chr1 =chr: IF  i  MOD  3=1  THEU  z=z  [16551 
+1 :chr=64+z:chr1 =48+z 

810  LOCATE  21  , i : PRINT  CHR$ ( chrl  > ; : LOCATE  i  [22661 
,21 : PRINT  CHR$ ( ehr ) 

820  IF  i >1 1  TUEN  LOCATE  15+i,5:PRINT  CHR$(  (4124) 
143);: LOCATE  15+i,9:PRINT  CHR$(143); 

830  IF  i <1 8  TUEN  LOCATE  21 + i , 24 : PRINT  CHRS  (52861 
( 1  43  )  ;  :  IF  i<17  THEN  LOCATE  39, 8  +  i:  PRINT  CII 
R$( 1 43 ) ; 


840  NEXT  [3501 

850  LOCATE  36, 4: PRINT  CHR$ ( 1 43 );: LOCATE  36  [30831 
, 8 : PRINT  CHR$( 1 43 ) ; 

860  REM  . . .  (1  3931 

870  REM  *  NAMEN  eingeben  *  (1135) 

880  REM  ***»**»••••*••****••*««*•**  [13931 

890  n$="  " : WH ILE  n$="" : n$= INKEY $ :WEND  (2407) 

900  FOR  i=2  TO  3  [681 1 

910  LOCATE#4 ,2,2: PEN#4 , i : PRINT04 , "Bitte  Ih  [1692] 
ren" 

920  LOCATE# 4,5,4: PRINT#4 , "NAMEN" ;  [1004] 

930  LOCATE//4, 2, 6 :PRINT#4,  "eingeben  !!!  [2330  1 

940  PEN#4 , 0  16781 

950  PEtl/n,i  (409  1 
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—  Min. 

" ;CHR$( 1 6 

"  ;CIIR$  ( 1  7 

1  Min . 

2  Min. 

5  Min. 


960  FOR  ii=1  TO  8 

970  n$=UPPER$(INKEY$):IF  n$=""  TUEN  970 

900  SOUND  1 ,30,3,15,1  ,1 

990  IF  n$=CHR${ 1 3 )  THEN  1040 

1000  IF  INKEY (79 ) <  >— 1  THEN  L0CATE#i, ii-1 , 1 

:  PRINT//i ,  CHR$  ( 32  ) ; :  ii=ii-2 :  name$  ( i-2  )  =LEFT 

$ ( name$( i-2 ) , ii ) :GOTO  1030 

1010  LOCATE# i, ii , 1 : PRINT# i , n$ ; 

1020  name$ ( i-2 ) =name$ ( i-2 ) +n$ 

1030  NEXT  ii 
1040  NEXT  i 

1050  REM  ***********••*••*••*••••••*• 

1060  REM  •  ZEIT  pro  SPIELER 

1070  REM  •*****••*•****•****•*«**•»•• 

1080  CLS#4 

1090  FOR  i=0  TO  1 

1100  zeitflag( i )=-1 

1110  LOCATE# 4 ,2,2: PRINTE 4 , " ZEITLIMIT  " 

1120  LOCATE#4 ,2,4:  PRINT# 4  ,  "FUER  ";:PEN//4,i 
+  2 : PRINT#4 ,  name$(  i  ) ; :  PEN#4 , 0 
1130  LOCATE#4 ,2,6: PRINT#4 , "0  - 
1140  LOCATE#4 ,2,7:  PRINT# 4  , 1  - 
9 ) ; "  Min . 

1150  LOCATE#4 ,2,8:  PRINT//4  ,  "2  - 
0 )  ; "  Min. 

1160  LOCATE# 4 ,2,9: PRINT# 4 , "3  - 
1170  LOCATE#4 ,2,10: PRINT#4  ,  "4  - 
1180  LOCATEr/4 , 2 , 1 1  :PRINT#4,"5  - 
1190  LOCATE#4 ,2,12:  PEN#4 ,  i  +2  :  PRINT// 4  ,  "6  - 
?  Min. PEN# 4,0 

1200  eingabe$=UPPKR$ ( INKEY$ ) : IF  eingabe$=" 
"  THEN  1200 

1210  SOUND  1,50,5,15,1,1 

1220  IF  eingabe$="0"  THEN  zeitf lag( i  )=0  EL 
SE  IF  eingabe$="1  "  THEN  zeitf lag{ i )=0 . 5  EL 
SE  IF  eingabe$="2"  THEN  zeitf lag{ i ) =0. 75  E 
LSE  IF  eingabe$="3"  THEN  zeitf lag ( i ) =1  ELS 
E  IF  eingabe$="4"  THEN  zeitf  lag(  i )  =2  ELSE 
IF  eingabe$="5"  THEN  zeitf lag( i)=5 
1230  IF  eingabe$="6"  OR  zeitf lag( i )< >-1  TU 
EN  1240  ELSE  1200 

1240  IF  zeitf lag( i  )  <  >-1  THEN  1  320  ELSE  CLS 
#4 : LOCATE#4 , 1  , 2:PRINT#4,"  ZEIT  FUER  " 

1  250  LOCATE# 4 ,2,4:  PEN#  4  ,  i  +  2  :  PR  INT#  4 ,  name$  ( 
i  ) ; : PEN#4 , 0 

1260  LOCATE#4 ,2,6:  PRINT#4  ,  "Bitte  in  Min." 

1 270  LOCATE #4 ,2,8: INPUT#4 , eingabe$ 

1280  FOR  ii =1  TO  LEN(eingabe$) 

1290  IF  MID$ (eingabe$ , ii ,1 ) < "0"  OR  MID$(ei 
ngabe$,i1 , 1 ) >"9"  THEN  1240  ELSE  NEXT 
1300  IF  VAL(eingabe$ ) >99  THEN  1240 
1310  zeitflag( i )=VAL(eingabe$) 

1320  zeitf lag ( i )=zeitf lag ( i ) *60 :CLS#4 : NEXT 
1330  EVERY  50,0  GOSUB  2470 
1340  p=0 

1 350  LOCATE #4 ,2,8: PEN 04 , 2 : PRIKT# 4 , nameS { 0 ) 
: PEN# 4, 3 

1  360  LOCATE# 4 , 2,12:  PRINT# 4  ,  name$  ( 1  ) :  PEN, 74  , 
0 

1370  REM  ***************************** 

1380  REM  *  ZUG  eingeben  * 

1390  REM  ***•***•*****•*•******»»»•»»* 

1400  PEN  1: PAPER  2:p=0:f=2 

1410  LOCATE74 , 2 , 6+  (  4  *p)  ;  PRINT// 4  ,  "ihr  Zug  I 

M  . 

1420  a$»"":WHILE  a$="" : a$=UPPER$ ( IMKEY$ ) : W 
END 

1430  LOCATE# 4 ,12,6+(4*p): PR INT# 4 , CHR$ (17) 
1440  x=0 : y=0 

1450  IF  p=1  THEN  PEN# 1 , 2 : p=  0 : PEN  3  ELSE  PE 
N# 1 , 3:p=1 : PEN  2 
1460  PAPER  1 

1470  IF  a$  >="A"  AND  a$<  =  "F"  THEN  y=-1:y1=- 
1 :x=ASC(a$)-64:GOTO  1540 

1480  IF  a$  >="1 "  AND  a$<  =  "6"  TUEN  y=ASC(a$) 
-48:x=-1 :x1 =-1 :GOTO  1540 

1490  IF  p=0  THEN  PEN #1 ,3:p=1 : PEN  2  ELSE  PE 
N#1 , 2 : p=0: PEN  3 
1500  GOTO  1410 

1510  '****-****««****•*.****•«••••. 

1520  ’  *  STEIN  SETZEN  * 

1530  •*••******•****«•**.***«*•••»• 

1540  IF  x=-1  THEN  x=xx (y ) : xx( y ) =xx( y ) -3 : y  = 
y *3  ELSE  y=yy (x ) : yy ( x ) =yy (x) -3 :x=x*3 
1550  IF  x<3  OR  y<3  THEN  FOR  i=1  TO  15:BORD 
ER  0 : NEXT : BORDER  14:SOUND  1,500,15,15,2,1, 
1:IF  p=1  THEN  PEN# 1,2: p=0 : GOTO  1410  ELSE  P 
CN#1 , 3 : p=1 :GOTO  1410 

1560  IF  TEST (x*16+8,399-(y*16-8) ) <  >1  AND  x 


l581]  1=-1  THEN  x=-1  :y=y/ 3: GOTO  1540 

12407)  1570  IF  TEST( X*1 6+8 , 399- ( y *  1 6-8 ) ) < >1  AND  y  [4022] 

[1663  1  1«-1  THEN  y=~1  :x=x/3 :GOTO  1540 

[781]  1580  xl  =0 :y1  =0  [10501 

[7340)  1590  FOR  i=0  TO  2  (471) 

1600  SOUND  1 ,300*{1+i), 15, 14,1  ,1  (2107] 

1610  LOCATE  x,y+i: PRINT  s${i);  [1621] 

12001  I  1620  NEXT  [350] 

[1049]  1630  xs=x:ys=y  [1376] 

[453]  1640  zug=zug+1:IF  zug>6  THEN  GOSUB  1710  [3076] 

[3755  1650  LOCATE#4 ,2,2: PRINT#4 , "ZUG  :  ";zug  [2353) 

[1  504]  1ß6°  IF  zug  >=36  THEN  CLS#4:q=REMAIN(0 ) :GOT  (2975) 

[1448  1  0  2590 

1670  GOTO  1410  £393  1 


[386  ] 

1680  '....mm...,.,* . . 

[978] 

[468  3 

1690  '  *  UEBERPRUEFUNG  * 

[1381  1 

[1181  ) 

1700  '...mm».......,.....*.... 

[9781 

[2967  I 

1710  IF  p=1  THEN  f =2  ELSE  f=3 

[1  252) 

[26271 

1720  sz-0 : flag=0 

(149J 

1730  IF  TEST (x*16+8,399-(y*16-8))=f  THEN  s 

[3297] 

[1  449  1 

z=sz+1  ELSE  1750 

[24831 

1740  X=X+3:IF  x <1 9  THEN  1730 

[1301  ) 

1750  x=xs 

(603J 

[2220  1 

1760  IF  TEST(x*16+8,399-(y*16-8) )=f  THEN  s 
z=sz+1  ELSE  1780 

[3283J 

[2208  1 

1770  x*=x-3:IF  x>2  THEN  1760 

[1812] 

[1  437  1 

1780  x=xs:IF  sz>4  THEN  f lag=-1 : stein=1 

[1465] 

[1  758] 

1790  sz=0 

[188] 

[2219  1 

1800  IF  TEST (x*16+8,399-(y*16-8) )=f  THEN  s 
z=sz+1  ELSE  1820 

[3323] 

[3887  1 

1810  y=y-3 : IF  y>2  THEN  1800 

[1684  ] 

1820  y=ys 

[805] 

[1703  1 

1830  IF  TEST(x*1 6+8,399- (y*1 6-8) ) =f  THEN  s 

13285] 

[16281  1 

Z=SZ+1  ELSE  1850 

1840  y=y+3 : IF  y<19  THEN  1830 

(2210) 

1850  y=ys:IF  sz>4  THEN  f lag=-1 : stein=2 

(3477) 

1860  sz=0 

(188) 

1870  IF  TEST(x*16+8,399-(y*1 6-8) )=f  THEN  s 
z=sz+1  ELSE  1890 

(3309) 

[16051 

1880  x=x+3:y=y+3:IF  x<19  AND  y<19  THEN  187 

0 

1890  x=xs:y=ys 

(34581 

[5605  1 

(836) 

1900  IF  TEST (x*16+B,399-(y*16-8) )=f  THEN  s 

(33191 

[3347] 

z=sz+1  ELSE  1920 

1910  x=x-3:y=y-3:IF  x>2  AND  y>2  THEN  1900 

(3011  ) 

[2931  1 

1920  x=xs:y=ys:IF  sz>4  THEN  f lag=-1 :stein= 

(2807  ] 

[1987  ] 

3 

[1888  ] 

1930  sz=0 

[188] 

146791 

1940  IF  TEST (x*1 6+8, 399— (y*1 6—8 ) )=f  THEN  s 
z=sz+1  ELSE  1960 

£3343) 

(1490  ) 

1950  x=x+3:y=y-3:IF  x<19  AND  y>2  THEN  1940 

[2215] 

[1873  ) 

1960  x=xs : y=ys 

[836  ] 

[1839  ) 

1970  IF  TEST (x*1 6+8, 399- (y*1 6-8 ) ) =f  THEN  s 

[3249) 

[1657  ) 

z=sz+1  ELSE  1990 

[257  ] 

1980  x=x-3:y=y+3:IF  x>2  AND  y<19  THEN  1970 

[3082] 

[2976 ) 

1990  IF  sz >4  THEN  f lag— 1  : stein=4 

[1016] 

2000  IF  f lage-1  THEN  GOTO  2050 

[1326] 

[2132  1 

2010  RETURN 

[5551 

2020 

1894) 

[1  471  ] 

2030  ' *  VIER  NEBENEINANDER  * 

[1211  ] 

[1  504  1 

2040  '*****•••**«*••*•**•**•••* 

[894] 

[1471  1 

2050  q=REMAIN ( 0 ) : x=xs : y=ys 

(1877  ] 

[1251  ] 

2060  ON  stein  GOSUB  2130,2210,2290,2370 

[1884  ] 

[2044  1 

2070  GOSUB  2790 

(829) 

2080  '•*••  STEIN  KENNZEICHNEN 

[1263  ] 

[2173  1 

2090  LOCATE  x,y+1:PRINT  CHR$ ( 21 1 ) +CHR$ ( 233 
)+CHR$ (212); 

(2225) 

[1391  ] 

2100  SOUND  1  ,10*(x+y),20,13,1  ,1 

(2823) 

[899] 

2110  RETURN 

[555  ] 

[2698] 

2120  '*•**  VIER  WAAGRECHT  •*** 

[982] 

2130  IF  TEST(x*16+8,399-(y*16-0))=f  AND  x< 

[4002  ) 

1819) 

19  THEN  x=x+3:GOTO  2130 

[3402  ] 

2140  xx=x 

[377] 

2150  FOR  i  =  1  TO  4 

[4503 

[2723  ] 

2160  x=xx-(i*3):y=ys 

[1292  ] 

2170  GOSUB  2090 

[865] 

[3028] 

2180  NEXT 

(350) 

2190  RETURN 

[555] 

[393  ] 

2200  ••**•  VIER  SENKRECHT  **** 

[225] 

[1143] 

2210  IF  TEST(x*16+8,399-(y*16-8) )=f  AND  y> 

(3368) 

[1040  ) 

2  THEN  y=y-3:GOTO  2210 

[1143] 

2220  yy =y 

[552] 

[5935  ) 

2230  FOR  i=1  TO  4 

[450] 

2240  x=xs:y=yy+( i *3 ) 

(1  408  ] 

[10209] 

2250  GOSUB  2090 

1865) 

2260  NEXT 

1350] 

2270  RETURN 

[555  ] 

2280  '••**  VIER  DIAGONAL  LINKSOBEN  -  RECHT 

[1788  ] 

(4342  ] 

SUNTEN  **•* 

iimm 
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2290  IF  TEST (x*'16  +  8,399-{y*16-8) )=f  AND  (y 
>2  AND  X>2 )  THEN  y*y-3 :x=x-3 ;GOTO  2290 
2300  xx=x:yy=y 
2310  FOR  i-1  TO  4 
2320  x»xx+(i*3):y=yy+(i*3) 

2330  GOSUB  2090 
2340  NEXT 
2350  RETURN 

2360  '••••  VIER  DIAGONAL  RECHTSOBEN  -  LINK 
SUNTEN  •••• 

2370  IF  TEST<x*16+8,399-(y*16-8))=f  AND  (y 
>2  AND  x<1 9  >  THEN  y=y-3 :x=x+3 :GOTO  2370 


[5138] 

(838] 
(450  J 
(1165  1 
(8651 
(350) 
[555] 
12171  ] 

(53621 


2380  xx»x:yy*y 

2390  FOR  i=1  TO  4 

2400  x*xx-(i«3):y=yy+(i*3) 

2410  GOSUB  2090 
2420  NEXT 
2430  RETURN 

2440  REM  •  •»••«■•••*••»•*•**••••* 

2450  REM  *  ZEITABZUG  * 

2460  REM  ••••••••••••*••**••••• 

2470  IF  zeitf lag(p)=*0  THEN  2550 

2480  zeitf lag(p)=zeitf lag(p)-1 

2490  sek(p)-zeitf lag(p)  MOD  60 

2500  minu(p) s(zeit£ lag(p)-sek(p) )/60 

2510  LOCATE#4 , 10,8: PRINT#4 ,USING  "##:##"; m 

inu<0 ) ;sek(0) 

2520  LOCATE#4 ,10,12 : PRINT# 4  ,USING  "##:##"; 
minu(1 ) ;sek(1 ) 

2530  IF  minu(p)=0  AND  sek(p)<11  THEN  SOUND 
1,50,2,15 

2540  IF  zeitf lag(p) <»0  THEN  2690 
2550  RETURN 

2560  . . . 

2570  ' *  UN ENDSCHI EDEN  • 

2580  . . . ••• 

2590  LOCATE# 4 , 2,2: PRINTE 4 , "Sie  haben  es" 
2600  LOCATE# 4 , 2,4: PRINT# 4 , "beide  nur  zu" 
2610  LOCATE#4,6,6:PRINT#4,"einera 
2620  LOCATE# 4 ,2,8: PRINT# 4 , "UNENDSCHI EDEN " 
2630  LOCATE#4,2,10:PRINT#4, "gebracht  !  !  !  " 
2640  CALL  ÄBB18:CALL  &BB18 
2650  GOTO  2950 
2660  REM 

2670  REM  *  Zeit  um/VERLOREN  • 

2680  REM  ••••******'»•*•*•***• 

2690  CLSI4 

2700  LOCATE# 4,2,2: PEN#4 , f : PRINT# 4 , name $  ( f  - 
2 ) : PEN#4 ,0 

2710  LOCATE#4 , 2,4: PRINT#4 , "Hat  das  Spiel"; 
2720  LOCATE#4 ,2,6: PRINT#4 , "wegen  Zeit-" 
2730  LOCATE#4 , 2,8: PRINT#4 , "mangels" 

2740  LOCATE#4, 2, 10.-PRINT#  4,  "VERLOREN  Sil" 
2750  CALL  4BB1 8 : CALL  &BB18:GOTO  2950 

2760  REM  . . 

2770  REM  *  Spieler  gewonnen  * 

2780  REM  ***••*•*••*«*•*••***• 

2790  CLS#4 

2800  LOCATE#4 , 2,2: PEN#4 , f : PRINT# 4 , name$ ( f  - 
2 ) : PEN#4 , 0 

2810  LOCATE#4 ,2,4: PRINT#4 , "Hat  das  Spiel"; 
2820  LOCATE#4 ,2,6: PRINT#4 , "mit  4  Steinen"; 
2830  LOCATE#4 ,4,8 

2840  IF  stein=1  THEN  re i he  $ = "WAAGRECHT " 
2850  IF  stein=2  THEN  re i he  $ = "SENKRECHT " 
2860  IF  stein=3  OR  stein=4  THEN  reihe$="DI 
AGON  AL" 

2870  PRlNT#4,reihe$ ; 

2880  LOCATE#4 ,2,10: PRINT#4 , "GEWONNEN  ! I 1 
2890  LOCATE#4 ,2,12: PEN#4 , blinkf arbe : PRINT# 
4,"B  R  A  V  O  HI"; 

2900  IF  blinkfarbe=0  THEN  blinkfarbe=f  ELS 
E  blinkfarbe=0 

2910  IF  INKEY$=" "  THEN  2890  ELSE  CALL  &BB1 
8: GOTO  2950 

2920  . . . *••••*** 

2930  '*  NEUES  SPIEL  ?  • 

2940  . . . . . . 

2950  CLS#4:LOCATE#4, 2, 2:PRINT#4, "Wollen  Si 
e  " 

2960  LOCATE  #4 , 2 , 4 : PRINT#4 , "nochmal  ein" 
2970  LOCATE  #4,2,6:PRINT#4 , "Spiel  wagen  ?" 

2980  LOCATE  #4,2,10: PRINT# 4 , " (TAB  1  =  JA 
2990  LOCATE  #4,2,12  SPRINT# 4 , " (DEL  1  *  NEIN 
3000  IF  INKEY ( 68 )=0  THEN  n$=INKEY$ :RUN 
3010  IF  INKEY ( 79 )=0  THEN  CALL  &0 
3020  GOTO  3000 
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(17571 
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(5551 

(1287) 

(16041 
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Das  Muß  für  jeden  Hardware-Entwickler. 


Unser  einzigartiges  Platinen-Entuicklungssystem  er¬ 
laubt  erstmalig  die  professionelle  Layouterstellung 

Zuerst  suchen  Sie  sich  aus  der  schon  vorhandenen  und  beliebig  eruieiterbaren  8au- 
teilbibliothek  alle  benötigten  Bauelemente  heraus.  Anschließend  geben  Sie  die 
Verbindingen  ein,  wobei  Sie  anstelle  der  Pinnumem  die  Pinbezeichnungen  einge¬ 
ben  können,  wodurch  das  ständige  Wälzen  von  Oatenbüchern  entfällt. 

Nun  wird  die  Platine  selbständig  vom  Computer  entflochten,  wobei  sowohl  einsei¬ 
tige  als  auch  zweiseitige  Entwicklungen  mit  Ourchkontaktieringen  möglich  sind. 
Dabei  ist  die  Eingabe  zahlreicher  Parameter  wie  z.8.  Platinengröße  (Platinen 
größer  als  Europaformat  möglich  t),  Routing-Prioritäten  und  Vorsortieren  gege¬ 
ben.  Falls  erforderlich,  können  Sie  nachträglich  mit  einem  speziellen  Leitarbah- 
nen-CAD-System  Hand  an  die  Platine  legen. 

Oie  Ausgabemöglichkeiten  sind  schier  unbegrenzt:  Layout,  Lötstopmaske  und  Be¬ 
stückungsplan  können  auf  Drucker,  Plotter  oder  X/Y/Z-Tisch  ausgedruckt,  ausge- 
plottet  oder  eusgefräst  werden. 

Oie  Bedisrxng  erfolgt  ausschließlich  mit  unserer  bekannten  ISousePack-Plaus. 

Einführungspreis:  295. -DM  ohne,  395. -DM  mit  MousePack 

GERDES,  Imperial  SOFTware  Systems 

Heidegar tenstr .  36  /  5300  Bonn  1 

Telefon;  0228  /  25  24  74 


Der  Knüller!!! 

Basic-Erweiterung  für  CPC  ohne  RSX  zum 
Schreiben  von  Arcade-Splele. 

Mit  ausführlichem  Deutschen  Handbuch. 
Sehr  einfach  zu  handhaben.  Mehr  als  50  Befehle 

SPR0N,  SPROFF,  SM0VE,  XSTEP,  YSTEP,  GETX,  GETY, 
GETXW,  GETYW,  INFRONT,  BEHIND,  BLOCK,  SPERCHANGE, 
WAY,  ANIMATE,  SCREEN,  usw. 


PETER  WEST  RECORDS  GmbH 

Am  Heerdter  Hof  15  •  4000  Düsseldorf  11 


9 '86  CPC  65 


•CP/M 


IIIIIIIMIHHItllllHIIMIIIII 


IIIMIMIIIIIMIIIIIMMIIIIIIMMMIMIIIIIIIimilll 


II II  m  II III  um  M II m  III  im . .  iii  ii  min  lim 


IHllHIIIHIIIIIHIIIIIIHimiimilllimilHIIHHIIIHIIIHIIIIllll"  MM 


In  diesem  Teil  der  Serie  ”Die  Gratis- 
Tools”  lernen  Sie  RANDO  und  die 
GAPPVS  kennen.  Es  handelt  sich  bei 
diesen  seltsamen  Begriffen  um  Ele¬ 
mente  eines  Computerspiels  etwas  an¬ 
derer  Art.  Sinn  dieses  Spiels  ist  näm¬ 
lich  in  erster  Linie,  Ihnen  weiteres  Wis¬ 
sen  über  die  Handhabung  von  CP/M  zu 
vermitteln  und  die  Praxis  im  Umgang 
mit  den  Tools  zu  vertiefen.  RANDO 
und  die  GAPPYS  sollen  Ihnen  demon¬ 
strieren,  wie  schnell  Bewegungsabläufe 
unter  CP/M  programmiert  werden 
können,  selbst  wenn  man  beim  Pro¬ 
grammieren  nicht  gegen  die  Konven¬ 
tionen  der  BDOS-CALLS  verstößt. 
Gleichzeitig  wird  Ihnen  gezeigt,  wie 
man  recht  einfach  an  eine  ziemlich 
gleichmäßig  verteilte  Zufallszahl  her¬ 
ankommt;  eine  wichtige  Vorausset¬ 
zung  für  viele  Computerspiele.  Diejeni¬ 
gen  Leser,  die  ihre  Assembler-Pro¬ 
gramme  mit  dem  BASIC-Editor  schrei¬ 
ben,  finden  einen  Hinweis  zu  einem  lä¬ 
stigen  Problem,  in  Verbindung  mit 
manchen  Textformaten. 

Wesentlichste  Leminhalte  jedoch,  sind: 

-  Bildschirm-Steuercodes  unter 
CP/M  2.2 

-  Unterschiede  zwischen  BDOS- 
CALL  2  und  BDOS-CALL  6 

-  Verwendung  von  Z80-Befehlen  im 
8080-Assembler 

Probleme  vorweg! 

Wer  seine  Texte  für  Assembler- 
Quelldateien  mit  dem  BASIC-Editor 
schreibt,  wird  folgende  Feststellung 
machen: 


Selbst  wenn  der  Text  keinen  gültigen 
BASIC-Befehi  enthält,  wird  er  unter 
Umständen  vom  Editor  umformatiert. 
Bekannt  sind  die  Eingriffe  des  Editors 
z.B.  in  dem  Falle,  daß  Sie  ein  gültiges 
BASIC-Kommando  klein  schreiben. 
Der  Editor  pickt  sich  alle  korrekten 
BASIC-Statements  heraus  und  setzt 
sie  in  Großbuchstaben  um,  eine  gute 
Kontrolle  für  den  Programmierer.  Im 
Falle  unseres  Mißbrauchs  des  Editors 
für  Assemblerprogramme  ergibt  sich 
jedoch  ein  Effekt  der  unbedingt  beach¬ 
tet  werden  muß. 

Manche  Ihrer  Eingaben  werden  vom 
Editor  umformatiert!  Es  werden  unter 
gewissen  Bedingungen  Leerzeichen 
eingefügt  die  ASM.COM  dazu  veran¬ 
lassen,  Ihr  korrekt  eingegebenes  Pro¬ 
gramm  als  fehlerbehaftet  zu  dekla¬ 
rieren.  Wenn  man  die  Ursache  kennt, 
ist  das  allerdings  von  geringer  Bedeu¬ 
tung  und  kann  verhindert  werden. 
Doch  nun  zur  konkreten  Situation: 
Probleme  tauchen  auf,  wenn  Eingaben 
durch  Kommata  getrennt  sind. 
Beispiel: 

DB  OAFH,OEFH 

Der  Assembler-Befehl  ”DB"  bedeutet 
"Deflne  Byte”  und  sagt  aus,  daß  der 
Speicher  direkt  mit  den  nach  DB  fol¬ 
genden  Werten  gefüllt  werden  soll,  in 
unserem  Fall  ein  Byte  mit  dem  hexa¬ 
dezimalen  Inhalt  AF  und  ein  weiteres 
mit  dem  Inhalt  EF  (die  Null  vorweg 
ist  Pflicht,  damit  der  Assemblerbuch¬ 
stabenbehaftete  Hex-Zahlen  von  La¬ 
bels  unterscheiden  kann,  das  ”H" 


danach  steht  für  Hex).  Wenn  Sie  die 
o.g.  Zeile  im  BASIC-Editor  schrei¬ 
ben,  so  erhalten  Sie  nach  dem  LIST- 
Befehl: 

DB  0AFH,0  EFH 

also  ein  Leerzeichen  nach  der  zwei¬ 
ten  Null!  Mit  diesem  Leerzeichen 
wird  der  Text  auch  auf  die  Diskette 
geschrieben  (nach  SAVE)  und  dann 
von  ASM  ''angemeckert".  Wie  läßt 
sich  dieser  Effekt  verhindern?  Er  tritt 
nicht  auf,  wenn  in  den  durch  Komma 
getrennten  Werten  keine  Buchstaben 
auftauchen!  Es  ist  daher  im  o.g.  Bei¬ 
spiel  leider  nötig,  den  zweiten  Wert 
(OEFH)  in  den  entsprechenden  Dezi¬ 
malwert  umzurechnen  (239).  Die 
Eingabe: 

DB  0AFH,239 

wird  nicht  verändert.  Der  BASIC- 
Editor  ersetzt  eben  nicht  ein  univer¬ 
selles  Textverarbeitungsprogramm! 
Achten  Sie  daher  in  allen  Assembler¬ 
zeilen,  in  denen  Werte  durch  Kom¬ 
mata  getrennt  werden  auf  korrekte 
Darstellung  des  Quellcodes. 

Der  Befehl: 

MVI  A,0C7H 

würde  z.B.  ebenfalls  "schiefgehen". 
Wenn  es  Ihnen  zu  mühselig  ist,  per 
LIST  das  ganze  von  Ihnen  geschrie¬ 
bene  Programm  nochmals  durch¬ 
zuackern,  dann  lassen  Sie  sich  diese 
Arbeit  von  ASM  abnehmen.  Der  As¬ 
sembler  wirft  Ihnen  alle  fehlerhaften 
Zeilen  aus,  wenn  Sie  vor  dem  Starten 
von  ASM  Ihren  Drucker  mit  Control 
P  zuschalten.  Bei  dieser  Gelegenheit 
sei  angemerkt,  daß  dieser  Effekt  bei 
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den  Listings  innerhalb  dieser  Serie 
berücksichtigt  wurde.  In  allen  kriti¬ 
schen  Fällen  ist  das  Listing  so  formu¬ 
liert,  daß  das  Problem  nicht  auftritt. 
Doch  nun  zu  erfreulicheren  Dingen: 
Lernen  Sie  RANDO  kennen. 


Wer  ist  RANDO? 


RANDO  ist  der  Name  eines  verbisse¬ 
nen  Einzelkämpfers,  dessen  Mission 
darin  besteht,  den  Bildschirm  Ihres 
Computers  gegen  die  GAPPYS  zu 
verteidigen.  Zu  diesem  Zweck  eilt  er 
zielstrebig  über  die  Fläche  und  hin¬ 
terläßt  an  jedem  Ort,  den  er  aufsucht, 
einen  Pfeil,  der  seine  jeweilige  Lauf¬ 
richtung  anzeigt.  RANDO  ist  dabei 
nicht  einer  jener  zähen,  reaktions¬ 
schnellen  Muskelmänner,  die  kein 
Hirn,  sondern  nur  Missionen  im 
Kopf  haben.  Er  hat  ein  Buch  über 
Herrn  Einstein  gelesen  und  verstan¬ 
den.  Als  praktische  Nutzanwendung 
für  sein  Leben  hat  er  daraus  gelernt, 
wie  man  sich  die  Raumkrümmung 
zunutze  macht.  Wenn  RANDO  einen 
Bildschirmrand  erreicht,  ist  deshalb 
die  Jagd  nicht  zu  Ende,  sondern  er 
faltet  sich  den  Raum  so.  daß  er  am  an¬ 
deren  Ende  des  Bildschirms  wieder 
auftaucht.  Die  GAPPYS  nun  unter¬ 
minieren  die  wichtige  Mission 
RANDOs  und  radieren  seine  Pfeile 
wieder  aus.  Damit  RANDO  über¬ 
haupt  eine  Chance  hat,  sind  die  GAP¬ 
PYS  nicht  ganz  so  affenschnell  wie  er. 
Irgendwann  wird  es  ihm  gelingen, 
den  ganzen  Bildschirm  mit  seinen 
Pfeilen  vollgemalt  zu  haben.  Die 
Wahrscheinlichkeit,  daß  es  ihm  ge¬ 
lingt,  ist  aber  gering.  So  bleibt  eine 
Frage  offen:  was  hat  der  Computer- 
Besitzer  bei  diesem  Spiel  zu  tun?  Es 
wird  davon  ausgegangen,  daß  der  Be¬ 
sitzer  keine  Zeit  hat,  weil  Sommer  ist 
und  er  sich  um  die  Beach-Babys  küm¬ 
mern  muß  oder  weil  Fußball- WM  ist 
(oder  ähnliche  Störfälle).  Der  Com¬ 
puter  spielt  dieses  Spiel  allein!  Falls 
Sie  der  Ansicht  sind,  dies  sei  Non¬ 
sens,  so  haben  Sie  damit  recht.  Zur 
Verteidigung  dieses  schönen  Games 
sei  jedoch  gesagt,  daß  die  Reak¬ 
tionszeit  eines  Menschen  nicht  aus¬ 
reichen  würde,  um  qualifiziert  mit¬ 
mischen  zu  können.  Im  nächsten  Teil 
dieser  Serie  werden  jedoch  die 
BDOS-CALLS  zur  Tastatur-Abfra¬ 
ge  besprochen  und  dann  besteht  na¬ 
türlich  die  Möglichkeit,  sowohl 
RANDO  als  auch  die  GAPPYS 
durch  Warteschleifen  langsamer  zu 
machen...  warten  wir  es  ab!  Einstwei¬ 
len  besteht  Ihre  Beschäftigung  darin, 
RANDO  zu  programmieren  und 
dabei  einiges  zu  lernen,  ja  und  dann 
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können  Sie  RANDO  natürlich  bei 
seiner  Arbeit  Zusehen,  eine  Tätigkeit, 
die  uns  von  Sportübertragungen  im 
Fernsehen  ohnehin  geläufig  ist 
Listing  1  stellt  das  komplette  Quell¬ 
programm  für  RANDO  dar  (dessen 
Name  übrigens  von  RANDOM  ent¬ 
lehnt  ist  und  nicht,  wie  Sie  denken, 
von  einem  bekannten  Silvester- 
Helden).  Vergegenwärtigen  Sie  sich 
nochmals  die  Schritte  zum  lauffähi¬ 
gen  Programm: 

-  Quellprogramm  mit  Editor  eingeben 

-  Quellprogramm  auf  Arbeitsdiskette 
schreiben 

-  CP/M  aufrufen  (sofern  nicht  aktiv) 

-  ASM  mit  Programmnamen  aufrufen 

-  LOAD  mit  Programmnamen  auf¬ 
rufen 

-  Programm  mit  Programmnamen 
starten 

Bitte  beachten  Sie  nochmals: 

Bei  Verwendung  des  BASIC-Editors 
ist  unbedingt  darauf  zu  achten,  daß 
das  Programm  als  ASCII-Datei  auf 
die  Floppy  gelangt,  also: 

SAVE  ”RANDO.ASM”,A 
Denn  es  handelt  sich  nicht  um  eine 
BASIC-Datei!  Nachdem  Sie  mit  die¬ 
ser  Arbeit  fertig  sind  und  RANDO 
läuft,  werden  Sie  sicherlich  feststel¬ 
len,  was  man  mit  einem  relativ  kurzen 
Assemblerprogramm  unter  CP/M 
bereits  auf  die  Beine  stellen  kann.  In 
den  nun  folgenden  Ausführungen 
werden  Ihnen  einige  Erläuterungen 
zur  Funktionsweise  dieses  Pro¬ 
gramms  gegeben. 


Wie  funktioniert  RANDO? 


Grob  gesagt  werden  in  diesem 
Programm  Zufallszahlen  erzeugt,  be¬ 
arbeitet  und  dann  als  Steuerparame¬ 
ter  für  Konsolenausgaben  verwendet. 
Beim  Bearbeiten  der  Zufallszahlen 
werden  einige  Randbedingungen  be¬ 
rücksichtigt,  bevor  sie  als  Parameter 
benutzt  werden,  und  das  ist  dann 
auch  schon  alles. 


Erzeugen  einer  Zufallszahi 


Im  BASIC  werden  Zufallszahlen  als 
feststehende  Zahlenfolge  in  Abhän¬ 
gigkeit  von  einem  Startwert  erzeugt 
(siehe  RANDOMIZE  und  RND  im 
Handbuch).  Eine  einfache  Methode, 
an  eine  Zufallszahl  im  Bereich  0  bis 
127  heranzukommen  besteht  darin, 
das  Refresh-Register  der  Z80-CPU 
auszulesen.  Dieses  7-bit  Register  wird 
von  der  CPU  beim  Hardware-Reset 
des  Prozessors  auf  Null  gesetzt  und 


dann  nach  jedem  OPCODE-FETCH 
(Befehlshol-Zyklus)  inkrementiert 
und  zwar  modulo  128,  d.h.  nach  dem 
Wert  127  wird  es  wieder  auf  0  gesetzt 
und  von  neuem  hochgezählt.  Es  wird 
verwendet,  um  in  der  Zeitlücke  zwi¬ 
schen  Interpretation  und  Ausfüh¬ 
rung  eines  CPU-Befehls  die  dyna¬ 
mischen  Speicher  aufzufrischen.  Der 
Zusammenhang  zwischen  dem  In¬ 
halt  des  Refresh-Registers  und  der 
Anzahl  der  abgearbeiteten  CPU-Be- 
fehle  ist  also  nicht  zufällig,  sondern 
fest.  Programmiert  man  z.B.  ein  As¬ 
semblerprogramm  als  Schleife  mit 
unveränderlichem  Durchlauf,  d.h 
ohne  Programmverzweigungen,  so 
kann  man  erreichen,  daß  der  Wert  im 
Refresh-Register  stets  konstant  ist, 
wenn  nach  jedem  Auslesen  genau  128 
OPCODE-FETCHes  verstreichen. 
Aber  diesen  Fall  müßte  man  als 
unnatürliche  Ausnahme  konstruie¬ 
ren.  Deswegen  hat  sich  der  Wert  in 
der  Regel  zwischen  zwei  Lesevorgän¬ 
gen  verändert,  wenn  zwischendurch 
größere  Programmteile  durchlaufen 
wurden.  Darüber  hinaus  ist  anzu¬ 
merken,  daß  der  Computer  ja  nicht 
während  der  gesamten  "Arbeitszeit” 
unser  CP/M-Programm  bedient. 

Es  laufen  ständig  Interrupts  zur  Ab¬ 
wicklung  von  Systemroutinen.  Diese 
Unterbrechungen  geraten  willkürlich 
in  unser  Anwendungsprogramm  und 
sorgen  für  weitere  Veränderungen 
des  Refresh-Registerinhalts.  In  man¬ 
chen  Situationen  ist  es  wünschens¬ 
wert,  daß  zwischen  zwei  Lesevorgän¬ 
gen  des  Refresh-Registers  mit  Sicher¬ 
heit  ein  Interrupt  ausgeführt  wird. 
Man  kann  per  Software  dafür  sorgen, 
indem  man  den  Opcode  "HLT”  pro¬ 
grammiert.  Im  Listing  1  finden  Sie 
diesen  Befehl  z.B.  in  Zeile  390  und 
500.  ”HLT”  bewirkt,  daß  die  CPU 
”auf  der  Stelle  tritt”,  bis  der  nächste 
Interrupt  aufläuft.  Während  der  Pro¬ 
zessor  wartet,  wird  nur  das  Refresh- 
Register  weitergezählt  und  ausgege¬ 
ben,  damit  dynamische  Speicher 
ihren  Inhalt  nicht  verlieren,  bis  ein 
Interrupt  kommt. 


Auslesen  des 
Refresh-Registers 

Die  CPU  8080  besitzt  kein  Refresh- 
Register.  Deshalb  kennt  ASM  den 
Opcode  zum  Auslesen  (LD  A,R) 
nicht.  Der  Assembler  würde  ihn  als 
Fehler  melden.  Der  Prozessor  im 
Computer  könnte  den  Befehl  jedoch 
selbstverständlich  ausführen.  Darum 
gilt  es,  den  Assembler  zu  überlisten. 
Das  erreichen  wir,  indem  wir  den 
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Opcode  gleich  in  seiner  hexadezima¬ 
len  Schreibweise  eingeben.  Dazu  ver¬ 
wenden  wir  die  Direktive  ”Define 
Byte”  (DB)  das  HEX-Äquivalent  zu 
LD  A,R  ist  ED,5F. 

Jedesmal,  wenn  dieser  Befehl  ausge¬ 
führt  werden  soll,  ist  folgendes  zu 
schreiben: 

DB  OEDH 
DB  05FH 

Im  Listing  1  finden  sich  diese  Befehle 
in  den  Zeilen  80,  400  und  510.  In 
ähnlicher  Weise  kann  man  mit  allen 
Assemblerbefehlen  verfahren,  die 
dem  8080-Prozessor  unbekannt  sind. 


Ein  neuer  BDOS-Call 


Beim  aufmerksamen  Studium  des 
Listings  1  stellen  Sie  fest,  daß  in  den 
Zeilen  260,  300, 340, 380, 680, 670, 710 
und  740  der  BDOS-Aufruf  mit  dem 
Wert  6  im  C-Register  erfolgt.  In  Heft 
3/86  dieser  Serie  lernten  wir  den 
Aufruf  mit  2  kennen,  gemäß  der  Ta¬ 
belle  1  im  o.g.  Heft  handelt  es  sich 
dabei  um  den  Aufruf  für  Konsolen¬ 
ausgabe. 

Diese  Ausgabe  hat  jedoch  einige 
Tücken.  Sie  wertet  die  Steuerzeichen 
(Control)S,  (Control)P  sowie  die  Ta- 
bulationszeichen  (Control)I  aus  und 
bearbeitet  sie.  Da  in  einigen  Fällen 
diese  Zeichen  ausgegeben  werden, 
ohne  jedoch  die  o.g.  Bedeutung  zu  ha¬ 
ben,  ist  es  wünschenswert,  diese  Eigen¬ 
art  zu  unterdrücken.  Dazu  dient  der 
BDOS-Call  mit  dem  Wert  6  im  C- 
Register.  Unerwünschte  Steuerzei¬ 
chen  werden  z.B.  ausgegeben,  wenn 
Parameter  für  spezielle  Bildschirm¬ 
ausgaben  erzeugt  werden,  doch  dazu 
gleich.  Zunächst  sei  BDOS-Call  6  nä¬ 
her  erklärt. 

BDOS-Call  6 

Direkte  Konsolen-Ein/Ausgabe 
Eingangsparameter: 

6  in  Register  C 

Auszugebendes  Zeichen  oder  0FFH 
in  Register  E 
Ausgangsparameter: 

Nur  wenn  E=0FFH: 

Akku  =  0:  kein  Zeichen  bereit 
Akku  <>0:  auszugebendes  Zeichen. 
Wie  der  Beschreibung  zu  entnehmen 
ist,  kann  man  über  diesen  BDOS- 
Call  also  auch  Zeichen  von  der  Ta¬ 
statur  empfangen!  Mit  dieser  Mög¬ 
lichkeit  wollen  wir  uns  in  diesem  Teil 
der  Serie  jedoch  noch  nicht  beschäfti¬ 
gen.  Wichtiger  ist  uns  zunächst  die 
Klärung  der  Frage:  Wie  positioniert 
man  Zeichen  beliebig  auf  dem  Bild¬ 
schirm?  Antwort:  mit  den  Cursor-Steu¬ 
ercodes,  die  aus  dem  BASIC  bekannt 
sind. 


Bildschirm-Steuercodes 


Grundsätzlich  ist  zu  Bildschirm- 
Steuersequenzen  zu  sagen,  daß  sie 
unter  CP/M  2.2  nicht  festgelegt  sind 
(eine  Vereinheitlichung  erfolgte  erst 
mit  CP/M  PLUS).  Es  ist  daher  jedem 
Computerhersteller  überlassen,  Steu¬ 
ersequenzen  z.B.  zum  Positionieren 
des  Cursors  oder  zum  Löschen  des 
Bildschirms  u.ä.  zu  definieren.  Diese 
Tatsache  erklärt  die  Portabilitätspro¬ 
bleme  von  CP/M-Software.  Parade¬ 
beispiel  hierfür  ist  nach  wie  vor  das 
Programm  WORDSTAR.  Es  gibt  von 
diesem  Programm  unzählige  Varian¬ 
ten  unterschiedlichster  Anpassungs¬ 
ebenen.  Problem  ist  in  erster  Linie 
immer  das  Patchen  der  Bildschirm- 
Steuersequenzen.  Bei  den  Schneider- 
Computern  gelten  unter  CP/M  2.2 
dieselben  Bildschirm-Steuersequen¬ 
zen,  wie  unter  BASIC.  Wir  finden  sie: 
für  den  CPC  664: 

Benutzerhandbuch,  Kapitel  7,  Seiten 
3,4,  5 

für  den  CPC  6128: 
Benutzerhandbuch,  Kapitel  7,  Seiten 
3,4,  5,  6,7 

Die  Beschreibung  der  Codes  ist  in  bei¬ 
den  Handbüchern  ausreichend  gut, 
jedoch  leider  fehlerbehaftet. 
Während  in  der  Beschreibung  für 
den  CPC  6128  einige  Flüchtigkeits¬ 
fehler  bereits  eliminiert  wurden,  (z.B. 
beim  Grafikmodus  oder  Cursor- 
Home)  so  ist  immer  noch  zu  bemän¬ 
geln,  daß  z.B.  die  Parameterangabe 
für  die  Steuercodes  der  WINDOW- 
Defmitionen  falsch  sind.  Die  Para¬ 
meter  zählen  nämlich  vom  Wert  0  an, 
nicht  wie  angegeben  vom  Wert  1 
(demgemäß  ist  der  Maximalwert  der 
einzelnen  Parameter  um  1  kleiner  als 
angegeben).  In  unserem  Beispielpro¬ 
gramm  machen  wir  uns  vor  allem  die 
Steuersequenz  zum  Positionieren  des 
Cursors  zunutze  (1FH  <Spalte> 
<Zeile>).  Im  Listing  ist  übrigens 
1FH  durch  31  ersetzt,  damit  das  ein¬ 
gangs  geschilderte  Problem  nicht 
auftaucht,  nämlich  Formatfehler 
durch  den  Editor  (siehe  im  Listing: 
Zeilen  250,  620). 


Wie  das  Programm  arbeitet 


Abschließend  soll  der  Ablauf  von 
RANDO  detailliert  angesprochen  wer¬ 
den.  Die  Erläuterung  ist  so  aufgebaut, 
daß  auf  die  wichtigsten  Passagen 
durch  Angabe  der  Zeilennummer  in 
Listing  1  Bezug  genommen  wird. 


10  bis  70: 

Initialisation  des  Programms  (Start¬ 
adresse,  Cursor  Home,  Variablenini¬ 
tialisation). 

80  bis  750: 

Körper  der  Endlosschleife,  dabei: 

80  bis  120: 

Generieren  jeweils  eines  der  4  Pfeil¬ 
symbole  von  RANDO  aus  einer 
Zufallszahl  und  speichern  in  der  Va¬ 
riablen  "ARROW”. 

130  bis  230: 

Ermitteln,  in  welche  Richtung  der 
Pfeil  zeigt  und  Aufruf  eines  rich¬ 
tungsabhängigen  Unterprogramms 
("UP,  DOWN,  LEFT,  RIGHT”).  Das 
entsprechende  Unterprogramm  be¬ 
stimmt  die  neuen  Koordinaten  für 
den  auszugebenden  Pfeil  ("XPOS, 
YPOS”). 

240  bis  380: 

Ausgeben  des  Pfeils  auf  der  angege¬ 
benen  Position  (RANDO). 

390  bis  600: 

Generieren  einer  Cursorposition  per 
Zufallszahl  ("ERAX,  ERAY"). 

610  bis  740: 

Ausgeben  eines  "Blank”  auf  dieser 
Cursorposition  (ein  GAPPY). 

750: 

Das  Ganze  von  vorn. 

760  bis  840: 

Unterprogramm  ”UP”: 

RANDO  eine  Position  nach  oben  be¬ 
wegen,  dabei  Faltung  des  Randes 
berücksichtigen. 

850  bis  930: 

Unterprogramm  "DOWN”,  analog 
zu  ”UP". 

940  bis  1020: 

Unterprogramm  ”LEFT”  analog  zu 
”UP”. 

1030  bis  1110: 

Unterprogramm  "RIGHT”,  analog 
zu  ”UP”. 

1120  bis  1160: 

Der  Variablenspeicher. 

1170: 

END-Direktive.  Sagt  dem  Assembler, 
daß  der  Code  hier  zu  Ende  ist.  Die 
END-Angabe  ist  wichtig,  wenn 
Programmlängen  mit  Floppy-Block- 
längen  zusammenfallen  und  sollte 
bei  allen  Assemblerprogrammen  ein¬ 
gegeben  werden. 

Das  nächste  Mal  beschäftigen  wir 
uns  mit  folgenden  Problemen: 

-  Wie  mache  ich  mir  die  Firmware 
des  eingebauten  BASIC  unter 
CP/M  zunutze. 

-  Wie  empfange  ich  Zeichen  von  der 
Tastatur. 

Im  konkreten  Beispiel  werden  wir  zu 
diesem  Zweck  an  RANDO  "weiter¬ 
stricken”. 

Dipl.  Ing.  H.  Bruhns 


68  CPC  9  ’86 


Da  sollte 
dann  auch 
gute  CPC-Soflware 
unter  DM  100,-  kosten! 


PROFIMAT 

Bei  der  Programmierung  von  zeitkritischen 
Routinen  kommt  man  häufig  nicht  um  die 
Maschinensprache  herum.  Damit  die  Kodierung 
nicht  unnötig  erschwert  wird,  gibt  es  PROFIMAT 
CPC,  einen  Assembler,  der  das  Arbeiten  durch 
den  integrierten  Editor  mit  seiner  einfachen  Hand¬ 
habung  zum  Vergnügen  macht.  Dabei  sind 
schnellste  Assemblierung,  Verkettung  der  Quell¬ 
texte  und  Monitorfunktionen  nur  einige  der  her¬ 
vorragenden  Punkte  des  Programmes. 

Mit  deutschem  Handbuch  erhältlich  für  nur 


DM 


99,- 


DATAMAT 


Die  CPC-Version  von  Deutschlands  meist- 
gekaufter  Dateiverwaltung,  jetzt  wesentlich 
schneller  und  noch  komfortabler  durch  Verbesse¬ 
rung  einiger  Programmpunkte  (z.B.  Suchen- 
Funktion  jetzt  vor/rückwärts),  flexibel  durch  völlig 
frei  gestaltbare  Eingabemaske  und  universell  bei 
der  Ausgabe,  viele  Drucker  sind  ansteuerbar.  Mit 
der  Schnittstelle  zu  TEXTOMAT  CPC  erhält  der 
Anwender  eine  Dateiverwaltung,  die  in  dieser 
Preisklasse  alles  bietet. 

Mit  deutschem  Handbuch  und  Übungslektion  nur 


DM 


99,- 


PROFI 

PAIIMTER 


Das  sensationelle  Programm  zum  Malen,  Ent¬ 
werfen  und  Zeichnen  auf  CPC-Computern.  Aus¬ 
gefeilte  Maschinenprogrammierung  macht  PROFI 
PAINTER  so  schnell  und  komfortabel,  daß  das 
Programm  den  berühmten  Vorbildern  der  32-Bit- 
Welf  kaum  nachstehf  und  diese  in  manchen 
Punkten  sogar  übertrifft.  Die  einfache  Bedienung 
mit  Pull-Down-Menüs  macht  das  Programm  sehr 
übersichtlich  und  leichtverständlich.  Sensationell 


auch  der  Preis: 


DM 


99,- 


BUDGET 

MANAGER 


Die  universelle  Buchführung  sowohl  für  private 
Zwecke  als  auch  zur  Planung,  Überwachung  und 
Abwicklung  von  Budgets  jeder  Art,  Eine  Übersicht 
über  die  430  Budgetsätze  und  335  Kontensätze 
läßt  sich  in  Form  von  Tabellen  und  Grafiken  auf 
dem  Bildschirm  und  auch  auf  dem  Drucker 
erreichen.  Volle  Menüsteuerung  erleichtert  die 
Arbeit  mit  dem  Programm. 

Mit  deutschem  Handbuch  für  nur 


DM 


DATA  BECKER 

Merowingerstr.  30  ♦  4000  Düsseldorf  Tel.  (0211)  31 0010 


MATHEMAT 


MATHEMAT  beschäftigt  sich  mit  der  Geometrie 
und  Algebra  sowie  mit  der  Kurvendiskussion  und 
ist  damit  ein  hervorragendes  Hilfsmittel  für 
Schule,  Beruf  und  Studium.  Mit  MATHEMAT  kön¬ 
nen  Sie  beliebige  Funktionen  ableifen,  integrieren 
und  zeichnen  lassen.  Weitere  Programmteile  sind 
der  Taschenrechner  und  der  Geometrie/ Algebra- 
Teil,  in  dem  Sie  Flächen-  und  Körperberechnun¬ 
gen  durchführen  können.  Die  gängigsten  Drucker 
können  im  Programm  angepaßt  werden. 
MATHEMAT  CPC  mit  Handbuch  für  nur 


DM 


99,- 


TEXTOMAT 


Ein  modernes,  leicht  zu  bedienendes  Textverar¬ 
beitungsprogramm,  das  so  manchen  überlade¬ 
nen  und  komplizierten  Jexfdinosaurier"  hinsicht¬ 
lich  Bedienungskomfort  um  Längen  schlägt.  Da 
merkt  man  die  Erfahrung  von  über  50.000  ver¬ 
kauften  TEXTOMAT-Programmen  auf  den  unter¬ 
schiedlichsten  Mikrocomputern.  Durch  Ver¬ 
knüpfen  von  Texfbausfeinen  können  Schriftstücke 
flexibel  und  in  beliebiger  Größe  bearbeitet 
werden. 

Mit  deutschem  Handbuch  und  Übungslektion  nur 
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10 

ORG 

100H 

600 

STA 

(ERAX) 

20  RANDO:  MVI 

C,2 

610  ERASE: 

MVI 

C,6 

30 

MVI 

E.12 

620 

MVI 

E.31 

40 

CALL 

5 

630 

CALL 

5 

50 

MVI 

A4 

640 

MVI 

C,6 

60 

STA 

(ERAY) 

650 

LDA 

(ERAX) 

70 

STA 

(ERAX) 

660 

MOV 

E,A 

80  LOOP: 

DB 

0EDH 

670 

CALL 

5 

90 

DB 

05FH 

680 

MVI 

C.6 

100 

ORI 

0F0H 

690 

LDA 

(ERAY) 

110 

ANI 

0F3H 

700 

MOV 

E.A 

120 

STA 

(ARROW) 

710 

CALL 

5 

130 

CPI 

0F0H 

720 

MVI 

C.6 

140 

CZ 

UP 

730 

MVI 

E,16 

150 

LDA 

(ARROW) 

740 

CALL 

5 

160 

CPI 

0F1H 

750 

JMP 

LOOP 

170 

CZ 

DOWN 

760  UP: 

LDA 

(YPOS) 

180 

LDA 

(ARROW) 

770 

CPI 

1 

190 

CPI 

0F2H 

780 

JZ 

UPFOLD 

200 

CZ 

LE  FT 

790 

DCR 

A 

210 

LDA 

(ARROW) 

800 

STA 

(YPOS) 

220 

CPI 

0F3H 

810 

RET 

230 

CZ 

RIGHT 

820  UPFOLD: 

MVI 

A.25 

240 

MVI 

C,6 

830 

STA 

(YPOS) 

250 

MVI 

E,31 

840 

RET 

260 

CALL 

5 

850  DOWN: 

LDA 

(YPOS) 

270 

MVI 

C,6 

860 

CPI 

25 

280 

LDA 

(XPOS) 

870 

JZ 

DOFOLD 

290 

MOV 

E.A 

880 

INR 

A 

300 

CALL 

5 

890 

STA 

(YPOS) 

310 

MVI 

C.6 

900 

RET 

320 

LDA 

(YPOS) 

910  DOFOLD: 

MVI 

A4 

330 

MOV 

EA 

920 

STA 

(YPOS) 

340 

CALL 

5 

930 

RET 

350 

MVI 

C.2 

940  LEFT: 

LDA 

(XPOS) 

360 

LDA 

(ARROW) 

950 

CPI 

1 

370 

MOV 

EA 

960 

JZ 

LEFOLD 

380 

CALL 

5 

970 

DCR 

A 

390 

HLT 

980 

STA 

(XPOS) 

400 

DB 

0EDH 

990 

RET 

410 

DB 

05FH 

1000  LEFOLD: 

MVI 

A.79 

420 

MOV 

BA 

1010 

STA 

(XPOS) 

430 

SU1 

26 

1020 

RET 

440 

JM 

YOK 

1030  RIGHT: 

LDA 

(XPOS) 

450 

JMP 

XVAL 

1040 

CPI 

79 

460  YOK: 

MOV 

A.B 

1050 

JZ 

RIFOLD 

470 

CPI 

0 

1060 

INR 

A 

480 

JZ 

XVAL 

1070 

STA 

(XPOS) 

490 

STA 

(ERAY) 

1080 

RET 

500  XV AL:  HLT 

1090  RIFOLD: 

MVI 

A.l 

510 

DB 

0EDH 

1100 

STA 

(XPOS) 

520 

DB 

05FH 

1110 

RET 

530 

MOV 

BA 

1120  YPOS: 

DS 

1:Y- POSITION  CURSOR 

540 

SUI 

80 

1130  XPOS: 

DS 

LX-POSITION  CURSOR 

550 

JM 

XOK 

1140  ARROW: 

DS 

EZEICHEN 

560 

JP 

ERASE 

1150  ERAY: 

DS 

EY-POSITION  ERASER 

570  XOK: 

MOV 

AB 

1160  ERAX: 

DS 

LX-POSITION  ERASER 

580 

CPI 

0 

1170 

END 

590 

JZ 

ERASE 
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III . Illllllllll . 1 1 1 1 1 1 1 1 1 1 1 1 . Illllllllll . . . . . . . Illlllllllll  Kurse . 


Basic-Kurs 


Endlich  ist  es  soweit.  Wir  sind  beim 
(vorerst)  letzten  Teil  unseres  Basic- 
Kurses  angelangt. 

In  diesem  letzten  Modul,  welches  Sie 
in  Listing  2  finden,  geht  es  nur  noch 
um  die  Ausgabe  der  Adressen  im 
Aufkleber-Format  auf  Drucker. 

Um  diese  Routine  noch  ein  wenig 
komfortabler  zu  gestalten,  wurde  die 
Möglichkeit  eingebaut,  von  einer  be¬ 
stimmten  Adresse  bis  zu  einer  festge¬ 
legten  Endnummer  zu  drucken.  So 
lassen  sich  auf  bequeme  Weise  be¬ 
stimmte  Adressblöcke  ausdrucken. 
Das  Format  der  Adressaufkleber  ist 
lediglich  von  Zeile  5130  abhängig,  in 
der  die  Leerschritte  zwischen  den 
Aufklebern  gemacht  werden.  Sollten 
Sie  ein  anderes  Format  verwenden,  so 


geben  Sie  einfach  noch  ein  paar 
PRINT-Anweisungen  mehr  ein. 
Knackpunkt  der  Routine  ist  die 
PRINT-Anweisung  auf  Stream  8. 
Wie  Sie  sich  bestimmt  noch  an  den 
letzten  Kurs  erinnern  können,  in  dem 
alle  vom  Programmierer  benutzba¬ 
ren  Streams  angesprochen  werden 
können,  gelten  hier  die  gleichen  Be¬ 
dingungen  wie  für  Kanal  9.  Aller¬ 
dings  ist  der  Kanal  8  nur  zur  Ausgabe 
bestimmt  und  kann  in  Verbindung 
mit  INPUT  nicht  genutzt  werden. 
Die  Routine  braucht  hoffentlich 
nicht  dokumentiert  werden. 

Vielleicht  wäre  es  ein  ganz  guter  An¬ 
fang  für  "Basic  für  Fortgeschrittene", 
wenn  Sie  sich  mal  überlegen  würden, 
wie  man  die  Druckroutine  noch  ver¬ 


bessern  könnte,  z.B.  Mehrspalten¬ 
druck  usw„  und  mir  diese  Vorschläge 
zuschicken  könnten. 

Sicherlich  finden  Sie  in  Zukunft 
noch  einige  Verbesserungen  unserer 
recht  schnellen  und  komfortablen 
Adressverwaltung  auf  den  Leserbrief¬ 
seiten. 

Ich  hoffe,  der  Kurs  hat  Ihnen  Spaß  ge¬ 
macht  und  Ihnen  die  Grundzüge  der 
Basic-Programmierung  vermittelt. 
Sicherlich  sehen  wir  uns  bald  in 
einem  Fortgeschrittenen-Kurs  wieder. 
Zum  Abschluß  erhalten  Sie  in  Listing  1 
noch  einmal  die  komplette  Adress¬ 
verwaltung. 

Viel  Spaß,  auch  in  Zukunft,  mit 
Ihrem  CPC  wünscht  Ihnen  Ihr 

(TM). 


10  REM  *•*•»**•********•*•***** 

20  REM  *  CPC  BASICKURS 

30  REM  •  ADRESS  -VERWALTUNG  * 

40  REM  *  MODUL  0  :  HAUPTMENUE  * 

50  REM  ****•*•*****•••••«****** 

60  REM 
70  MODE  1 

80  DIM  ADR $(100,8) 

90  REM 


100 

110 

CLS 

PRINT"  CPC  BASICKURS  ADRESSVERWALTUNG  1 

TVT>  TTvT Oll* 

130 

PRINT: PRINT" 

HAUPTMENUE" 

131 

140 

PRINT : PRINT : PRINT 
PRINT: PRINT" 

tl  1 

ERFASSEN" 

150 

PRINT: PRINT" 

[21 

SUCHEN/AENDERN' 

160 

PRINT: PRINT" 

13) 

DATEN  SICHERN" 

170 

PRINT: PRINT" 

[4] 

DATEN  LADEN" 

180 

PRINT: PRINT" 

151 

DRUCKEN" 

190 

A$=INKEY$ : IF  A$=""  TUEN  GOTO  190 

200 

IF  VAL(A$)  <1  OR  VAL ( A$ ) >5 

THEN  190 

210 

IF  A$="1 "  THEN  GOSUB 

1000 

220 

IF  A$="2"  THEN  GOSUB 

2000 

230 

IF  A$=" 3"  THEN  GOSUB 

3000 

240 

IF  A$="4"  THEN  GOSUB 

40  00 

250 

IF  Ä$="5"  THEN  GOSUB 

5000 

260 

270 

GOTO  1 00 

REM  ******•******•**' 

280 

REM  •  ENDE  MODUL  0 

* 

290 

REM  *»*****•****•*••■ 

1000  CLS 

1010  PRINT"  ADRESSEN  EINGEBEN  ADRESSE  :";LF 
D 

1020  PRINT" - 


1030  LOCATE  2,4: PR INT” NAME 
1040  LOCATE  2 , 6 : PRINT" VORNAME : " 
1050  LOCATE  2 , 8 : PRINT" STRASSE : " 
1060  LOCATE  2 , 1 0 : PRINT"HSNR. 

1070  LOCATE  2 , 1 2 : PRINT" PLZ . 

1080  LOCATE  2,14: PRINT"UOHNORT: " 
1090  LOCATE  2,16: PRINT"TEL-NR. : " 
1100  LOCATE  2, 18: PR INT "BEMERK.:" 
1110  PRINT: PR INT" - 


1120  XP=1 2 :YP=4:ML=10: LOCATE  XP,YP:PRINT  STRINGS (M 
L,".") 

1130  XP=1  2  :YP  =  6:11L=10:  LOCATE  XP,YP:PRINT  STRING$  (f! 
L,'\") 

1140  XP= 1 2 : YP=8 : ML= 10: LOCATE  XP,YP:PRINT  STRINGS (M 

L ,  "  .  "  ) 

1150  XP=12: YP=10:ML= 4: LOCATE  XP,YP: PRINT  STRINGS (M 
L,".") 

1160  XP=12: YP=1 2 :ML=4: LOCATE  XP,YP: PRINT  STRINGS (M 
L,".") 

1170  XP=1  2  :  YP=1  4  :1IL=1  0  :  LOCATE  XP,YP:PRINT  STRINGS( 
ML,".") 

1180  XP= 1 2 : YP= 1 6 : ML= 1 5 ; LOCATE  XP,YP: PRINT  STRINGS ( 


ML,".") 

1190  XP=1 2 : YP=1 8 :ML=20 : LOCATE  XP,YP:PRINT  STRING$( 
ML,".") 


1200  FELD=1 :XP=12:YP=4:ML=10:GOSUB  1510 
1210  IF  ER=0  TUEN  ADR $ (LFD, FELD) =AN$ 

1220  IF  ER=1  TUEN  GOTO  1200 

1230  FELD=2 : XP= 1 2 : YP=6 ;ML=1 0 : GOSUB  1510 

1240  IF  ER=0  TUEN  ADR$ (LFD , FELD) =AN$ 

1250  IF  ER=1  THEN  GOTO  1230 

1260  FELD=3 : XP=1 2 : YP=8 : ML=1 0 : : GOSUB  1510 

1270  IF  ER=0  TUEN  ADR $( LFD, FELD ) =AN$ 

1280  IF  ER=1  THEN  GOTO  1260 
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Kurse1 


um 


. . . . . . iiiiiiiiiiii . um . mummi 


mm . .  . . 


1290  FELD=4 : XP=1 2 : YP=1 0 :ML=4 : GOSUB  1510 
1300  IF  ER=0  TUEN  ADR $(LFD, FELD )=AN$ 

1310  XF  ER=1  TUEN  GOTO  1290 

1320  FELD=5 : XP=1 2 : YP=1 2 : HL=4 : GOSUB  1510 

1330  IF  ER  =  Ö  TUEN  ADR  $ { LFD , FELD ) = AN  $ 

1340  IF  ER=1  THEN  GOTO  1320 

1350  FELD=6 : XP=1 2 : YP=1 4 :ML=1 0 :  GOSUB  1510 

1360  IF  ER=0  THEN  ADR $( LFD, FELD ) =AN$ 

1370  IF  ER=1  THEN  GOTO  1350 

1380  FELD=7 : XP=1 2 : YP=1 6 : ML=1 5 : GOSUB  1510 

1390  IF  ER  =  0  THEN  ADR  $ ( LFD , FELD ) =AN  $ 

1400  IF  ER=1  THEN  GOTO  1380 

1410  FELD=8 :XP=1 2 : YP=1 8 :ML=20 : GOSUB  1510 

1420  IF  ER=0  THEN  ADR $ (LFD, FELD ) =AN$ 

1430  IF  ER=1  THEN  GOTO  1410 
1440  LFD=LFD+1 

1  450  LOCATE  10,22:  PRINT" WEITER  ERFASSEN  [J/N  I  " 

1460  A$=INKEY$ : IF  A$=""  THEN  1460 
1470  IF  UPPER$ ( A$ ) =" J"  THEN  1000 
1480  IF  UPPERS (A$ ) ="N"  TUEN  RETURN 
1490  GOTO  1460 

1500  '  SUBROUTINE  FUER  EINGABE  ERSTE  VERSION 
1510  LOCATE  XP , YP: LINE  INPUT"" ;AN$ 

1520  ER=0 : IF  LEN  ( AN$ )  >  ML  THEN  LOCATE  Xr,YP:PRIN 
T  STRINGS (ML, " . " ) : ER  =  1  :  RETURN 
1530  RETURN 
2000  CLS 

2010  PRINT"  ADRESSEN  SUCHEN  /  AENDERN" 

2020  PRINT" - 


2030  LOCATE  2, 4: PRINT" [1]  NAME 
E" 

2040  LOCATE  2 , 6 : PRINT" [ 3 )  STRASSE 
MMER" 

2050  LOCATE  2 , 8 : PRINT" [ 5 ]  PLZ 

rp«l 

2060  LOCATE  2 , 1  0 : PRINT" [ 7 )  TEL. NR. 
KUNG" 

2070  LOCATE  2,12:PRINT"  [9 

2080  PRINTrPRINT" - 


[ 2  J  VORNAN 
14)  HA US NU 
{ 6 ]  WOHNOR 
f  8 )  BEMER 
J  HAUPTMENU E" 


2090  PRINT"BITTE  SUCHFELD  WAEHLEN  [  1  -  9  1  '* 

2100  WAHL  $ = INKEY  $ : I F  WAHL$  =  ""  THEN  2100 
2110  IF  VAL {WAHL? )  <1  THEN  GOTO  2100 
2120  IF  VAL ( WAHL $ )  >9  THEN  GOTO  2100 
2130  IF  VAL (WAHL $ )  =  9  TUEN  RETURN 
2140  FELDNR  =  VAL (WAHL$ ): GOSUB  2200:RETURN 
2150  GOTO  2100 

2200  XP=2: YP=1 8 :ON  FELDNR  GOTO  2210,2210,2210,2240 
,2240,2210,2270,2300 

2210  ML=10: LOCATE  XP,YP: PRINT  STRINGS ( ML GOSU 
B  1510 

2220  IF  ER=0  TUEN  SUCH$=AN$ : GOTO  2330 
2230  IF  ER=1  THEN  GOTO  2210 

2240  ML=4 : LOCATE  XP,YP:PRINT  STRING? (ML, GOSUB 
1510 

2250  IF  ER=0  TIIEM  SUC1I$= ANS :  GOTO  2330 
2260  IF  ER=1  THEN  GOTO  2240 

2270  ML=1 5 : LOCATE  XP,YP:PRINT  STRINGS (ML, GOSU 
B  1510 

2280  IF  ER=0  TUEN  SUCH$ = ANS : GOTO  2330 
2290  IF  ER=1  TUEN  GOTO  2290 

2300  ML=20 : LOCATE  XP,YP:PRINT  STRINGS (ML, GOSU 
B  1510 

2310  IF  ER=0  THEN  SUCH$=  ANS -.GOTO  2330 
2320  IF  ER=1  THEN  GOTO  2300 
2330  SUCHLANG=LEN ( SUCH? ) 

2340  FOR  SCAN  =  0  TO  LFD 

2350  SCAN$=LEFT$ (ADR$(SCAN, FELDNR) , SUCHLAMG ) 

2360  IF  UPPERS (SUCH$)=UPPER$ (SCANS)  THEN  GOTO  2400 
2370  NEXT  SCAN 

2380  PRINT  :PRINT"NICIIT  GEFUNDEN  [ TASTE ]": CALL  SBB0 
6 : GOTO  2000 
2400  CLS 

2410  PRINT"GEFUNDEN  :  ADRESSE  NUMMER  ";SCÄN:PRINT 
2420  PRINT"  1  :  NAME  ADR $ (SCAN , 1 ) 

2430  PRINT"  2  :  VORNAME: "j ADR $ (SCAN, 2 ) 

2440  PRINT"  3  :  STRASSE: "; ADR $ (SCAN, 3 ) 

2450  PRINT"  4  :  HS NR .  : " ; ADR$ (SCAN, 4 ) 

2460  PRINT"  5  :  PLZ.  :  ",*  ADR$  (SCAN,  5  ) 

2470  PRINT"  6  :  WOHNORT: " ; ADR$ (SCAN, 6 ) 

2480  PRINT"  7  :  TEL-NR. : " ; ADR$ ( SCAN, 7 ) 

BEMERK. ADR $( SCAN, 8) 


2490  PRINT"  8 
2500  PRINT: PRINT"  t V7 )  EITER  (A)  ENDERN 


IM]  ENUE 


2510  ABF$  =  INKEY  $ : IF  ABF$  =  " "  THEN  2510 
2520  IF  UPPERS  (ABF$  )="(?"  THEN  2370 
2530  IF  UPPERS ( ABFS )="A"  TUEN  2600 
2540  IF  UPPERS ( ABFS )="M"  THEN  RETURN 


2550  GOTO  2510 

2600  REM  HIERHIN  KOMMT  MODUL  (AENDERN] 

2610  LOCATE  1,14:PRINT"  WELCHEN  EINTRAG  AENDERN  (1 

...8]" 

2620  ABF$=INKEY$ :IF  ABF$=""  TUEN  2620 

2630  IF  VAL( ABFS ) < 1  OR  VAL(ABF$)>8  THEN  2620 

2640  XP=2: YP=1 6 

2650  ON  VAL ( ABFS )  GOTO  2660,2660,2660,2690,2690,26 
60,2720,2750 

2660  ML=  10:  LOCATE  XP,YP:PRINT  STRINGS  (ML, 11 ):  GOSU 
B  1  510 

2670  IF  ER=0  THEN  ADR $ (SCAN, VAL ( ABFS )) =AN$ : GOTO  24 
00 

2680  IF  ER=1  TUEN  GOTO  2660 

2690  ML= 4: LOCATE  XP,YP:PRINT  STRINGS (ML ,"."): GOSUB 
1510 

2700  IF  ER=0  TUEN  ADR ${ SCAN, VAL (ABF$ )) =AN$ : GOTO  24 
00 

2710  IF  ER=1  TUEN  GOTO  2690 

2720  ML=1 5: LOCATE  XP,YP: PRINT  STRINGS (ML ,"."): GOSU 
B  1510 

2730  IF  ER=0  THEN  ADR$ (SCAN, VAL ( ABF$ )) =AN$ :GOTO  24 
00 

2740  IF  ER=1  THEN  GOTO  2720 

2750  ML=20: LOCATE  XP,YP: PRINT  STRINGS (ML ,"."): GOSU 
B  1510 

2760  IF  ER=0  THEN  ADR $ (SCAN, VAL ( ABF$ )) =AN$ : GOTO  24 
00 

2770  IF  ER=1  THEN  GOTO  2750 
3000  CLS 

3010  LOCATE  10,10 

3020  PRINT"DArEN  SICHERN" 

3030  OPENOUT  "adress.dat" 

3040  PRINT#9 , lfd 
3050  FOR  feld  =  0  TO  lfd 
3060  FOR  adress  =  1  TO  8 
3070  PRINT//9  ,adr$  (  feld , adress  ) 

3080  NEXT  adress 


3090  NEXT  feld 
3100  CLOSEOUT 
3110  RETURN 
4000  CLS 

4010  LOCATE  10,10 

4020  PRINT"DATEN  LADEN  " 

4030  OPEN IN  "adress.dat" 

4040  INPUT#9 , lfd 

4050  FOR  feld  =  0  TO  lfd 

4060  FOR  adress  =  1  TO  8 

4070  LINE  INPUT#9,adr$( feld, adress) 

4080  NEXT  adress 


4090  NEXT  feld 
4100  CLOSEIN 
4110  RETURN 
5000  CLS 

5010  INPUT  "AB  ADRESSE  DRUCKEN  (ENTER)  =START" ; AB$ 
5020  VON  =VAL(AB$) 

5030  IF  ABS=""  THEN  VON=0 
5040  PRINT: 

5050  INPUT  "BIS  ADRESSE  DRUCKEN  (ENTER!  =ENDE" ; AB$ 
5060  BIS  =VAL ( AB$ ) 

5070  IF  AB$=""  THEN  BIS=LFD 
5080  IF  BIS  >LFD  THEN  BIS  =LFD 
5090  FOR  T  »VON  TO  BIS 
5100  FOR  X  =  1  TO  8 
5110  PRINT//8  ,  ADRS  (T,X) 

51 20  NEXT  X 
5130  PRINT#8 :  PRINT//8 
51 40  NEXT  T 
5150  RETURN 


5000  CLS 

5010  INPUT  "AB  ADRESSE  DRUCKEN  (ENTER]  =START" ; ABS 
5020  VON  =VAL(AB$) 

5030  IF  AB$=""  THEN  VON=0 
5040  PRINT: 

5050  INPUT  "BIS  ADRESSE  DRUCKEN  [ENTER]  =ENDE" ; AB$ 
5060  BIS  =VAL(AB$) 

5070  IF  AB$=""  THEN  EIS=LFD 
5080  IF  BIS  >LFD  THEN  BIS  =LFD 
5090  FOR  T  =VON  TO  BIS 
5100  FOR  X  =  1  TO  8 
5110  PRINT, t  8  ,  ADRS  ( T ,  X ) 

5120  NEXT  X 
5130  PRINTÄS8:PRIFm'8 
5140  NEXT  T 
5150  RETURN 
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5  JOYCE-PROFI-PROGRAMME I 


5  Punkte  die  für  ALGO-SOFT-PROGRAMME  sprechen: 


a  Extrem  ^ 

Verständlich  geschriebenes,  j 

Von  Praktikern 

a  Sehr  hohe  | 

■■  Anwendungs- 

einfache 

J  ausführliches  und 

<  für  die  Praxis  ^ 

0  Verarbeitungs-  • 

^  sicher  durch 

1  ■  Bedienung!  1 

^  ■  deutsches  Handbuch !  ^ 

J  m  entwickelt ! 

T  ■  geschwindigkeit !  > 

Praxistests! 

NEU  H  NEU  NEU  NEU  Mi  NEU 


ALGO-RHYTHMUS I 


•  Adressen-Briefverwaltungsprogramm 

•  Unbegrenzte  Adressenzahl  speicherbar 

•  Adressen  mischen  mit  Einzel-  und  Gruppenbriefen 

•  15  individuelle  Anreden  pro  Adresse 

•  Diverse  Schriftarten 

•  Etikettendruck 

•  Einzelblatt  und  Endlos 


ALGO-KART I 


•  Freies  Dateiverwaltungsprogramm 

•  Maximal  100  Felder.  Jedes  Feld  kann  beliebig  lang 
gewählt  werden 

•  Maximal  1.500  Zeichen  pro  Datensatz 

•  Masken  frei  erstellbar 

•  Suchen  und  Sortieren  nach  jedem  Feld 


ALGO-HAUSI  I  ALGO-HANDWERK I 


•  Professionelles  Programm  zur  Haus-  und 
Wohnungsverwaltung 

•  ca.  100  Mieter  pro  Haus  verwalten 

•  Beliebig  viele  Häuser  verwalten 

•  Sämtliche  Mieterdaten  verwalten 

•  Komplette  Buchhaltung 

•  Jahresabrechnung  erstellen 

•  Heizkostenabrechnung  erstellen 

•  Bankeinzüge,  Überweisungen 

•  Automatisch  oder  individuell  Mahnungen  schreiben 


•  Professionelles  Programm  zur  Erstellung  von 
Angeboten ,  automatische  Kalkulation  und 
Errechnung 

•  Vor-  und  Nachkalkulation: 

Einzel-  und  Arbeitspreise  aus  den  Faktoren 
Materialeinkauf,  Verbrauch,  Stundenlohn  und  Stunden¬ 
leistung  blitzschnell  kalkulieren 

•  200  Standartleistungstexte  (Bausteine) 
individuell  erstellbar 

•  Textausdruck  ohne  Preis  (Blankettendruck) 

•  Leistungsbeschreibung  mit  Zeitvorgabe 

•  Nachträgliches  Einfügen  und  Löschen  von  Positionen 

•  Automatische  Rechnungserstellung  aus  Angeboten 


ALGORHYTHMUS  I  149,- DM  ALGO-KART  I  79,- DM 

ALGO-HAUSI  998,- DM  ALGO-HANDWERK I  998,-  DM 

ALGO-SOFT-PROGRAMME  erhalten  Sie  bei  ALGO  oder  Ihreirr  Schneider-Fachhändler 


Vorankündigung  -  demnächst  von  ALGO  lieferbar! 

ALGO-Justizia  I  —  professionelles  Programm  für  Rechtsanwälte,  Mahn-  und  Vollstreckungswesen  inkl.  BRAGO  +  GKG. 
ALGO-GoA  —  professionelles  Programm  für  Arzte,  Privatliquidation  für  niedergelassene  Arzte. 

-  Ausschneiden  und  auf  Postkarte  kleben!  - 

TI  Hiermit  bestelle  ich  per  Nach  nah  me  A/orkasse 
□  Senden  Sie  mir  bitte  ausführliche  Program mbeschreibung 
für _ 

Name _ . 


A.H.W.  Gosch  oHG 

Grindelallee  138  •  2000  Hamburg  13  •  *©040/446301 


Vorname 

Wohnort 

Straße 


Datum,  Unterschrift 


Auslandssendungen  nur 
gegen  Vorkasse.  Alle 
Preise  verstehen  sich  inkl 
14%  MwSt  und  zzgl  DM 
5,-  tur  Porto  und  Ver¬ 
packung  Alle  Preise  sind 
unverbindliche  Preisemp¬ 
fehlungen 


Bücher 


IIIIIMIIIIIIIIIIIIIIII 


1 1 1 1 1  . . . . . mm 


MarM&Tfechnik  I 


Schneider  CPC 
Grafik- 

Programmierung 

Ofe  ftBsnterende  Well  der  Grtrflh. 

«WQri  an  whltmchen  AnwendungsOeiipieten 
Mit  vielen  Tics  » tncta 
■AS&Sefehlwrwerttrung  •  Senta 
•  Hartkopy-Boulmen 


Straush 

Schneider  CPC 

464/664/6128 

Grafik-Programmierung 

Markt  &  Technik  1986 

225  Seiten 

ISBN  3-89090-182-4 

Preis:  46,-  DM 


Die  Grafik- Programmierung 
der  Schneider  Rechner  ist 
nicht  nur  eine  beliebte,  in 
Einzelfällen  auch  eine  sehr 
diffizile  Anwendung.  Das 
vorliegende  Buch  beschreibt 
in  sehr  ausführlicher  und 
leicht  verständlicher  Form 
die  Grundzüge  der  Grafik¬ 
programmierung  und  gibt 
einen  Überblick  über  die 
vielfältigen  Anwendungs¬ 
möglichkeiten  auf  den 
Schneider  CPC’s. 

Die  behandelten  Themen 
reichen  vom  Erstellen  einer 
einfachen  Blockgrafik  bis 
hin  zu  einem  komfortablen 
Sprite-Generator. 

Die  im  Buch  befindlichen 
und  gut  dokumentierten  Pro¬ 
gramme  (z.B.  Malprogramm. 
Hardcopy,  grafische  Statistik 
etc.)  sind  zum  Großteil  in 
Basic  gehalten,  wobei  aller¬ 
dings  einige  Routinen  als 
RSX-Befehle  eingebunden 
werden.  So  erhält  der  Leser 
neben  Grundlagen  und  Pro¬ 
grammen  zur  Grafikpro¬ 
grammierung  auch  eine  an¬ 
sehnliche  Zahl  von  RSX- 
Befehlsfolgen,  die  später  in 
eigene  Programme  einge¬ 
bunden  werden  können. 
Ein  empfehlenswertes  Buch, 
wenn  man  sich  auch  für  die 
Grundlagen  der  Grafikpro¬ 
grammierung  interessiert. 
Übrigens  sind  alle  Program¬ 
me  auch  auf  Datenträger 
beim  Verlag  erhältlich. 


Herschel/Pieper 

Pascal  und  Pascal-Systeme 

Oldenbourg-Verlag  1985 

5.  Auflage 

303  Seiten 

ISBN  3-486-23685-7 

Preis:  34,80  DM 

Dieses  Werk  versteht  sich 
nicht  als  Lehrbuch  der  Pas¬ 
cal-Programmierung,  son¬ 
dern  gibt  eine  umfassende 
und  systematische  Darstel¬ 
lung  von  Pascal  für  den  An¬ 
wender  wieder. 

So  werden  die  typischen 
Sprachelemente  von  Pascal 


abgehandelt  und  mit  zahl¬ 
reichen  Beispielen  die  Ar¬ 
beitsweise  verdeutlicht.  Das 
zweite  Kapitel  beschäftigt 
sich  mit  Pascal-Systemen, 
hier  sind  die  wesentlichen 
Systemfunktionen  für  Her¬ 
stellung  und  Verwaltung  von 
Programmtexten,  Überset¬ 
zung,  Modularisierung  etc. 
dargestellt. 

Dieses  Buch  eignet  sich  sehr 
gut  zum  Selbststudium,  ist 
aber  auch  als  Nachschlage¬ 
werk  für  grundlegende  Ei¬ 
genschaften  von  Pascal  emp¬ 
fehlenswert. 


Möller 

LOGO 

Hevne  Taschenbuchverlag 
1986, 

267  Seiten, 

ISBN  3-453-47063-x 
Preis:  DM  14,80 

LOGO  ist  eine  speziell  für 
den  Computer-”Neuling” 
konzipierte  Sprache,  die  so¬ 
wohl  die  interaktive  Nut¬ 
zung  erlaubt  -  auf  den  ein¬ 
gegebenen  Befehl  reagiert 


der  Rechner  sofort  -  wie 
auch  das  Verfassen  kom¬ 
plexer  Programmsysteme. 
Im  Gegensatz  zu  Basic,  Pas¬ 
cal  und  anderen  Hochspra¬ 
chen,  können  in  LOGO  des¬ 
halb  die  neu  erlernten 
Funktionen  sofort  im  Dia¬ 
log  ausprobiert  werden,  oh¬ 
ne  erst  mit  der  Befehlssyntax 
oder  größeren  Teilen  des 
Befehlsumfangs  vertraut  zu 
sein. 

Und  -  ganz  anders  als  in 
Basic  -  ist  in  LOGO  die  pro- 
zeduale  Programmierung 
möglich,  die  die  Zergliede¬ 
rung  eines  größeren  Pro¬ 
blems  in  kleine  Bausteine 
ermöglicht,  die  -  nach  ein¬ 
maliger  Definition  -  von 
verschiedenen  Programm¬ 
systemen  verwendet  werden 
können.  Möllers  Einfüh¬ 
rung  macht  nicht  nur  mit 
den  Graphik-  und  Trick- 
filmeigensch  alten  von  LO¬ 
GO  vertraut  und  erläutert 
die  Handhabung  von  Zah¬ 
len,  Wörtern  und  Listen, 
sondern  gibt  speziell  Lehr¬ 
ern  zahlreiche  Tips  zur 
Hand,  die  ihnen  den  Unter¬ 
richt  mit  LOGO  erleichtern 
sollen  (Anne  Möller  selbst 
ist  Pädagogin). 

Durch  die  Anwendungsbei¬ 
spiele  und  eine  abschließend 
abgedruckte  Baustein-Bib¬ 
liothek  ist  der  Band  jedoch 
auch  für  den  Selbstunter¬ 
richt  sehr  geeignet.  (WUE) 


Pohle 

Praktikable  Datensicherung 
bei  Kleincomputern 
Datakontext  Verlag  1985, 
156  Seiten, 

ISBN  3-921899-77-x 
Preis:  DM  38,- 

Datenverlust  ist  so  ziemlich 
das  schlimmste,  was  einem 
Programmierer  passieren 
kann. 

Dabei  spielt  es  keine  Rolle, 
mit  welcher  Sorte  Computer 
gearbeitet  wird.  Datenver¬ 
lust  ist  immer  schmerzlich. 
Für  alle  Rechner  gilt  es  also, 
im  täglichen  Gebrauch  eine 
größtmögliche  Datensicher¬ 
heit  zu  gewährleisten. 

In  diesen  Bereich  fällt  u.a. 
auch  der  Zugriffsschutz  für 
vertrauliche  Informationen. 
Der  Autor  zeigt  in  diesem 


Buch  einige  Wege  auf,  w'ie 
Datensicherung  auf  ver¬ 
schiedenen  Computerarten 
verwirklicht  werden  kann 
und  gibt  auch  gleich  einige 
Beispiele  dazu. 

Dennoch  kann  der  private 
Anwender  nicht  allzuviel, 
außer  den  theoretischen 
Grundlagen  natürlich,  für 
sein  System  nutzen  Die  Ziel¬ 
gruppen  sind  doch  eher 
Klein-  und  Mittelbetriebe. 

M.  Apfelbeck 
dBase  II  Anwendungen 
IWT- Verlag  1986, 

300  Seiten, 

ISBN  3-88322-084-1, 
Preis:  DM  56,- 

dBase  II  entwickelt  sich 
im  mer  mehr  zu  einer  belieb¬ 
ten  Programmiersprache  für 
ka  u  fmän  nische  An  wen  du  n- 
gen.  Grundlage  dieses  Bu¬ 
ches  ist  eine  vollständige 
Fakturierung,  deren  Entste¬ 
hen  vom  Papier  bis  hin  zum 
fertigen  Programm  erläutert 
wird. 

Der  Begleittext  ist  sehr  aus¬ 
führlich  und  leicht  ver¬ 
ständlich,  so  daß  auch 
dBase-Anfänger  auf  dieses 
Buch  zugreifen  können. 
Lobenswert  ist  die  Struktu¬ 
rierung  des  Buches,  die  z.B. 
alle  dBase-Befehle  nach  Auf¬ 
gabengebieten  trennt  und 
mit  sehr  praxisnahen  Bei¬ 
spielen  versieht. 

Übrigens  ist  das  erarbeitete 
Programm paket  auch  auf 
Diskette  beim  Verlag  erhält¬ 
lich;  Anfängern  sei  jedoch 
der  Weg  des  Eintippens 
nahegelegt. 

Ein  rundherum  gelungenes 
Buch,  das  die  Grundzüge 
und  Arbeitsweise  von  dBase 
praxisnah  erklärt. 


M.  Apfelbeck 


Vom  Programm 
zum  Einsatz 


SÄv73 
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Bericht' 


Ja,  ist  denn 
das  wahr? 

Meldungen 
aus  dem 
Sommerloch 


Mit  Stolz  können  wir  mitteilen,  daß  in 
diesem  Jahr  unser  Mitarbeiter  Matt¬ 
hias  Uphoff  den  begehrten  Litera¬ 
tu  rpreis  der  Gesellschaft  für  moderne 
Kunst  erhalten  hat.  In  der  Laudatio 
heißt  es:  ”Ein  geniales  Zeugnis  neo- 
dadaistischer  Sprachkultur,  in  dem 
der  Autor  durch  prägnante  Wortkür- 
zel  und  Lautbildungen  auf  eindrucks¬ 
volle  Weise  die  Zerrissenheit  und 
intellektuelle  Verwirrtheit  des  heuti¬ 
gen  Menschen  darstellt”. 

Prämiert  wurde  übrigens  ein  Assem- 
blerlisting  unseres  Mitarbeiters. 
Durch  die  wachsende  Verbreitung 
der  Schneider-Computer  und  das 
umfangreiche  Softwareangebot  fin¬ 
den  die  CPC’s  inzwischen  auch  in  der 
Geschäftswelt  zunehmendes  Inter¬ 
esse.  Gerüchte,  nach  denen  bei  Cor- 
tex  Brainware  ein  CPC-Emulator  für 
IBM-PC’s  und  Kompatible  ent¬ 
wickelt  wird,  haben  sich  allerdings 
bisher  nicht  bestätigt. 

Inzwischen  liegen  die  ersten  Reaktio¬ 
nen  englischer  Softwarehäuser  auf 


die  Indizierung  von  Computerspie¬ 
len  in  Deutschland  vor.  ”Man  freut 
sich  ja,  wenn  man  im  Gespräch 
bleibt”,  meinte  Harold  Horrible,  Chef 
der  Firma  Shocking  Blue,  und  prä¬ 
sentierte  bei  dieser  Gelegenheit 
gleich  eine  Demo-Version  des  neuen 
Arcade-Adventures  ”Edgar  Allan”, 
bei  dem  Leichenteile  eingesammelt 
werden  müssen,  um  einen  Mordfall 
zu  klären. 

Ein  anderer  Wind  weht  dagegen  in 
Frankreich.  Unter  dem  Titel  ”0  la  la!” 
wurde  von  Erreur  Informatique  ein 
pikantes  Grafik-Adventure  angekün¬ 
digt.  Es  handelt  sich  dabei  um  eine 
junge  FKK-Anhängerin,  der  beim 
Baden  an  einem  einsamen  Strand 
nicht  nur  die  Geldbörse,  sondern 
auch  die  gesamte  Bekleidung  geklaut 
wird.  Was  nun? 

Unbeeinflußt  von  Sex  and  Crime  zei¬ 
gen  sich  die  deutschen  Firmen  -  hier¬ 
zulande  wird  gearbeitet!  Ein  sensa¬ 
tionelles  Textverarbeitungsprogramm, 
das  ohne  Drucker  auskommt,  wird 
demnächst  von  der  norddeutschen 


Firma  Amsel  Division  angeboten 
werden.  Der  Anwender  braucht  nur 
einen  Bogen  des  mitgelieferten 
Spezialpapiers  vor  den  Bildschirm  zu 
halten  -  nach  kurzer  Belichtungszeit 
ist  die  um  90  Grad  gekippt  darge¬ 
stellte  Textseite  auf  dem  Papier.  Eine 
Testversion  liegt  uns  bisher  noch 
nicht  vor. 

Ein  dreibändiges  Werk  über  die 
Grundlagen  der  künstlichen  Intelli¬ 
genz  hat  der  Mark  und  Pfennig- 
Verlag  in  München  in  einer  Presser 
mitteilung  angekündigt.  Der  Autor 
muß  ohne  Zweifel  als  sehr  kompetent 
gelten:  Die  Bücher  wurden  von  einem 
CPC  6128  geschrieben. 

Wie  eine  vom  DMV-Verlag  beim 
Infas-Institut  Bad  Godesberg  in  Auf¬ 
trag  gegebene  Hochrechnung  zeigt, 
wird  der  Umfang  von  CPC  Interna¬ 
tional  bei  sich  jährlich  verdoppeln¬ 
der  Seitenzahl  im  Jahre  2000  etwa 
2.230.000  Seiten  betragen.  Das  Heft 
wiegt  dann  4915  Kilo  und  ist  82  Meter 
dick  -  über  neue  Vertriebswege  wird 
bereits  nachgedacht.  M.  Uphoff 


EPSON-Drucker 

FX-85  1329,-  FX-105  1739,- 

LQ-1500  3198.- 

JX-B0  1899,-  HI-80  1245,- 

Seikosha-Drucker 

GP-500AO.VC  538,-  GP.50MS.CPCo.AT  596.- 

3P-700A.VCo.CPC  998,-  5P800Aodarl  798.- 

SPIOOOA.ASoVC  828,-  SP1000CPC  878.- 

SP  1000  AP,  Imagewnter  kompatibel  für  Macintosh  u 
App«  llc  direkt  anschlieOb  948,- 

Panasonic 

KX-P 1090  675,-  KX-P 109!  848,- 

KX-P  1092  1068,-  KX-P  3151 1528,- 

Star-Drucker 


Qemlni  10x1 


ngenhaft«  698,- 


SG  10 

nurS89,- 

SG10C 

839,- 

SD  10 

1198,- 

SR  10 

1598,- 

SG  15 

1225,- 

SD  15 

1598,- 

SR  15 

1999,- 

Okldata  MICROLINE 

Typ  182, 183, 192, 193  Sonderpreise 

Vortex  Laufwerke  und  Karlen,  alle  Software 
vom  M  &  T  Vertag  lieferbar 


Commodore 

C 128,  PC  10,  PC  20 

Schneider  PC 

CPC -464  grün  grünem  Monitor 
CPC-464  mit  farbigem  Monitor 
Foppy- Lautwerk  3' 

Disketten  3'  f.  Schneider  CPC 
CPC-664  mit  grünem  Monitor 
CPC -664  mit  Color-Monitor 
CPC-61 28  mit  grünem  Monitor 
CPC-61 28  mit  Ctkor-Monitor 
NLQ-401  Drucker 
Joyct 

Hewlett  Packard 

HP-41CV 
HP-41CX 

Disketten  u.  Zubehör 

3'h‘  1  D  Markendiskette 
3'h  2  D  Markendiskette 
5'/i"  1  D  No  name 
5 Vr"  2  D  No  name 

Sharp 

PC  1401  215,-  PC  1402 

PCI  500  A  399,-  PC  15C0A+E1 50 

PC515P  845,-  PC  2500 


a.Antr, 

725,- 
1198,- 
725,- 
tOSl  99- 
1248.- 
1699,- 
1448,- 
1898.- 
699,- 

2098,- 

439- 

648,- 

DM/10SI 

75,- 

129,- 

23,- 

29,- 


299,- 

699,- 

780,- 


D&G  Datentechnik,  Postf .  431 ,  Bogenstr.  53,  S  02  61  /40  88  39, 5400  Koblenz 


Programmiersprache  COMAL 

Pascal  zu  kampllzlart?  Basic  zu  "alt”?  Logo  unzuralchond? 
Warum  nicht  gleich  C0MAL*80 

Diese  Sprache  ist  strukturiert,  schnell  und  modern.  Auch  Computerneuiinge  können 
schon  nach  14  Tagen  fließend  programmieren. 

COMAl-80  wird  in  verschiedenen  Bundesländern  für  den  Schulunterricht  empfohlen 
und  vielfach  in  Universitäten  eingesetzt: 

Jetzt  auch  für  alte  Schualdtr  CPC  Computer 

Diskette  COMAL-80  Version  1.83  mit  Handbuch  DM  69,— 

COMAL-80  Modul  in  Vorbereitung 

C0MAL6RUPPE-DEUTSCHLAND 

Fl.  D.  Silz,  2270  UtMtim/FSlir,  Tfll.:  045B3/5Q0  Moian  554 
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für  CPC  464  -  664  -  6128: 


Sie  haben  noch  keine  Disk  Station? 
Dann  steigen  Sie  doch  gleich  rich¬ 
tig  ein! 

Die  Kraftwerke: 

vortex  Floppy  Disk  Station  Fl  und 
Ml 


708  KiloByte  oder  1.4  MegaByte  auf  Stan¬ 
dard  5,25"  oder  3,5"  Disketten  -  damit  ha¬ 
ben  Ihre  Programme  genügend  „Auslauf". 


M1-D  3,5"  Doppelstation 


F 1  -  D  5,25"  Doppelstation 


Fantastische  Leistungsdaten: 

5,25"  oder  3,5"  Qualitätslaufwerke  mit  2 
Schreib-/Leseköpfen  und  insgesamt  160 
Spuren. 

Die  Geräte  F 1  -  S  (5,25",  708  KB)  und  M 1  -  S 
(3,5",  708  KB)  können  einfachst  durch  Ein¬ 
bau  eines  weiteren  Laufwerks  zu  den  Ge¬ 
räten  F 1  -  D  (5,25",  1.4  MB)  und  M 1  -  D  (3,5", 
1.4  MB)  erweitert  werden. 

Pro  Diskette  können  bis  zu  128  Dateien  an¬ 
gelegt  werden. 

Es  kann  zusätzlich  ein  original  Schneider 
3"  Laufwerk  angeschlossen  werden.  Da¬ 
mit  können  Sie  nach  Belieben  zwischen  3" 
und  5,25"/3,5"  kopieren. 

Es  ist  auch  ein  „gemischtes  Doppel"  erhält¬ 
lich;  vortex  FM  1:  ein  5,25"  Laufwerk  und  ein 
3,5"  Laufwerk; 


Der  Tophit  für  jeden  CPC 
(464  +  DDI-1, 664,  6128): 

1  Megabyte  =  758  DM 

Damit  präsentieren  wir  eine  professionel¬ 
le  Systemlösung  für  alle  die,  die  schon  ein 
3"  Laufwerk  haben,  aber  den  Standard 
brauchen  (Fl-X  =  5,25"  bzw.  Ml-X  = 
3,5"). 

Unsere  Formel  lautet: 

180  KB  (3")  +  708  KB  (X-System)  =  888  KB. 


FM1  5, 25"/3, 5"  Doppelstation 


Intelligente  Floppycontroller  Elek¬ 
tronik 

•  Background  ROM  Nummer  frei  einstell¬ 
bar.  Damit  wird  sichergestellt,  daß  sich 
zwei  Peripheriegeräte  nicht  „stören“. 

•  Ausführliches  deutsches  Handbuch. 


Und  damit  Sie  nicht  länger  überlegen 
müssen: 

vortex  Floppy  F 1  -  S  nno  * 

bzw.  Ml -S  DM  yyg- 

vortex  Floppy  Fl -D  1yinß  ¥ 
bzw.  M 1  -  D  DM  |4yOr 

Alle  Geräte  sind  sofort  anschlußfertig. 


1  unverbindliche  Pieisempfehlung 


Trickfoto:  X-Modul  (RS-Ausführung)  und  3"  Schneider  Con¬ 
troller 

•  Das  X-Laufwerk  ist  kein  Zweitlaufwerk, 
sondern  Ihr  Systemlaufwerk. 

•  Die  Befehle  "ICPM.l”  und  "ICPM,2"  er¬ 
möglichen  es  erstmals,  CP/M  von  bei¬ 
den  Drives  gleichberechtigt  zu  starten. 

•  Ihr  3"  Laufwerk  und  das  X-Drive  unter¬ 
scheiden  sich  zwar  wesentlich  in  Daten¬ 
dichte  und  Datenformat,  das  Kopieren 
geschieht  jedoch  so  reibungslos  und 
glatt,  als  gäbe  es  diesen  Unterschied 
nicht. 

•  Sie  wählen  per  Kommando  zwischen 
"AMSDOS”  und  "VDOS  2.0"  als  Betriebs¬ 
system  -  Sie  verfügen  über  beides  - 
nach  Ihrer  Wahl. 

•  Als  herausragende  Leistung  bietet  Ih¬ 
nen  VDOS  2.0: 

- 128  Directory  Einträge 
-  direkter  relativer  Dateizugriff  unter 


Wenn  Sie  keinen  Händler  in  der  Nähe  haben, 
rufen  Sie  doch  einfach  an! 


Zwei  professionelle  Betriebssyste¬ 
me: 

•  CP/M  2.2  und  CP/M  plus  (nur  CPC  6128) 

•  Unter  BASIC:  VDOS  2.1  -  das  vortex  Disk 
Operating  System.  Es  ist  das  Beste ... 


•  Relative  Dateiverwaltung,  es  können  bis 
zu  16  Dateien  gleichzeitig  bearbeitet 
werden. 

•  Z80  Maschinensprache  Monitor. 

•  Disketteneditor. 

•  Automatische  Formaterkennung  (Sy¬ 
stem/Data  Format)  bei  angeschlosse¬ 
nem  3"  Laufwerk, 

•  Disketten  formatieren  unter  BASIC. 


Das  3,5"  X-Laufwerk 

Das  X(RS)-Modul  erweitert  den  3"  Con¬ 
troller  um  die  Leistungsdaten  unseres 
VDOS  2.0  Betriebssystems. 


I 


BASIC.  16  Dateien  können  gleichzeitig  ge¬ 
öffnet  sein. 

-  ROM  residenter  Monitor  +  Diskeditor. 

-  mit "  I F ormat"  formatieren  Sie  direkt  unter 
BASIC. 

-  mit  ’iCode,«var»"  realisieren  Sie  einen 
Programmschutz  mit  persönlichem  Pass¬ 
wort. 

-  direkte  Parametereingabe  bei  RSX- 
Befehlen. 


X-Modul  in  Standardausführung  (Abb.  ohne  Gehäuse) 

•  RS  232  wird  benötigt?  Dann  wählen  Sie 
die  Fl-XRS  oder  Ml-XRS. 

Ein  kompaktes  RS  232  Modul  ist  bei  die¬ 
sem  Typ  integriert. 

Als  Softwarekomponenten  stehen  Ihnen 

zur  Verfügung: 

•  RSX-Kommandos  zur  Programmierung 
der  seriellen  Schnittstelle  unter  BASIC 
und  ein  Terminalprogramm  für  MO¬ 
DEM  Betrieb. 

•  Schnittstelle  unter  CP/M  (2.2  und  3.0) 
und  BASIC  frei  programmierbar. 

•  X-Modul  nachträglich  zum  XRS-Modul 
aufrüstbar. 

•  ROM-Nummer  frei  einstellbar. 

Vergleichen  Sie  und  sagen  Sie  uns: 

Wer  kann  mehr! 

Ml -X  (3,5") 

Fl -X  (5,25") 

Ml-XRS  (3,5") 

Fl-XRS  (5, 25'0 


Die  vortex  Hard  Disk  WD20 . . . 

...für  alle  Profianwender  oder  solche,  die 
es  werden  wollen! 

Schnelles  Disk  Subsystem  hoher  Spei¬ 
cherkapazität. 
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Das  WD  20  Subsystem 


•  5,25"  Hard  Disk  (20  MB  formatiert) 

•  5,25"  Floppy  Disk  (708  KB  formatiert) 

•  Kombinierter  Hard/Floppy  Disk  Con¬ 
troller  (kann  maximal  zwei  Hard  Disks 
ä  64  MB  und  vier  Floppies  verwalten). 
Datenübertragungsrate  Hard  Disk:  5 
MBit/sec. 


Hard/Floppy  Disk  Controller 


•  Einsatz  unter  BASIC  (VDOS2.1),  CP/M 
2.2  und  CP/M  plus  (nur  6128  und  Joyce). 
Hard  Disk  maximal  in  vier  logische  Lauf¬ 
werke  aufteilbar.  Jedes  dieser  Laufwer¬ 
ke  kann  Bootlaufwerk  sein. 

•  Umfangreiche  Betriebssoftware,  wie 
z.B.  Formatter,  Backuputilities  etc.,  wer¬ 
den  mitgeliefert. 

•  Einfache  Datensicherung  über  einge¬ 
bautes  5,25"  Floppy  Disk  Laufwerk  und 
Backupsoftware.  (Sowohl  physikali¬ 
sches,  als  auch  fileorientiertes  Backup) 

•  Alle  VDOS  Features  stehen  zur  Verfü¬ 
gung:  z.B.  relative  Dateien,  schnelle  Bild¬ 
schirmausgabe,  Maschinensprachmo- 
nitor/Diskeditor  etc. 

•  Weitere  Laufwerke  extern  anschließ¬ 
bar,  z.B.  auch  das  originale  3"  Laufwerk 

Wo  sonst  bekommen  Sie 

6KBproKubik-  Q9QQ 

Zentimeter  für  DM  OuJKJj“ 

Subsystem  nnnn  ^ 

ohne  Floppy  DM  u^A/Oj“ 


Die  Speichererweiterung 
Wenn  Sie... 

...professionelle  Programme  wie  dBase, 
Wordstar  und  Multiplan  voll  nutzen  wollen 
...bis  zu  288KByte  lange  Basic-Program- 
me  schreiben  wollen  (nur  CPC  464) 
...unter  CP/M 2.2  in  den  Genuß  einer  ex¬ 
trem  schnellen  RAM-Floppy  von  bis  zu 
448  KByte  Kapazität  mit  128  Directory  Ein¬ 
trägen  kommen  wollen 
...  auf  den  32  KByte  großen  Drucker-Spoo¬ 
ler  unter  CP/M  und  BASIC  (nur  464)  nicht 
mehr  verzichten  können 
...einen  sofort  verfügbaren  Maschinen- 
sprach-Monitor  und  eine  verschnellerte 
Bildschirmausgabe  benötigen 
. . .  dann  braucht  Dir  CPC  464 die  vortex- 
Speichererweiterung. 


SP  512  Speichererweiterung 


•  Kompromißloses  CP/M  2.2  mit  60  KByte 
TPA 

•  Das  auf  der  Speichererweiterung  inte¬ 
grierte  BOS  (Basic  Operating  System/ 
nur  464)  erlaubt  es  Ihnen: 

-  288  KB  lange  Basic-Programme  zu 
schreiben. 

-  17  komplette  Bildschirminhalte  zwi- 
schenzuspeichem  und  die  abgeleg¬ 
ten  Bilder  mit  einer  Bildwechselrate  von 
3  Bildern  pro  Sekunde  wieder  sichtbar 
zu  machen, 

-  eine  relative  Datei  im  Speicher  der  Er¬ 
weiterung  anzulegen,  die  dann  extrem 
schnellen  Datenzugriff  ermöglicht. 

•  Eingebauter  Maschinensprach-Moni- 
tor:  Disassembler,  Tracer,  Dumper  etc. 

...und  das  alles  zum  sensationel¬ 
len  Preis  von 

Speichererweiterung  OfkO  * 
SP  256  DM  £\30r 

Speichererweiterung  * 

SP  512  DM 

vortex  Computersysteme  -  Vertriebs  GmbH 

Falterstraße  51  -  53  ■  7101  Flein 

Tel.  07131/52061-63  •  Telex  728915trond 


*  unverbindliche  Preisempfehlung 


Falls  Sie  bereits  unsere  Fl-S/D  haben, 
sprechen  Sie  einfach  mal  mit  uns,  wir  rü¬ 
sten  auch  günstig  um! 


C  O  M  p  U  T  E  RSYS  T  EME 


SCHNEIDERWARE  #4 


Die  Erweiterungskarten  für  unseren 
kleinen  ”Expansionsbus”  nehmen 
schon  bald  eine  stattliche  Zahl  an.  Um 
nun  das  im  Monitor  eingebaute  Netz¬ 
teil  nicht  allzusehr  strapazieren  zu 
müssen,  sollten  wir  uns  Gedanken  dar¬ 
über  machen,  wie  wir  es  entlasten  kön¬ 
nen.  Eine  der  Entwicklungen  aus  dem 
Bunde  der  ”SCHNEIDERWARE” 
möchte  ich  Ihnen  heute  vorstellen:  das 
Kraftpaket  zur  Versorgung  der  Erwei¬ 
terungen. 


Power  für  den  Schneider 


Bevor  wir  uns  nun  an  den  Aufbau  des 
"UNIVERSALNETZTEILS''  ma¬ 
chen,  sollen  Sie  einiges  an  Grundla¬ 
gen  der  geregelten  Netzteile  erfahren. 
Am  Anfang  stand  die  Wechselspan¬ 
nung. 

Das  Elektrizitätswerk  versorgt  die 


Industrie  und  den  privaten  Haushalt 
mit  elektrischer  Energie,  die  man  in 
der  gelieferten  Form  direkt  in  Haus¬ 
haltsmaschinen  etc.  und  in  der  In¬ 
dustrie  für  Motore  und  dergleichen 
verwendet.  Sie  wird  in  der  Maßein¬ 
heit  VOLT=(V)  gemessen.Wenn  nun 
ein  Stromkreis  geschlossen  wird 
(Klingelanlage:  Taste  gedrückt),  dann 
fließt  in  diesem  Kreis  ein  Strom.  Die 
Maßeinheit  des  elektrischen  Stromes 
ist  das  AMPERE=(A).  Die  Leitung 
sowie  die  Bauelemente  bilden  nun  für 
die  Elektronen  ein  definiertes  Hin¬ 
dernis.  Die  Wirkung  dieses  Hinder¬ 
nisses  nennt  man  elektrischer  Wider¬ 
stand.  Seine  Maßeinheit  ist  das  OHM 
(griech.  Omega).  Dieses  Dreiergestirn 
an  elektrischen  Grundlagen  verfolgt 
uns  durch  die  ganze  Elektronik. 
Wechselspannung  ist  eine  sich  stetig 
in  ihrer  Größe  und  Richtung  ändernde 
Spannung.  Das  hat  auch  einen  sich 
stetig  ändernden  Strom  zur  Folge. 


Bild  la:  Mittelpunktgleichrichtung  mit 
Spannungsverlauf 
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in  um  . . . 

Bild  1  zeigt  Ihnen  die  Spannungs¬ 
form  einer  Wechselspannung  (Sinus¬ 
kurve)  sowie  die  einer  Gleichspan¬ 
nung  mittels  eines  Diagramms.  Die 
CPCs  und  unsere  Erweiterungen  ar¬ 
beiten  jedoch  ausschließlich  mit 
Gleichspannung.  Wir  müssen  nun 
den  Strom  dazu  bewegen,  nur  in  eine 
Richtung  fließen  zu  wollen.  Wir  brau¬ 
chen  ein  Bauelement,  das  wie  ein 
Ventil  wirkt,  d.h.  dem  Strom  in  der 
einen  Richtung  einen  sehr  geringen 
und  in  der  anderen  Richtung  einen 
sehr  hohen  Widerstand  entgegen¬ 
setzt.  Ein  solches  Bauteil  ist  eine 
Diode.  Mit  der  Diode  "RICHTET” 
man  die  mittels  Transformatoren  auf 
erträgliche  Werte  (220V  -->  z.B.  5V) 
herabgesetzte  Wechselspannung  gleich. 
Hier  gibt  es  vielerlei  Methoden,  um 
solche  Schaltungen  zu  realisieren. 
Einige  sind  Ihnen  in  Bild  1  wiedergege¬ 
ben.  Für  das  Universalnetzteil  sind 
nur  die  Brücken-  und  die  Mittelpunkt¬ 
schaltung  von  Interesse,  da  wir  sie  im 


Netzteil  anwenden  wollen.  Die  gleich¬ 
gerichteten  Spannungsverläufe  sind 
bei  beiden  Arten  annähernd  gleich, 
wie  Sie  aus  Bild  1  ersehen  können. 
Aber  wie  eine  Gleichspannung  sieht 
das  Ganze  noch  nicht  aus.  Wir  müs¬ 
sen  die  Einbrüche,  die  noch  sehr  an 
eine  Sinuskurve  erinnern,  verschwin¬ 
den  lassen.  Das  macht  man  mit 
einem  Kondensator,  dessen  Größe 
Sie  mit  Hilfe  einer  Faustformel  leicht 
errechnen  können.  Pro  entnomme¬ 
nem  Ampere  sollte  die  Kapazität  des 
"LADEKONDENSATORS”  2000  uF 
(Farad=Einheit  der  Kapazität)  betra¬ 
gen.  Unser  Netzteil  ist  nun  mit  Werten 
von  3  x  4700  uF  =  14100  uF  mehr  als 
ausreichend  dimensioniert.  Belasten 
wir  nun  die  so  gewonnene  Gleich¬ 
spannung  mit  einem  Widerstand  oder 
schließen  unseren  CPC  daran  an,  so 
würde  die  Höhe  der  Spannung  ab¬ 
sinken,  weil  die  Aufladeperioden  des 
Ladekondensators  immer  kürzer  wür¬ 
den  und  er  bei  zunehmender  Strom¬ 
entnahme  (kleiner  werdender  Wider- 
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stand)  die  Energie,  die  Lücken  zu  fül¬ 
len,  nicht  mehr  aufbringt,  weil  er  nicht 
mehr  vollgeladen  wird.  Man  spricht 
von  einer  Gleichspannung,  der  eine 
Wechselspannung  überlagert  ist;  die 
sogenannte  Brummspannung.  Je 
kleiner  nun  diese  Brummspannung 
wird,  um  so  besser  und  hochwertiger 
ist  unser  Netzeil. 


Der  Regelkreis 
”Das  pulsierende  Herz” 

Wie  Sie  bereits  lesen  konnten,  sinkt 
die  Ausgangsspannung  bei  größer 
werdender  Belastung  (kleiner  wer¬ 
dendem  Widerstand).  Diesem  Effekt 
müssen  wir  als  Netzteilentwickler 
entgegenwirken.  Dazu  benötigen  wir 
wieder  ein  Bauelement,  das  in  der 
Lage  ist,  seinen  "Hahn”  bei  steigen¬ 
dem  Strombedarf  (größer  werdende 
Belastung)  weiter  aufzudrehen,  ihn 
aber  bei  abnehmender  Belastung 
(kleinerer  Stromverbrauch)  auch  wie¬ 
der  zu  schließen. 

Das  stärkste  Glied  in  einer  Regelkette 
ist  ein  Leistungstransistor,  der  über 


den  Anschluß  namens  "BASIS”  den 
Stromfluß  über  die  beiden  An¬ 
schlüsse  "KOLLEKTOR-EMITTER” 
mittels  einer  kleinen  Gleichspannung 
steuern  kann.  Diese  Gleichspannung 
erzeugt  man  durch  Zusammenschal¬ 
ten  eines  Widerstands  und  einer 
Zenerdiode.  Diese  Maßnahme  hat  zur 
Folge,  daß  an  der  Basis,  dem  Steuer¬ 
anschluß  des  Transistors,  eine  von 
der  Belastung  weitgehend  unabhäng¬ 
ige  Spannung  anliegt  und  somit  auch 
der  Transistor  sein  Ventil  entsprechend 
öffnet  und  schließt.  Da  hätten  wir  die 
einfachste  Form  einer  Konstantspan¬ 
nungsquelle.  Diese  einfache  Konstant¬ 
haltung  von  Spannungen  hat  einen 
großen  Nachteil  für  Microcomputer- 
netzteile.  In  der  Digitaltechnik 
herrschen  andere  Bedingungen  als  in 
der  Analogtechnik.  Hier  werden  zu 
unbestimmten  Zeiten  regelrechte 
Spitzenströme  kurzzeitig  benötigt. 
Das  erfordert  eine  sehr  schnelle 
"Ausregelung”  der  konstanten  Span¬ 
nung.  Diese  Bedingungen  erfüllt 
diese  einfache  Schaltung  in  keinster 
Weise.  Die  Spitzenbelastungen  des 
Ausgangs  kann  man  sich  sehr  leicht 


Bild  2a:  Prinzip  der  Spannungsregelung 
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glied  (Leistungstransistor)  über  eine 
geeignete  Schaltung  den  Regeltransi¬ 
stor  öffnen,  um  durch  ihn  mehr 
"SAFT"  gelangen  zu  lassen.  Im  ande¬ 
ren  Fall,  wenn  die  Last  kleiner  wird 
(ausschalten  des  CPC’s),  muß  die  Re¬ 
gelschaltung  den  Wert  der  Ausgangs¬ 
spannung  zurückdrehen,  um  die  For¬ 
derung  zu  erfüllen,  eine  Ausgangs¬ 
spannung  gemäß  dem  Sollwert  zu 
haben.  Die  Genauigkeit,  mit  der  dies 
geschieht,  ist  ein  Maß  für  die  "GÜTE” 
des  Netzteils. 


Bild  3:  Die  Anschlußbelegung  der  verwendeten  Regler 


erklären.  Wie  Sie  ja  wissen,  kennt  die 
Digitaltechnik  nur  zwei  Zustände 
(ausgedrückt  in  Spannungspegeln): 
die  Zustände  "HIGH”  und  ”LOW’. 
Jeder  dieser  Zustände  wechselt  wäh¬ 
rend  der  Arbeit  des  Microprozessors 
sehr  oft  seinen  Pegel.  Natürlich  sind 
die  unterschiedlichen  Spannungen 
von  unterschiedlichen  Widerstands- 
erscheinungen  begleitet.  Diese  Tat¬ 
sache  hat  auch  verschiedene  sich  mit 
der  Arbeitsgeschwindigkeit  der  Digi¬ 
talschaltung  ändernde  Ströme  zur 
Folge.  Mit  dieser  Erscheinung  würde 
unsere  einfache  Regelschaltung  nicht 


fertig.  Eine  effizientere  Art  von  Rege¬ 
lung  wäre  das  Verfahren,  das  Ihnen 
das  Blockschaltbild  in  Bild  2  zeigt.  In 
dieser  Blockschaltung  greift  man  einen 
Teil  des  Ausgangssignals  ab  (IST¬ 
WERT),  und  vergleicht  ihn  mit  einem 
Referenzwert  (z.B  Zenerdiode  mit 
Widerstand)  und  vergleicht  diese  bei¬ 
den  elektrischen  Werte.  Finden  diese 
beiden  Werte  Übereinstimmung,  so 
muß  keine  Aktion  durch  die  Regel¬ 
schaltung  eingeleitet  werden.  Ist  die 
Ausgangsspannung  jedoch  kleiner 
(stärker  werdende  Belastung)  als  die 
Referenzspannung,  so  muß  das  Stell- 


Die  elegante  IC-Technik 


Mit  soviel  Ballast  wollen  wir  uns  na¬ 
türlich  nicht  beschweren,  denn  das 
nehmen  uns  hochbezahlte  Leute  der 
Halbleiterindustrie  ab.  Wir  müssen 
nur  unser  Scherflein  in  Form  von  ein 
paar  Markstücken  dazu  beitragen, 
um  eine  vollwertige  Regelschaltung 
zu  bekommen.  Der  aufwendige 
Schaltungsteil,  der  die  Ein-  und  Aus¬ 
gangsspannung  auf  ihre  Werte  ver¬ 
gleicht,  befindet  sich  fix  und  fertig 
und  voll  funktionstüchtig  in  den 
sogenannten  Dreibeinreglern.  Ta¬ 
belle  1  stellt  Ihnen  eine  kleine  Aus¬ 
wahl  der  gebräuchlichsten  Typen 
dar.  Diese  Ic's  sind  für  verschiedene 
Spannungen  zu  bekommen,  kosten 
2,-  bis  3  DM  und  sind  vielseitig  anzu¬ 
wenden.  Wer  sich  näher  mit  dem 
Thema  "geregelte  Netzgeräte"  befas¬ 
sen  möchte,  dem  kann  ich  das  Fach¬ 
buch  "ELEKTRONIC  3”  vom  Pflaum 
Verlag  München  empfehlen.  Wir  ver¬ 
wenden  in  unserem  Powerpack  den 
Leistungsregler  LM  323,  der  sich  in 
einem  TO-3-Metallgehäuse  befindet. 
Aus  diesen  Bezeichnungen  lesen  Sie 


Peinlich,  peinlich 

In  Heft  8/86  auf  Seite  76  ist  durch 
einen  Übertragungsfehler  in  der 
Schnittstelle  Verlag  -  Druckerei  ein 
Fehler  aufgetreten,  der  beim  geneig¬ 
ten  Leser  Unverständnis  oder  gar 
Unmut  ausgelöst  haben  mag:  Im  Be¬ 
stückungsplan  der  V/24- Schnittstelle 
ist  der  schwarze  Bauteile-Aufdruck 
gegenüber  der  blau  gedruckten  Bau¬ 
teile- Seite  der  Platine  genau  um  180 
Grad  verdreht. 

Weiterhin  wurde  auf  der  Bestellkarte 
des  Platinenservice  der  Preis  für  das 
Verbindungskabel  464/664  verdreht: 
statt  DM  39,50  muß  es  natürlich 
richtig  heißen:  DM  35,90.  Wir  sind 
ganz  geknickt  und  geloben  Besse¬ 
rung.  Den  korrekten  Bestückungs¬ 
plan  zeigt  Bild  1.  (ME) 
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Bild  1:  der  korrekte  Bestückungsplan  der  V/24  aus  Heft  8/86. 
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7808 

+  8  V 

7,7  V. 
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23  V 
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27V.  . 

33  V 

=  *:■>  '■>  <s  «  aci 

-CHD  (7  ACI 

Tabelle  1:  Typenliste  der  Spannungsregler 
78XX 

als  Profi  sofort  heraus,  daß  dieses  ein 
Festspannungsregler  mit  einer  Aus¬ 
gangsspannung  mit  5  Volt  ist,  der  einen 
Strom  von  3  Ampere  verarbeiten  kann. 
Der  Hersteller  schlägt  vor,  eine  Trafo¬ 
spannung  (Eingangsspannung)  zu  ver¬ 
wenden,  die  etwa  3  -  4  Volt  größer  sein 
sollte  als  die  benötigte  Ausgangsspan¬ 
nung.  Tatsächlich  läßt  der  Hersteller 
als  maximale  Eingangsspannung  noch 
einen  Wert  von  30  Volt  zu.  Aber  wohin 
mit  der  überschüssigen  Energie  -  sie 
wird  natürlich  innerhalb  der  Regler  in 
Form  von  Wärmeenergie  verbraten. 
Der  Anwender  muß  in  diesem  Fall  sei¬ 
ne  Kühlkörper  so  dimensionieren,  daß 
man  meinen  könnte,  man  sitzt  in  einem 
Kraftwerk.  Deshalb  sollte  man  sich  die 
Wahl  des  Trafos  sehr  genau  überlegen. 
Benötigte  Ausgangsspannung  plus  3 
Volt  ergibt  eine  brauchbare  Faust¬ 
formel  für  die  Trafospannung.  Weil 
Sie  Ihre  neugebaute  V/24-Karte  schon 
ausgiebig  testen  konnten,  und  Ihnen 
der  Drahtverhau  der  beiden  Batterien 
inzwischen  allmählich  auf  die  Nerven 
geht,  sah  ich  auf  der  Netzteilplatine 
auch  eine  "DUALE  SPANNUNGS¬ 
VERSORGUNG”  vor.  So  nennt  man 
eine  Spannung,  die  einen  positiven 
und  einen  negativen  Spannungs/.weig 
besitzt. 

Zu  guter  Letzt  fand  man  auf  dem  Pla- 
linenlayout  noch  etwas  Platz  für  einen 
Spannungszweig,  der  es  Ihnen  ermög¬ 
licht,  ihn  nach  Ihrem  Ermessen  aus¬ 
zubauen  (je  nach  eingesetztem  Reg¬ 
ler).  Dieser  Zweig  ist  mit  ca.  100  mA 
belastbar  und  könnte  z.B  mit  einem 
24  Volt  Regler  bestückt  werden,  der 
eine  Spannung  bereitstellt,  die  wir 
später  für  den  Eprommer  verwen¬ 
den  könnten. 

Sie  sehen  -  es  ist  an  alles  gedacht.  Da 
in  der  Standardbelegung  des  ECB- 
Busses  keine  Pins  für  Wechselspan¬ 
nungen  vorgesehen  sind,  wir  sie  aber 
der  Karte  irgendwie  zuführen  muß¬ 
ten,  entschlossen  wir  uns,  die  Be¬ 
legung  individuell  festzulegen.  Das 
hat  auch  den  Vorteil,  daß  wir  mit 
unseren  hohen  Strömen  für  den  5 
Volt  Zweig  nicht  in  Bedrängnis  kom¬ 
men,  weil  wir  nun  mehrere  Pins 
gleichzeitig  verwenden  können.  Die 


Tabelle  2:  Belegung  der  Netzteilverbindung 

entsprechende  Belegung  ersehen  Sie 
aus  Tabelle  2.  Aber  ACHTUNG! 
Obwohl  das  Netzteil  den  gleichen 
Steckanschluß  wie  unsere  Basispla¬ 
tine  hat,  darf  es  nicht  in  diese  einge¬ 
steckt  werden.  Der  Stecker  der  Netz¬ 
teilkarte  ist  ausschließlich  zum  An¬ 
schluß  an  den  Trafo  vorgesehen. 
Wenn  Sie  nun  die  Verbindung  zur 
Basisplatine  hersteilen,  vergessen  Sie 
bitte  nicht  die  5V-Leitung,  die  vom 
CPC  kommt,  zu  unterbrechen,  denn 
das  Powerpack  ist  weitaus  stärker. 


Tips  zum  Aufbau  der  Platine 


Soweit  als  möglich  versuchen  wir,  die 
Platinen  der  "SCHNEIDERWARE” 
in  einseitigen  Ausführungen  herzu¬ 
stellen,  was  aber  nicht  immer  gelingt. 
Trotz  der  Vielseitigkeit  des  Kom¬ 
paktnetzteils  konnte  diese  Platine  je¬ 
doch  in  bester  einseitiger  Qualität  ge¬ 
fertigt  werden.  Das  Netzteil  besitzt 
eine  Steckerleiste,  die  die  gleiche  Bau¬ 
form  wie  die  übrigen  Platinen  der 
Schneiderwareserie  hat.  Wegen  der 
verschiedenen  Anschlüsse  sollten  Sie 
sich  für  die  Netzteilkarte  einen  sepa¬ 
raten  Platz  im  evtl,  schon  vorhande¬ 
nen  19”-Gehäuse  reservieren  und 
eine  leere  Buchsenleiste  an  der  Rück¬ 
seite  befestigen.  Die  Leitungen  zur 
Versorgung  der  Hauptplatine  kön¬ 
nen  Sie  durch  "Luftbrücken”  sehr 
leicht  und  übersichtlich  selbst  her- 


stellen.  Der  Trafo  muß  wegen  der 
Vielseitigkeit  und  der  großen  Strom¬ 
entnahme  drei  getrennte  Wicklungen 
besitzen.  Die  5V-  und  die  beiden  12V- 
Wicklungen  müssen  eine  Mittelan¬ 
zapfung  haben.  Selbstverständlich 
können  Sie  die  einzelnen  Spannun¬ 
gen  je  nach  Bedarf  mit  getrennten 
Trafos  erzeugen,  jedoch  nicht  alle 
Spannungen  aus  einer  Wicklung  des¬ 
selben  Trafos,  sonst  raucht’s.  Der 
ideale  Platz  für  den  relativ  schweren 
Trafo  ist  im  19"-Gehäuse  an  der  rech¬ 
ten  Seitenwand  zu  finden.  Besitzern 
der  Basisplatine  mit  5  Steckplätzen 
empfehle  ich,  das  Netzteil  und  den 
Trafo  in  ein  geeignetes  Gehäuse  ein¬ 
zubauen.  In  diesem  Gehäuse  können 
Sie  die  220  Volt-Zuleitung  nebst  zuge¬ 
hörigem  Ein/Ausschalter  berührungs¬ 
sicher  befestigen.  Sie  müssen  sowohl 
im  separaten  Gehäuse  als  auch  im 
großen  19”  den  Schutzleiter  mit  dem 
Metallgehäuse  verbinden  und  sehr 
sorgfältig  auf  den  Aufbau  achten,  weil 
LEBENSGEFAHR  besteht  Aber  nun 
zum  Aufbau  der  Platine.  Sie  löten  die 
kleinen  Bauteile  wie  LED’s,  Elektro¬ 
lytkondensatoren  und  Gleichrichter 
(auf  Polung  achten)  sowie  die  Dioden 
in  die  laut  Bestückungsplan  vorgese¬ 
henen  Plätze.  Der  Leistungs regier 
LM  323  K  wird  auf  einen  Kompaktkühl¬ 
körper  montiert  (Gehäuse  ist  der  Mi¬ 
nuspol)  und  mit  mittels  Gewebeschlauch 
isolierten  Drähten  in  die  Platine  ein¬ 
gelötet.  Die  Drähte  dafür  sollten  mög- 


Bild  4:  Der  Gesamtschaltplan  der  Netzteilplatine 
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liehst  kurz  sein,  um  ein  Schwingen  des 
Reglers  zu  vermeiden.  Den  so  vorbe¬ 
reiteten  Kühlkörper  schrauben  Sie 
mit  Hilfe  von  zwei  Abstandsbolzen 
auf  die  Platine.  Die  übrigen  Regler 
werden  einfach  in  ihre  Bohrungen 
eingelötet. 

Sollten  Sie  den  12V-Reglern  größere 
Ströme  als  100  mA  entlocken  wollen, 
so  schrauben  Sie  die  beiden  Ic’s 
(ebenfalls  isoliert  mit  Glimmerschei¬ 
ben)  an  die  Unterseite  des  großen 
Kühlkörpers,  auf  dem  schon  der  5V- 
Regler  sein  Dasein  fristet.  Wenn  die 
24  Volt-Wicklung  des  Netztrafos  für 
höhere  Ströme  ausgelegt  ist,  gilt  das 
auch  für  diesen  Reglertyp.  Die  erst¬ 
malige  Inbetriebnahme  des  Netzteils 


sollten  Sie  ohne  Ihren  Schneider  täti¬ 
gen,  da  man  ja  nie  wissen  kann,  wie  es 
sich  verhält.  Messen  Sie  nach  dem 
Einschalten  der  Netzspannung  die 
Spannungen,  ob  sie  die  richtigen 
Größen  aufweisen.  Erst  danach  ver¬ 
binden  Sie  die  Leitungen  mit  der  Ba¬ 
sisplatine.  (Achtung:  Trennen  der  5 
Voltverbindung  zum  CPC).  Die  24 
Volt  können  Sie  noch  freilassen,  diese 
verschalten  wir  erst  in  einem  späteren 
Beitrag.  Die  anderen  Leitungen  löten 
Sie  an  die  Anschlüsse,  die  Sie  aus  der 
Anschlußbelegung  Schneidenvare  #2 
entnehmen  können,  und  die  im  Plati¬ 
nenlayout  der  Basisplatine  als  Lötau¬ 
gen  herausgeführt  sind.  5  Volt  (Pins  1 
AC),  +  12  Volt  (Pin  15  C)  und  -12  Volt 


Schneiderware  #4 
Bestückungsplan 
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(Pin  13  A).  Die  Masseverbindung 
kommt  auf  die  Pins  32  AC.  Selbstver¬ 
ständlich  müssen  diese  Leitungen 
sowie  die  Eingangsleitung  mit  ent¬ 
sprechenden  Sicherungen  versehen 
werden.  Nun  haben  Sie  den  Aufbau 
und  einige  Grundlagen  über  gere¬ 
gelte  Netzgeräte  erfahren  können. 
Damit  Sie  darüber  nicht  die  Zeit  ver¬ 
gessen,  möchten  wir  Sie  in  "Schnei¬ 
derware  #5"  mit  einer  sogenannten 
"ECHTZEITUHR''  bekannt  machen. 

(P.  Richter/ME) 


Stückliste: 

Dl,D2:Universaldiode  6A 
D3-D5.D10:  IN  4007 
D6-D9:  LED  5  mm  rot 
GU.G12:  B80  C 1500/ 1000 
IC  1:  LM  323  K  oder  Ersatz  typ 
IC2:  7912 
IC3:  7812 
IC4:  7824 

C1-C3:  4700  uF/16V 
C4:  22  uF/1 6  V 
C5,  CIO  -C 12:  100  nF 
C6:  470  nF 
C7.C8:  1000  uF/l6V 
C9:  470  uF/35V 
RI:  390  Ohm 
R2,R3:  1  kOhm 
R4:  2,2  kOhm 

Sri:  64-polige  VG-Messerleiste 
Bul:  64-polige  VG-Federleiste 
Sil:  3,15  A  mT 
Si2  -  Si4:  0, 1  A  ßink 
Kühlkörper  mind.  2K/W 
Tri:  Netztrafo  prim.  220  V 
sek.  1:  24V/400  mA 
sek.  2:  2  x  13  V/ 400  mA 
sek.  3:  2  x  8V/4A 
sek.  2+3  mit  Mittelanzapfung 
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Die  SCHNEIDERWARE  ist 
ein  universelles  Erweite¬ 
rungssystem  für  CPC’s  auf 
der  Basis  des  bekannten 
ECB-Bussystems. 

Dieses  System  läßt  sich  mit 
minimalen  Adaptionsmaß¬ 
nahmen  an  alle  Rechner 
mit  Z80-CPU  anschließen. 
Für  Ihren  CPC  brauchen 
Sie  zunächst: 

1 .  Das  passende  Kabel 
(im  Artikel  beschrieben, 
wird  im  Platinenservice 
angeboten) 

2.  Die  Basisplatine  (zur 
Umsetzung  der  Pinbe¬ 
legung  CPC/ECB). 

Im  Lauf  der  Serie  wird  für 
Einsteiger  der  Aufbau  einer 
19”-Systems  und  die  Inte¬ 
gration  der  Karten  in  dieses 
Gehäuse  beschrieben.  Die 
Basisplatine  besteht  aus 
beidseitig  kupferbeschich¬ 
tetem  glasfaserverstärk¬ 
tem  Epoxydharz  und  ist 
durch  kontaktiert.  Die  Ein¬ 
steckkarten  sind  einseitig 
beschichtet  und  aus  dem 
gleichen  Material  wie  die 
Basisplatine.  Die  in  den  Fer¬ 
tiggeräten  verwendeten 
Bausteine  sind  von  bester 
Qualität;  die  fertigen  Geräte 
sind  geprüft.  Die  in  Heft  7 
vorgestellte  Centronics- 
Parallelschnittstelle  ist  ge¬ 
genüber  dem  CPC-Druk- 
kerport  vollständig  und 
vollkompatibel  zu  allen  Ge¬ 
räten  mit  Centronics-An- 
schluß. 


Zahlungsbedingungen: 

Gesamtpreis  zuzüglich 
5,-  DM  Porto/Verpak- 
kung  (im  Ausland  8,  -  DM 
Porto/Verpackung) 

Am  einfachsten  per  Vor¬ 
kasse  (Verrechnungs¬ 
scheck)  oder  als  Nachnah¬ 
me  zuzügl.  der  Nachnah¬ 
megebühr  (in  das  Ausland 
nicht  möglich). 

Bitte  Postkarte  im 
Heft  benutzen! 


Platinenservice 


Gesammelte  Werke 

Die  SCHNEIDERWARE  wächst  langsam 
zu  einem  System  heran. 

In  7/86  wurden  Basisplaine  und  Centro- 
nics-Schnittstelle  vorgestellt,  ebenso  die 
nötigen  Kabel.  Diese  Artikel  sind  natür¬ 
lich  ständig  über  den  Platinenservice  er¬ 
hältlich. 


Die  Preise 

Baisplatine,  unbestückt  24,90  DM 

Karte,  geprüft  62,90  DM 

Kabel  464/664  35,90  DM 

Kabel  6128  45,90  DM 

Centronics,  unbestückt  17,90  DM 

Karte,  geprüft  79,90  DM 


V/  24 

SCHNEIDERWARE  #  3  präsentiert  eine 
komplette  V/24  (RS  232)-Schnittstelle. 
Auch  diese  Karte  ist,  wie  sämtliche  Pe¬ 
ripherie  aus  dieser  Serie,  voll  kompatibel 
zu  kommerziellen  Geräten  mit  RS 
232-Schnittstelle.  Die  Steuerbefehle  sind 
als  RSX-Befehle  gestaltet  und  können 
problemlos  in  eigene  Basicprogramme 
eingebunden  werden.  Die  Bauanleitung 
und  die  Software  dieser  universellen 
Schnittstelle  ist  in  CPC  Schneider  Inter¬ 
national,  Heft  8/86  abgedruckt. 

Die  Preise 

Platine,  unbestückt  29,80  DM 

Karte,  geprüft  139,90  DM 


Netzteil 

Dieser  Baustein  dient  der  Stromversor¬ 
gung  der  SCHNEIDERWARE,  die  hier¬ 
mit  vollkommen  unabhängig  von  der 
Speisespannung  aus  dem  Rechner  ist. 
Vier  geregelte  Spannungen  stehen  zur 
Verfügung:  5V/3A  zur  Versorgung  der 
TTL-Bausteine,  -+-/— 12V/100mA  als  für 
die  V/24  Schnittstelle  und  24V/250mA 
als  Programmierspannung  für  den  spä¬ 
teren  Eprommer.  Die  Bauanleitung  zum 
Netzteil  (Schneiderware/,#'4)  ist  in  Heft 
9/86  veröffentlicht. 

Die  Preise 
Platine,  unbestückt 
Karte,  geprüft 
Netztrafo 
Karte  und  Trafo 


17.90  DM 

119.90  DM 

79.90  DM 

184.90  DM 


Platine,  unbestückt 

SCHNEIDERWARE  ist  in  drei  Versionen 
für  Sie  verfügbar.  Sie  können  nach  Bau¬ 
plan  selbst  bauen,  die  fertig  bestückten 
und  geprüften  Karten  über  den  Platinen¬ 
service  erhalten  oder  die  unbestückte 
Platine  erwerben.  Diese  werden  in  Indu¬ 
striequalität  gefertigt,  sind  verzinnt  und 
gebohrt;  doppelseitig  beschichtete  Pla¬ 
tinen  sind  chemisch  durchkontaktiert 
und  geprüft.  Hierbei  haben  Sie  den  Vor¬ 
teil,  die  Platine  nicht  selbst  hersteflen  zu 
müssen,  jedoch  die  Bestückungskosten 
zu  sparen  und  die  Bauteile  selbst  einzu¬ 
kaufen. 


Schneider  CPC  International 

Postfach  250,  3440  Eschwege 


Diskmat  V2.0 


für  464-664-6 1 28 


Ist  es  Ihnen  auch  schon  so  ergangen?  Sie  suchen  ein  ganz 
bestimmtes  Programm  und  fragen  sich,  auf  welcher 
Diskette  es  sich  befindet? 

Was  bleibt  einem  anderes  übrig  als ...  Diskette  rein  ...  CAT 
...  nächste ...  Seite ...  CAT ...  nächste  Diskette  -  und  weil  es  so 
schön  war  -  das  Ganze  nochmal  von  vorne.  Wenn  man 
Pech  hat,  findet  man  das  gesuchte  Programm  auf  der  vor¬ 
letzten  Diskette. 

Oder:  man  kann  sich  nicht  mehr  an  den  Namen  erinnern, 
unter  dem  man  die  gesuchte  Routine  abgespeichert  hatte. 
Auch  hier  hilft  nur  ein  Blick  ins  Directory.  Oder:  man  fin¬ 
det  auf  der  Diskette  ein  Programm,  weiß  aber  nicht  mehr, 
was  sich  hinter  dessen  Namen  verbirgt  Auch  hier  hilft  nur 
ein  Einladen  und  Ansehen. 

Schuld  daran  sind  im  wesentlichen  die  ähnlichlautenden 
und  zu  wenig  aussagenden  Programmnamen.  Da  jedoch 
nur  acht  Zeichen  für  die  Namensgebung  zur  Verfügung 
stehen,  fällt  es  oft  schwer,  einprägsame  undprogrammspe- 
zifische  Namen  zu  finden. 

Die  oben  geschilderten  Probleme  gehören  mit  dem 
Programm  DISKMAT  der  Vergangenheit  an.  Es  archiviert 
und  verwaltet  Programme  und  Routinen,  löscht  auf  kom¬ 
fortable  Weise  überflüssige  Directory-Einträge  und  liest 
dann  die  übrigen  automatisch  ein. 

Der  Nutzen  einer  Datei  hängt  bekanntlich  auch  davon  ab, 
wie  aufwendig  es  ist,  sie  auf  dem  aktuellen  Stand  zu  halten. 
Aber  gerade  das  ist  mit  DISKMAT  besonders  einfach  und 
zeitsparend,  da  nur  Files  neu  aufgenommen  werden,  die 
sich  noch  nicht  im  Speicher  der  eingelesenen  Datei 
befinden. 

Programmaufbau  und  Bedienung: 

Wenn  Sie  das  Listing  abgetippt  haben,  speichern  Sie  es 
unter  dem  Namen  DISKMAT.BAS  ab. 

Mit  dem  Befehl:  RUN”DISKMAT  wird  das  Programm  er¬ 
neut  geladen  und  gestartet.  Es  erscheint  ein  Titelbild  und 


anschließend  das  Auswahlmenue,  von  dem  aus  die  zehn 
Programmteile  DATEI  LADEN,  SPEICHERN,  DATEN 
ERFASSEN.  ÄNDERN,  LÖSCHEN.  SORTIEREN. 
SUCHEN,  AUSGEBEN,  BLÄTTERN  und  PROGRAMM¬ 
ENDE  aufgerufen  werden  können. 

Sie  können  dann  mit  der  Datei  bis  zu  180  Datensätze 
archivieren  und  verwalten,  die  aus  den  folgenden 
Feldern  bestehen: 

1.  Disketten-Nummer  und  -Seite 

2.  Filename 

3.  Filetyp 

4.  Filelänge 

5.  Startbefehl 

6.  Verwendungszweck 

7.  Sachgebiet 

8.  Literaturhinweis 

Das  Programm  wird  mit  dem  Menuepunkt  3  "Daten  er¬ 
fassen  und  ergänzen"  begonnen.  Sie  brauchen  dann  nur 
die  gewünschte  Diskette  einlegen  und  deren  Nummer  und 
Seite  eingeben.  Die  Felder  1  -4  werden  automatisch  einge¬ 
lesen,  den  Rest  müssen  Sie  von  Hand  machen. 

Für  einen  Probelauf  sollten  Sie  kein  Original  nehmen,  da 
ein  Tippfehler  in  der  Löschroutine  sonst  katastrophale 
Folgen  haben  könnte. 

Um  den  Programmablauf  zu  beschleunigen,  bleibt  die 
Rückkehr  in  das  Hauptmenue  auf  das  Notwendigste  be¬ 
schränkt.  Sollte  bei  bestimmten  Vorgängen,  z.B.  beim  Än¬ 
dern  oder  Löschen,  die  Nummer  des  Datensatzes  nicht  be¬ 
kannt  sein,  so  wird  direkt  in  die  Suchroutine  verzweigt. 
Programmzeiger  und  =Kennzahlen  sorgen  dafür,  daß  der 
jeweilige  Programmstatus  angezeigt  und  immer  an  die 
richtige  Stelle  zurückgekehrt  wird. 

Dateien  laden  und  abspeichern: 

Zu  ladende  Dateien  werden  im  ausgegebenen  Directory 
mittels  Leertaste  und  Copy-Cursor  direkt  angewählt.  Das 
Eintippen  des  Dateinamens  ist  also  nicht  erforderlich.  Es 
können  mehrere  Teildateien  nacheinander  sowohl  gela¬ 
den  als  auch  gespeichert  und  anschließend  in  beliebiger 
Reihenfolge  zu  neuen  Gesamtdateien  verknüpft  werden. 
Dadurch  wird  der  Nachteil,  daß  "nur"  180  Datensätze  be¬ 
arbeitet  werden  können,  weitestgehend  ausgeglichen.  Ein 
besonderer  Vorteil  dieser  Routine  besteht  darin,  daß  beim 
Laden  von  Teildateien  die  bereits  im  Speicher  befindli¬ 
chen  Datensätze  mit  den  eingelesenen  verglichen  werden. 
Sollten  Datensätze  mehrfach  Vorkommen,  so  werden  die¬ 
jenigen  automatisch  gelöscht,  die  zuletzt  eingegeben 
wurden. 
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Daten  erfassen  und  ergänzen: 

Dieser  Menuepunkt  ist  das  Kernstück  des  DISKMAT. 
Nach  dem  Einlegen  der  Diskette  und  dem  Drücken  einer 
Taste  werden  die  Directory-Einträge  angezeigt.  Das  er¬ 
folgt  allerdings  in  einer  etwas  anderen  Form,  als  Sie  vom 
CAT-Befehl  gewohnt  sind.  READ-ONLY-FILES  werden 
ohne  Stern  angezeigt. 

Bevor  nun  die  Files  in  der  Datei  erfaßt  werden,  besteht  die 
Möglichkeit,  die  Diskette  auf  komfortable  Weise  zu  ent¬ 
rümpeln.  Mil  dem  Copy-Cursor  werden  diejenigen  Files 
markiert,  die  gelöscht  werden  sollen.  Die  Leer-Taste  dient 
dazu,  die  nicht  zum  Löschen  bestimmten  Files  zu  über¬ 
springen.  Dateien  mit  dem  Extend  .BAK  brauchen  nicht 
markiert  werden,  da  sie  beim  späteren  Einlesen  nicht  be¬ 
rücksichtigt  werden. 

Wenn  Sie  die  Frage  OBIGE  FILES  WIRKLICH 
LÖSCHEN?  bejahen,  erscheint  das  von  den  alten  und 
unwichtigen  Programmen  gereinigte  Directory  auf  dem 
Monitor  und  es  wird  abgefragt,  ob  Sie  alle  oder  nur  be¬ 
stimmte  Files  erfassen  wollen. 

In  der  Regel  werden  Sie  sich  wahrscheinlich  für  die  be¬ 
quemste  Möglichkeit,  d.h.  alle  Files,  entscheiden,  insbe¬ 
sondere  deshalb,  weil  nur  die  Einträge  übernommen  wer¬ 
den.  die  noch  nicht  im  Speicher  abgelegt  worden  sind. 
Ähnlich  wie  beim  Laden  der  Dateien  werden  durch  einen 
Überkreuz-Vergleich  doppelte  Filenamen  vorher  gelöscht. 
Daraus  ergibt  sich  der  große  Vorteil,  daß  Sie  mit  Sicherheit 
alle  neuen  Programme  und  Routinen  erfassen,  wenn  Sie 
Ihre  Datei  updaten. 

Das  Auswahlen  bestimmter  Files  ist  dann  ratsam,  wenn 
nicht  alle  Einträge  mehrteiliger  Programme  berücksich¬ 
tigt  werden  sollen.  Das  Markieren  der  Dateien  zum 
Archivieren  funktioniert  genauso  wie  beim  Löschen.  Beim 
Einlesen  werden  die  Filenamen  wiederum  miteinander 
verglichen,  um  Doppeleinlräge  zu  verhindern. 

Vor  dem  eigentlichen  Einlesen  muß  die  Disketten- 
Nummer  und  -Seite  angegeben  werden  (z.B.  1A,12B).  Um 
die  Nummer  auch  bei  eingelegter  Diskette  erkennen  zu 
können,  empfiehlt  es  sich,  sie  auf  den  sichtbaren  Rücken 
der  Diskette  zu  schreiben. 

Nach  dem  Einlesen  der  Directory- Daten  befindet  sich  der 
Cursor  im  ersten  neu  eingelesenen  Datensatz  im  Feld  5, 
um  die  Einträge  zu  vervollständigen.  Durch  die  Tasten¬ 
kombination  CTRL  M  kommen  Sie  jederzeit  ins  Aus- 
wahlmenue.  CTRL  K  ermöglicht  ein  Korrigieren  aller  Da¬ 
tenfelder  während  des  Ergänzens. 


Daten  ändern: 

Ist  die  Nummer  des  zu  ändernden  Datensatzes  nicht  be¬ 
kannt,  so  kann  sie  mit  Hilfe  der  Suchroutine  ermittelt  wer¬ 
den.  Nach  Eingabe  der  Nummer  erscheinen  die  Daten¬ 
feldbezeichnungen  zusammen  mit  den  Eintragungen 
links  auf  dem  Monitor.  Die  rechte  Seite  steht  für  Änderun¬ 
gen  zur  Verfügung,  so  daß  der  vorhandene  Text  nicht  über¬ 
schrieben  werden  braucht. 

Daten  löschen: 

Das  Auffinden  des  Datensatzes  erfolgt  wie  beim  Ändern. 
Zum  Löschen  bestimmter  Einzeldaten  werden  vor  Aus¬ 
führung  auf  dem  Bildschirm  ausgegeben. 

Daten  sortieren: 

Es  kann  nach  allen  acht  Datenfeldern,  die  vor  und 
während  des  Vorgangs  eingeblendet  sind,  alphabetisch 
bzw.  alphanumerisch  sortiert  werden. 

Daten  suchen: 

Ein  zu  suchender  Begriff  wird  nur  dann  gefunden,  wenn 
die  Eingabe  in  derselben  Schreibweise  vorgenommen 
wurde,  wie  er  abgespeichert  ist.  Das  Suchen  erstreckt  sich 
auf  alle  Datenfelder. 

Die  Ausgabe  erfolgt  über  Monitor  oder  Drucker. 

Daten  ausgeben: 

Die  Daten  werden  in  der  Form  einer  Liste  mit  Kopfleiste 
wahlweise  als  Einzeldaten  oder  Gesamtdatei  auf  Bildschirm 
oder  Drucker  ausgegeben.  Die  Kopfleiste  wird  auf  jeder 
Seite  neu  wiederholt. 

In  Datei  blättern: 

Sie  können  den  Datensatz  vorgeben,  ab  dem  Sie  vorwärts 
oder  rückwärts  blättern  wollen.  ENTER  bringt  Sie  zurück 
ins  Hauptmenue. 

Programm  beenden: 

Nach  einer  Sicherheitsabfrage,  ob  die  Daten  gesichert 
sind,  werden  Programm  und  Daten  gelöscht. 

Fehlermeldung: 

Die  Fehlerabfangroutine  zeigt  aufgetretene  Fehler  und 
die  dazugehörige  Zeilennummer  an  und  behebt  sie  teil¬ 
weise  selbständig.  Sollte  das  Programm  trotzdem  einmal 
unterbrochen  werden,  so  kann  es  mit  GOTO  570  ohne  Da¬ 
tenverlust  neu  gestartet  werden. 

(H.  Langheim) 
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8 : DRAWR  -630  , 0 : DRAWR  0,388 

270  MOVE  5 ,369 : DRAWR  630,0;MOVE  176, 369: DR 

AWR  0,30 :MOVE  495 , 369 : DRAWR  0,30 

280  MOVE  15,391: PRINT  "DISKETTENVERWALTUNG 

II  , 

290  MOVE  1 75 +{ 320-8 *LEN{aa$ )) /2 , 391 :PRINT 
aa$ ; 

300  MOVE  505,391  : PRINT  "PROGRAMMTEIL"; 

310  MOVE  617,391  sPRINT  ab$; 

320  MOVE  5,37: DRAWR  630,0 

330  TAGOFF: RETURN 

340  REM  J/N-ABFRAGE  ••• 

350  j$=UPPER$(INKEY$):IF  j$=""  THEN  350  EL 
SE  RETURN 

360  REM  •••  SICH  WIEDERHOLENDE  BEFEHLE,  TE 
XTE  UND  ZEITSCHLEIFEN 

370  t$ »"LEERTASTE» WEITER  ENTER »MENUE" : GO 
SUB  500 

380  ta$»INKE¥$:IF  ta$=CHR$(l3)  THEN  570  EL 
SE  IF  ta$=CHR$( 32 )  THEN  RETURN  ELSE  380 
390  t$ »"EINGABE  MIT  < ENTER»  ABSCHLIESSEN" : 
GO SUB  480: RETURN 

400  t$«"DISKETTE  EINLEGEN  UND  EINE  TASTE  D 
RUECKEN" :GOSUB  5 00: CALL  &BB06: RETURN 
410  t$="ALLE  ODER  BESTIMMTE  DATEN  ?  <A/B>" 
; GOSUB  500 :RETURN 

420  ta$=UPPER$ ( INKEY$ ) : IF  ta$»""  THEN  420 
ELSE  RETURN 

430  t$= "LETZTER  DATENSATZ  IST  NR.  "+CHR$(2 
4 )+STR$(an)+"  "+CHR$ (24 ) :GOSUB  480;RETURN 

440  t$=" SACHGEBIET:  Da t »DATEI  Txt=TEXT  Sp» 
SPIEL  Sd »SOUND  Gra=GRAPHIK  Ut»UTILITY" : GOS 
UB  500: RETURN 

450  tS » " AENDERN »NEUE  EINGABE+ENTER  LOESCH 
EN=LEERTASTE+ENTER  NICHTS  AENDERN »ENTER " : 
GO SUB  500: RETURN 

460  t$ »"DATEI  WIRD  AUF  DOPPELEINTRAGUNGEN 

UEBERPRUEFT" :GOSUB  500:RETURN 

470  GO SUB  500 :FOR  t»1  TO  1000: NEXT : RETURN 


131691 

t2261  1 

(1983  ] 

(30331 

(8371 

(1128] 

(1  2241 

(778] 

[3759] 

(3901  1 

[3860] 

[22501 

(35591 

(4758] 

(33761 

(26041 

(40551 

[68781 

t7879  1 

[46941 
[2021  ] 


480  GO SUB  500 :FOR  t=1  TO  2000 :NEXT: RETURN  (19241 
490  GO SUB  500 :FOR  t=1  TO  4000 :NEXT:RETURN  [1237] 


500  CLS  #1:LOCATE  #1 , 40-INT(LEN( t$ ) /2 ) , 1 : P  C2716] 
RINT  #1,t$:RETURN 

510  LOCATE  25,2 *v-1 :RETURN  [1835] 

520  LOCATE  x+23 ,2*s+2:RETURN  [13131 

530  LOCATE  x+48 , 2  *s +2 : RETURN  [1674  1 

540  LOCATE  3+p*1 5 , 1 O+i/5 : RETURN  (14711 

550  ERASE  h$,h,h1$,h1 : RETURN  (11361 

560  REM  AUSWAHLMENUE  **•  [15271 

570  ON  ERROR  GOTO  4600  [16661 

580  WINDOW  #0,1 ,80,1 ,25:CLS  [1254] 

590  aa$="A  USWAHLMENUE"  [1380] 

600  ab$="0":ab=0  [463] 

610  v=0:z2=0:z30=0:z31 =0:z32=0:z33=0:z4=0:  (45191 
z5»0:z7=0:z10=0 

620  GO SUB  210  [939] 

630  a$ ( 1 ) »"DATEI  LADEN"  (10331 

640  a$ ( 2 ) »"DATEI  ABSPEICHERN"  [17281 

650  a$ ( 3 ) »"DATEN  ERFASSEN  UND  ERGAENZEN"  (20611 

660  a$ ( 4 ) »"DATEN  AENDERN"  (22141 


670  a$ ( 5 ) »"DATEN  LOESCHEN"  (1531] 
680  a$ (6) »"DATEN  SORTIEREN"  [2356] 
690  a$ (7) »"DATEN  SUCHEN"  [1635] 
700  a$ ( 8 ) »"DATEN  AUSGEBEN"  (12931 
710  a$(9)="lN  DATEI  BLAETTERN"  [1011] 
720  a$< 10 »»"PROGRAMM  BEENDEN"  [13541 


730  FOR  v»1  TO  1 0 :GOSUB  510:PRINT  a$(v):NE  (23951 
XT 

740  t$»CHR$(24)+CHR$(32)+"WAEHLEN  MIT  LEER  [52131 
-  UND  ENTER-TASTE" +CHR$( 32 )+CHR$( 24): GOSUB 


500 

750  FOR  v= 1  TO  10:GOSUB  510:PRINT  CHR$(24)  [2823] 
a$(v)  CHR$ ( 24 ) 

760  ta$=INKEY$ : IF  ta$»CHR$(13)  THEN  800  EL  [4258] 

SE  IF  ta$=CHR$ ( 32 )  THEN  770  ELSE  760 

770  GOSUB  510: PRINT  a$(v)  (13941 

780  NEXT  [3501 

790  IF  v>10  THEN  750  [4401 

800  ON  v  GOSUB  830,1380,1730,2910,3190,344  (4061 J 

0,3810,4050,4300,4440 

810  GOTO  570  (3791 

820  REM  •••  DATEI  LADEN  (9801 

830  aa$»"DATEI  LADEN" 


(6051 

840  ab$»"1 " :ab=1  (10371 

850  GOSUB  210  [939] 

860  GOSUB  400 : GOSUB  1790  [18171 

870  t$ »"DATEI  LADEN  ?  <j/N>":GOSUB  500  (26051 


880  GOSUB  350 :IF  j$="j"  THEN  920  ELSE  IF  j  [4623] 
$="N"  THEN  890  ELSE  880 

890  t$ »"WEITERES  DIRECTORY  ANSEHEN  ?  <J/N>  [3561] 
": GOSUB  500 

900  GOSUB  550  1943) 

910  GOSUB  350 :IF  j$»"j"  THEN  860  ELSE  IF  j  [39981 
$*"N"  THEN  570  ELSE  910 

920  ac$="  " : 1 1  $ = " LADENDE  DATEI" :GOSUB  1250  (191  4  1 


930  IF  RIGHTS (ac$, 4) »".DAT"  THEN  950 
940  t$=" KEINE  DATEI  GEWAEHLT  l":GOSUB  480: 
GOTO  890 

950  t$ »"DATEI  "+CHR$( 24 )+"  "+ac$+"  "+CHR$( 
24)+"  WIRD  GELADEN, BITTE  WARTEN" :GOSUB  500 
960  an1»an:i=0 
970  OPEN IN  ac$ 

980  INPUT  #9,an3 
990  an2=an1+an3 

1000  IF  an2<1 80  AND  an3>FRE(0)/80  THEN  PRI 
NT  FRE( "" ) :CLS 

1010  IF  an3>FRE(0)/80  OR  an2>180  THEN  1020 
ELSE  1040 

1020  t$ »"SPEICHER  VOLL,  ANZAHL  ZU  LADENDER 
DATENSAETZE  ZU  GROSS" :GOSUB  470 
1030  an3=0:an2=an1 :GOTO  1220 
1040  FOR  i=an1 +1  TO  an2 
1050  FOR  s=1  TO  8 
1060  f$( i,s )=f$(an1 ,s) 

1070  LINE  INPUT  #9,f$(i,s) 

1080  NEXT  s,i 
1090  INPUT  #9 ,dt$ 

1100  CLOSEIN 
1110  an»an2 

1120  IF  anl >0  THEN  1130  ELSE  1190 
1130  GOSUB  460 
1140  FOR  i=1  TO  an 
1150  FOR  j=1  TO  an 

1160  IF  (f$(i,2)=f$(j,2)  AND  i <  »j )THEN  117 
0  ELSE  1180 

1170  FOR  g»i+1  TO  an+1 :FOR  s=1  TO  8;fS(g-1 
,s)=f$(g,s ) :NEXT  s,g:an=an-1 
1180  NEXT  j,i 

1190  IF  an>0  THEN  1200  ELSE  1210 
1200  t$=CHR${ 24 )+STR$(an1 )+"  "+CHR$(24>+" 
DATENSAETZE  IM  SPEICHER  "+CHR$ ( 24 ) +STR$ ( an 
-anl  )  +  "  "+CHR$.(  24  )  +  "  ZUSAETZLICH  EINGELESE 
N" : GOSUB  480 ;GOTO  1220 

1210  t$="KEINE  DATEN  GESPEICHERT! " -.GOSUB  4 
80 

1220  t$="SPEICHERKAPAZITAET  FUER  NOCH  CA. 
"+CHR$( 24 )+STR$ ( 1 80 -an ) +"  "+CHR$(24)+"  DAT 
ENSAETZE" : GOSUB  480 

1230  t$»"ZULETZT  BEARBEITET  AM  :  "+CHR$(24 
)+"  "+dt$+"  "+CHR$( 24): GOSUB  470 
1240  GOSUB  550 :GOTO  570 

1250  t$="COPY-CURSOR  MARKIERT  ZU  "+CHR$(24 

)+"  "+t1$+"  "+CHR$ ( 24 ) +"  LEER-TASTE  =  WEI 

TER"; GOSUB  470 

1260  FOR  i=1  TO  an4  STEP  5 

1270  FOR  p=0  TO  4 

1280  ta$ = INKEY$ :IF  ta$=CHR$ ( 224 )  THEN  1290 
ELSE  IF  ta$=CHR$ ( 32 )  THEN  1330  ELSE  1280 
1290  GOSUB  540: PRINT  CHR$(24)  h$(i+p)  CHR$ 
(24) ; :z30»z30+1 
1300  IF  abl =1  THEN  1350 

1310  IF  abl =2  THEN  hl  $ (k ) =h$ ( i+p) :h1 ( k ) »h ( 
i+p):k=k+1 :GOTO  1350 

1320  IF  ab=1  AND  z30  »0  THEN  ac$=h$ ( i+p) :CL 
S: RETURN 

1330  GOSUB  540 : h$ ( i+p ) »STRINGS (1 2, CHR$( 32) 
): PRINT  h$( i+p) ; 

1340  IF  abl =2  THEN  z31»z31+1 
1350  IF  i+p=an4  THEN  RETURN 
1360  NEXT  p,i 

1370  REM  •**  DATEI  ABSPEICHERN  ••• 

1380  aa$»"DATEI  ABSPEICHERN" 

1390  ab$="2":ab=2:z2=0 
1400  GOSUB  210 : GOSUB  370 

1410  INPUT  #1,"  WIE  SOLL  DATEI  HEISSEN  ? 
",ac$ 

1420  IF  ac$=" "  THEN  1410:IF  LEN(ac$)>8  THE 
N  ac$»LEFT$(äc$,8) 

1430  IF  INSTR( 1 ,ac$ ,".")<  =9  THEN  ac$»LEFT$ 


[1840] 

[22331 

13378] 

[773  1 

[565] 

(10631 

[917] 

(32271 

[3091  1 

[3343] 

[782] 
(1  2941 
[1043  ] 
[586] 
[1  484  ] 
[5361 
[806] 
[7521 
[2531 
[20831 
[968] 
[549] 
(10261 
(1211  1 

(29701 

[396  ] 
[1  420  ] 
[7462] 


[1958] 

[5870] 


[5328] 

[853  1 
[47991 


[921  ] 
[636] 
[4215] 


[2671 1 

[8801 
[3184  1 

[1001  1 

[2874] 

[1129] 
[875] 
(532  1 
[22971 
[1486  J 
[1100] 
[1308] 
[2282] 

[2024] 

[2457] 
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(ac$,INSTR(1 ,ac$,".")-1  ) 

1440  z2=z2  +  1 : IF  z2  >1  THEN  1500  116711 

1450  INPUT  #1 ,"  HEUTIGES  DATUM  :  ",dt$  (19721 

1460  GOSUB  410  (9621 

1470  GOSUB  420:IF  ta$-"A"  THEN  1480  ELSE  I  (5021  ) 

F  ta$="B"  THEN  1500  ELSE  1470 

1480  il -1 :i2=an:IF  an-0  THEN  1490  ELSE  157  (28491 
0 

1490  GOSUB  430 :GOTO  570  (16911 

1500  GOSUB  1510: GOTO  1570  (23431 

1510  GOSUB  390 : INPUT  #1,"  VON  DATENSATZ-NR  (60401 

.  ",i1:LOCATE  #1 ,40,1 : INPUT  #1,"BIS  DATENS 
ATZ-NR.  ",12 

1520  IF  art >0  THEN  1540  (574] 

1530  GOSUB  430  :GOTO  570  (1691  1 

1540  IF  12<i1  THEN  i2=i1  (1647) 

1550  IF  il  >an  OR  i2>an  OR  il  >180  OR  i2>180  (2646) 

THEN  1560  ELSE  RETURN 

1560  GOSUB  430:GOTO  1510  (17401 

1570  GOSUB  400  [964 J 

1580  t$="DATEN  WERDEN  GESPEICHERT,  BITTE  W  (28481 
ARTEN": GOSUB  500 

1590  an3=i2~i1 +1  (6681 

1600  OPENOUT  ac$+".DAT"  [12261 

1610  PRINT  #9,an3  (10021 

1620  FOR  i=i1  TO  12  [466] 

1630  FOR  s» 1  TO  8  (10431 

1640  PRINT  #9,f$(i,s>  (1067) 

1650  NEXT  s,i  1536] 

1660  PRINT  #9  ,dt$  (1124  1 

1670  CLOSEOUT  (9021 

1680  t$=CHR$(24)+STR$(an3)+"  "+CHR$(24 )♦"  (45721 

DATENSAETZE  ABGESPEICHERT" : GOSUB  480 
1690  IF  ta$="A"  THEN  RETURN  (15231 

1700  t$="WEITERE  EINZELDATEN  ABSPEICHERN  ?  (55821 
<J/N>":G0SUB  500 

1710  GOSUB  350 :IF  j$="J"  THEN  1410  ELSE  IF  (50171 
j$=HN"  THEN  RETURN  ELSE  1710 
1720  REM  •••  DATEN  ERFASSEN  UND  ERGAENZEN  (3258) 


1730  x=1 5:ab-3:r-0:z33=0  (11191 

1740  aa$= "DATEN  ERFASSEN  UND  ERGAENZEN"  (24411 


1750  ab$="3"  (318) 

1760  GOSUB  210  (9391 

1770  GOSUB  400  [964] 

1780  GOSUB  1790: GOTO  2020  [1650] 

1790  i=1 :k»1 :h1=1 :m=1 :p-0:z30=0:z31=0:z32=  [2996] 

0:ab1=0 

1800  DIM  h$ ( 65 ) ,h( 65 ) ,h1$ ( 65 ) ,h1 ( 65 )  (711] 

1810  PEN  0  :  CLS :  CAT ;  PEN  1  (1018  1 

1820  FOR  adr=&9E7D  TO  &A1FC  STEP  14  (16051 


1830  FOR  p=0  TO  10 
1840  a-PEEK( adr+p) 

1850  IF  a=0  THEN  1920 
1860  IF  a >1 59  THEN  a=a-128 
1870  h$(i)=h$(i)+CHR$(a) 

1880  NEXT  p 

1890  h(i  )=-PEEK(adr+1 1  ) 

1900  i=i+1 
1910  NEXT  adr 

1920  an4=INT((adr-&9E7D)/14) 

1930  FOR  i=1  TO  an4 

1940  h$ ( i ) =MID$ ( h$ ( i ) , 1 , 8 ) +" . " +MID$ ( h$ ( i ) , 
9,3) 

1950  NEXT 
1960  CLS 

1970  FOR  i=1  TO  an4  STEP  5 
1980  FOR  p=0  TO  4 

1990  LOCATE  3+p*1 5 , 1 0+i/5 : PRINT  h$(i+p) 
2000  NEXT  p,i 
2010  RETURN 

2020  t$ -"FILES  AUF  DIESER  DISKETTE  LOESCHE 
N  ?  <J/N>": GOSUB  500 

2030  GOSUB  350 :IF  j$="J"  THEN  2040  ELSE  IF 
j  $="N"  THEN  2130  ELSE  2030 
2040  abl =1 : tl $="LOESCHENDE  FILES":GOSUB  12 
50 

2050  t$="OBIGE  FILES  WIRKLICH  LOESCHEN  ?  < 
j/N»":GOSUB  500 

2060  GOSUB  350 :IF  j$="j"  THEN  2070  ELSE  IF 
j$-"N"  THEN  2120  ELSE  2060 
2070  CLS 

2080  FOR  i=1  TO  an4 

2090  IF  h$(i)=STRING$(12,"  ")  THEN  2110 


(6941 
(1621  1 
(6201 
(1  437  ] 
(1691  ] 
(364) 
(691  1 
[444] 
[547] 
(1573) 
(598) 
(25161 

(350  ) 
(91  1 
(921  1 
(6361 
(24401 
(5321 
(5551 
(43681 

[4102] 

[2091  ] 

[3862  ] 

(4421  1 

[91  ] 
(5981 
[1891  1 


2100  |ERA,@h$(i) 

2110  NEXT  i 

2120  GOSUB  550 :GOSUB  1790 


[8501 
(375  1 
(11431 


OOmTER  rinx 


Postfach  1461  *  7920  Heidenheim  *  Tel.:  (07321)  46664 
Bankverb.:  Dresdner  Bank  Heidenheim  (BLZ  61480001),  Kto.:  570142900 


BEKANNTMACHUNG 


Bei  unserem 

allseits  bekannten  und  beliebten  Telefon-Servie, 
dem  »Heißen  Draht«, 

können  Sie  Ihre  Fragen  und  Anregungen  von 

17.00  -  20.00  Uhr 

an  die  Redaktion 

von  Schneider  CPC  International  richten. 

Auf  Ihren  Anruf  freuen  sich: 

Michael  Ceol  (Joyce), 

Michael  Ebbrecht  (Hardware), 

Stefan  Ritter  (Redaktion), 

Thomas  Morgen  (Programmierung) 
und  Heinrich  Stiller  (Spiele/Adventures). 

Jeden  Mittwoch  am 

HEVSSCH  DRAHT 

Tel.  (056  51)87  02 
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Faktor 

ein  Lernprogramm,  bei  dem  in  spielerischer 
Weise  das  Zerlegen  von  Zahlen  in  ihre  Faktoren 
geübt  wird. 

Bei  diesem  Programm  tritt  ein  Spieler  gegen  den  Rechner 
an.  Begonnen  wird  mit  den  Zahlen  1  bis  20,  die  am  Bild¬ 
schirm  angezeigt  und  wie  folgt  in  ihre  jeweiligen  Teiler 
zerlegt  werden  können: 

Der  Spieler  teilt  dem  Rechner  durch  Eingabe  einer  belie¬ 
bigen  Zahl  aus  den  vorgegebenen  Zahlen  (z.B.  15)  mit,  daß 
er  diese  in  ihre  Teiler  zerlegen  will.  Die  Zahl  wird  markiert 
und  das  Programm  erwartet  nun  die  Eingabe  aller  Teiler 
der  Zahl  15.  Der  Spieler  gibt  also  die  Zahl  5,  dann  die  Zahl 
1  ein.  Beide  werden  aus  dem  Zahlenfeld  gelöscht  und  dem 
Spieler  auf  seinem  Punktekonto  gutgeschrieben.  In  unse¬ 
rem  Beispiel  hat  er  jedoch  übersehen,  daß  die  3  noch  nicht 
gelöscht  ist:  für  das  Spiel  also  noch  zur  Verfügung  steht 
und  ebenfalls  Teiler  von  15  ist.  Stattdessen  wählt  der  Spie¬ 
ler  z.B.  die  20,  um  für  diese  die  Teiler  zu  bestimmen.  Das 
Programm  erkennt  jedoch,  daß  die  3  als  Teiler  von  15  noch 
offen  ist,  löscht  sie  und  schreibt  sie  auf  sein  Punkte¬ 
konto. 

Ebenso  nimmt  es  sich  alle  Zahlen,  für  die  keine  Teiler 
mehr  im  Spielfeld  vorhanden  sind.  Das  Spiel  erfordert 
also  eine  hohe  Konzentration  und  eine  gute  Strategie,  da 
der  Computer  jeden  Fehler  des  Spielers  sofort  ausnutzt. 
Erlangt  man  mehr  Punkte  als  der  Rechner,  so  wird  die  An¬ 
zahl  der  zu  zerlegenden  Zahlen  erhöht.  Das  Ziel  ist  es,  die 
Stufe  mit  den  Zahlen  1  bis  60  zu  erreichen.  Na  denn  - 
gut  teil...! 

(Volker  Reher/MC) 


Eintippen  des  Programmes: 

Außer  Zeile  10  können  alle  REM-Zeilen  wegfallen.  Die 
Zeilen  210  -  380  sind  für  den  korrekten  Ablauf  des  Pro¬ 
grammes  ebenfalls  nicht  nötig. 

Bevor  Sie  das  Programm  mit  RUN  starten,  Abspeichern 
auf  Kassette  oder  Diskette  nicht  vergessen! 


Programmaufbau: 

Zeile  10  -  90: 

Einstellung  der  Farben  und  Hüllkurven.  Zeile  10  muß  ein¬ 
gegeben  werden,  da  hier  Spielstufe  "eingepoked”  wird. 

Zeile  400  -  420: 

Anzahl  der  Zahlen  wird  ermittelt.  Zeitlimit  errechnen. 

Zeile  580  -  600: 

Sind  noch  Zahlen  vorhanden,  die  geteilt  werden  können? 
Wenn  nicht,  dann  810  ->  restliche  Zahlen  für  Rechner! 

Zeile  610  -  800: 

Untersuchung  der  eingegebenen  Zahlen  und  Teiler  (siehe 
auch  REM-Zeilen!). 


Variablenliste: 

x,y  Laufvariable 

p  Pause 

x$,tx$  Hilfsvariable 

anz  Anzahl  der  zu  zerlegenden  Zahlen 

(20,30 . 60) 

a(anz)  Feld  für  zu  zerlegende  Zahlen 

zeit  Zeitlimit  in  Sekunden  (60*anz/10)- 

xp,yp  Koordinaten  für  Zahleneingabe 

ehr  ASCIT-Werte  für  Löschzeichen 

zahl  von  dieser  Zahl  sollen  die  Teiler  ermittelt 

werden 

teiler  Teiler  von  "zahl"  ? 

cpunkte  Punkte  des  Computers 

spunkte  Punkte  des  Spielers 

druck.  Hilfsvariable  zur  Ermittlung  der  Druck- 

hdruck  position  beim  Löschen. 


io  rem  •**••**** »3 •*****•«******•••*«*• 

20  REM  *  >>>  FAKTOR  <<<  * 

30  REM  *  ein  Lernspiel  von  * 

40  REM  *  V.  Reher  6.86  * 

50  REM  ******************************** 

60  BORDER  1 : INK  0,1; INK  1,1: INK  2, 1,24: INK 
3, 12,24: PAPER  0 : DEFINT  a-z 
70  MODE  0:PEN  1 : SPEED  INK  10,10 
80  ENV  1 ,12,1 ,50,12,-1 ,50:ENT  1,100,1,6,10 
0,-1, 6 

90  POKE  &1 80 , 50 

100  REM  ***********  Titel  ************* 

110  FOR  x*450  TO  100  STEP-1 0 : SOUND  7,x,4,, 
1 ,1 :NEXT: SOUND  7,400,1200,0,1,1 
120  LOCATE  1,25: PRINT  CHR$(207)M  Faktor  "C 
HR$ ( 207 ) ; 

130  FOR  y=1 6  TO  0  STEP  -2:FOR  x=0  TO  390  S 

TEP  2: REM  FOR  y=0  TO  16  STEP  2 

140  IF  TEST ( x , y )  THEN  PLOT  x *2 , y * 2  +  201  , 3 

150  NEXT :N£XT 

160  FOR  p=1  TO  7000 :NEXT 

170  INK  1 ,24 

180  MODE  1 

190  SPEED  INK  8,16 

200  PEN  1 

210  REM  ********  Spielregeln  ********** 

220  LOCATE  3, 25: PRINT"  Brauchst  Du  Anweis 
ungen  ";:PEN  2: PRINT"?  ";:PEN  1: INPUT" ",x$ 
230  IF  LOWER $(LEFT$(x$,1 ) )="n"  THEN  400 
240  IF  LOWER $(LEFT$(X$,1 ))<>" j"  THEN  180 


£1  672  ] 
£1035  ] 
[2006  ] 
£1103  ] 
[1582] 
£3841  ] 

£1732) 
£2670 ] 

£521  ) 
(1930  ] 
£3778) 

£31991 

£4946  ] 

£2526  ] 
£1022  ] 
£1374] 
£58] 
£506] 
£1246  ] 
£549  j 
[1988  ) 
[4732] 

£2336] 

£1756] 


250  CLS  :  INK  1,1  £71  9] 

260  PRINT :PRINT"Deine  Aufgabe  besteht  dari  £5554] 
n,  die" : PRINT"Teiler  selbstgewaehlter  Zahl 
en  zu  er-" 

270  PRINT"mitteln.  (z.B  1,2,7  als  Teiler  v  [3716] 
on  14)" 

280  PRINT :PRINT"Wenn  du  eine  Zahl  waehlst,  £7799] 
die  in":PRINT"Teiler  zerlegt  werden  soll, 
wird  diese"; 

290  PRINT"geloescht.  (markiert  als  ";CHR$(  £12898] 
24 ) CHR$ ( 203 )CHR$ (203 )CHR$ (24);")": PR INT" Al 
le  Teiler  die  du  findest,  werden" : PRINT"di 
r  gutgeschrieben." 

300  PRINT"Gibst  du  einen  falschen  Wert  ein  £11445) 
,  so" : PRINT"nimmt  sich  der  Rechner  die  res 
tlichen":PRINT"Teiler  der  Zahl." 

310  PRINT"Wenn  eine  Zahl  nicht  mehr  durch  [8473] 
eine" :PRINT"der  uebriggebliebenen  Zahlen  t 
eilbar  ist"; 

320  PRINT"faellt  sie  ebenfalls  an  den  Rech  £31681 
ner  ! " 

330  PRINT"Das  Gleiche  gilt  bei  Ueberschrei  [5773] 
tung":PRINT"des  Zeitlimits  1" 

340  PRINT: PRINT"Dein  Ziel  ist  es,  die  Stuf  [12756] 
en  von  20-60" : PRINT"Zahlen  der  Reihe  nach 
zu  schaffen.": PRINT: PRINT" (Falsche  Eingabe 


n  mit  'DEL'  loeschen)" 

350  INK  1 ,24  £58 ) 

360  PEN  3: LOCATE  6, 25: PRINT" >  Starten  mit  £4590] 
SPACE-Taste  <":PEN  1 

370  x$=INKEY$ : IF  x$=""  THEN  370  [2378] 

380  IF  ASC ( x$ ) <  >32  THEN  370  £1438  1 

390  REM  ****  Werte  initialisieren  *****  [1506] 

400  CLS  :anz  =  1  0  *VAL( CJIR$  (PEEK(  &1  80  )  )  )  [2382] 

410  DIM  a ( anz ) : zeit=60 *anz/1 0  £1302) 

420  FOR  x=1  TO  anz :a (x ) =x:NEXT  [1562] 
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430  REM  ******  Bildschirmmaske  ******** 

440  CLS 

450  LOCATE  1,17:PRINT  STRING$ ( 40 , 1 54  ) ; 

460  LOCATE  1,19:PRINT  STRINGS ( 40 , 1 54  ) ; 

470  LOCATE  1,24: PRINT  STRINGS ( 40 , 1 54  )  ; 

480  LOCATE  5,21: PRINT  "SPIELER" : LOCATE  29, 

21 : PR INT" COMPUTER ": GOSUB  1140 

490  LOCATE  3,18:PRINT"  Eingabe  ";:PEN  2 

: PRINT" >";: PEN  1: PRINT  "  Zeit:"z 

eit"sec" 

500  LOCATE  13, 20: PRINT  CHR$ ( 1 50 ) STRINGS <1 3 
,154 )CHR$ (156) 

510  LOCATE  13,21  :PRINT  CHR$(149)"  Zeitlimi 
t  :  "CHR$ (149) 

520  LOCATE  13, 22: PRINT  CHR$(149)"  "CHR$(24 
)USING"##";zeit/60; :PRINT"  "CHR$(24)"  Minu 
ten  "CHR$ (149) 

530  LOCATE  13, 23: PRINT  CHR$ (1 47 )STRING$ (1  3 
,154 )CKR$ (153) 

540  LOCATE  1,1:FOR  x=1  TO  anz : PRINT  USING" 
### #";a(x);:IF  x  MOD  10=0  THEN  PRINT: PRINT 
550  NEXT 

560  EVERY  50  GOSUB  1180 

570  REM  *********  teilbar  ?  **•**•**•• 

580  FOR  x=1  TO  anz/2:IF  a(x)<>0  THEN  merke 
r=-l :x=anz/2 
590  NEXT 

600  IF  NOT  merker  THEN  810 
61 0  merker=0 

620  xp=1 7 :yp=1 8 :chr=203 :GOSUB  960:zahl=VAL 
( tx$ ) 

630  IF  zahl >anz  THEN  GOSUB  1100:GOTO  620 
640  IF  a(zahl)=0  THEN  GOSUB  11 00: GOTO  620 
650  a (zahl ) =0 :druck=zahl :GOSUB  1110:GOSUB 
1070 

660  FOR  x=1  TO  zahl/2 : IF  a(x)<>0  AND  zahl 
MOD  x=0  THEN  x=zahl /2 :merker=-1 
670  NEXT 

680  IF  NOT  merker  THEN  GOSUB  1120:chr=233: 
GOSUB  1 070:cpunkte=cpunkte+zahl:GOSUB  1140 
:GOTO  580 
690  merker=0 

700  xp=17:yp=18:chr=233:GOSUB  960:teiler=V 
AL(tx$) 

710  IF  teiler  >anz  THEN  GOSUB  1090:GOTO  700 
720  IF  teiler >=zahl  THEN  740 
730  IF  zahl  MOD  teiler=0  AND  a(teiler)<>0 
THEN  a ( teiler ) =0 :druck=teiler :GOSUB  1090:G 
OSUB  1 070:spunkte=spunkte+teiler:GOSUB  114 
0 :GOTO  770 

740  FOR  x=1  TO  zahl/2: IF  a(x)<>0  AND  zahl 
MOD  x=0  THEN  DI: LOCATE  5 , 25 : PRINT"Die"zahl 
"hat  noch  weitere  Teiler  !":EI:FOR  p=1  TO 
1 000 : NEXT :druck=x: GOSUB  1 070 :a (x ) =0 :cpunkt 
e=cpunkte+x:GOSUB  11 20: GOSUB  1140 
750  NEXT : LOCATE  5,25: PRINT  SPACES (32); 

760  GOTO  580 

770  FOR  x=*1  TO  zahl/2 : IF  a(x)<>0  AND  zahl 
MOD  x=0  THEN  x=zahl/2 :merker=-1 
780  NEXT 

790  IF  NOT  merker  THEN  580 
800  merker=0 : GOTO  700 

810  LOCATE  15, 18: PRINT"  " : chr=233 :FOR  x=1 
TO  anz : IF  a(x)<>0  THEN  GOSUB  1 090 :druck=x: 
GOSUB  1 070 :cpunkte=cpunkte+a(x ) :GOSUB  1140 


[1 431  J 
191  ] 
[2268] 
[1828  ] 
(1891  ] 
[46501 

[5025] 


(3070] 
[4405 ] 
[4181  1 


(29631 

(3720  ] 

[350] 

[1079] 

[1997] 

[27831 

1350] 
11699] 
1517] 
(3540  ] 

[3217] 
[1931  ] 
[1587] 

[53191 

1350  J 
(4363) 


(517  ] 
(3985  ] 

[2117] 
[2093 1 
[7870  ) 


[14524  ] 


(18861 

(4481 

[53191 

[350] 

[1776] 

(13961 

[8685] 


820  NEXT 

830  REM  **•••••••  Spielende  ••••******• 

840  IF  PEEK(&180)=54  AND  spunkte >cpunkte  T 
HEN  LOCATE  5, 25: PEN  3: PRINT"  Du  bist 

ein  Genie  !  ";:PEN  1 :FOR  x=1000  TO  100 

STEP-5: SOUND  1 ,x, 5: NEXT: LOCATE  1,1:GOTO  8 
40 

850  LOCATE  1,25: PRINT  SPACES (39); 

860  IF  spunkte >cpunkte  THEN  LOCATE  9, 25: PR 
INT”Damit  hast  Du  gewonnen  l"; 

870  IF  spunkte <cpunkte  THEN  LOCATE  8, 25: PR 
INT"  Ich  habe  gewonnen  II" 

880  FOR  p=1  TO  6000 :NEXT 

890  LOCATE  1,25: PRINT"  Weiterspiel 

en  (j/n)  ";:PEN  2: PRINT"?  ";:PEN  1 

900  x$=INKEY$:IF  x$=""  THEN  900 
910  IF  LOWERS (x$ ) =" j "  AND  spunkte <cpunkte 
THEN  FOR  x=1  TO  639  STEP  2:MOVE  x,1:DRAW  x 
,399,1 : NEXT :RUN  400 

920  IF  LOWERS (x$)="j"  THEN  anz=anz/1 0+1 : PO 
KE  &1 80 , ASC(MID$ (STR$ (anz ) , 2 ) ) :F0R  x=639  T 
O  1  STEP  -2 :MOVE  x,1:DRAW  x , 399 , 3 :NEXT:RUN 
400 

930  IF  LOWERS (x$)<>"n"  THEN  900 
940  CLS: END 

950  REM  *******  Eingaberoutine  ******** 

960  tx$="": DI: LOCATE  xp,yp: PRINT"  ":LOCAT 
E  xp,yp:EI 

970  x$=INKEY$ : IF  x$=""  THEN  970 

980  x=ASC( LOWERS (x$ ) ) : IF  x=1 3  AND  VAL(tx$) 

=0  THEN  1050 

990  IF  x=1 27  AND  LEN(tx$)<1  THEN  1050 
1000  IF  x=1 3  THEN  RETURN 

1010  IF  X=1 27  THEN  tx$=LEFT$ ( tx$ ,LEN( tx$ ) - 
1):DI: LOCATE  xp,yp: PRINT  tx$"  ";:EI:GOTO  9 
70 

1020  IF  LEN { tx$ ) =2  THEN  1050 
1030  IF  x<48  OR  x>57  THEN  1050 
1040  tx$=tx$+x$: DI: LOCATE  xp,yp:PRINT  tx$; 
:EI:GOTO  970 

1050  SOUND  4,1000,5,7, ,,15:GOTO  970 
1060  REM  *******  zahlen  loeschen  «*•*** 
1070  DI : hdruck=VAL ( RIGHTS ( STR$ (druck-1 ) ,1 ) 
)  +  1 : LOCATE  hdruck*3+hdruck-1 ,INT( (druck-1 ) 
/10) *3+1  : PRINT  CHRS ( 24 )CHR$ ( ehr )CHR$ ( ehr )C 
HR$( 24): RETURN 

1080  REM  *********  sound  •*•****•****•• 

10  90  SOUND  1  ,500,8,1  5 :RETURN:REM  spunkte 
1100  SOUND  1 ,880,8,1 5, , ,1 5:RETURN:REM  fehl 
er 

1110  SOUND  1 ,100,1 0,1 5: RETURN: REM  loeschen 
1120  SOUND  1 ,2000, 8,1 5:RETURN:REM  cpunkte 
1130  REM  ****  Punktzahl  ausdrucken  *•** 
1140  DI : LOCATE  S,23:PRINT  USING"####" ; spun 
kte 

1150  LOCATE  30, 23: PRINT  USING"####" ; cpunkt 
e 

1160  RETURN 

1170  REM  ******•*•••*  uhr  *•**«**••**•* 

1180  DI: zeit=zeit-1 :IF  zeit<1  THEN  LOCATE 
33,18: PEN  2: PRINT"  0": LOCATE  1,25: PRINT" 
Das  Zeitlimit  ist  ueberschritten  !  " ;:F 

OR  p=1  TO  4000 :NEXT:PEN  1 :GOTO  810 
1190  LOCATE  33,18: PRINT  USING"###" ; zeit L 
OCATE  xp,yp: RETURN 


[350] 
119371 
[1071 1  ] 


[2232] 

[53271 

[48301 

[1184] 

[49601 

[2664] 

[5202] 


[6167 ] 


(1151  ) 
[578] 
[876  1 
[3288] 

(2658  ] 
[3977] 

[1556] 
[1006  ] 
[2987] 


[1529] 
[1006  ] 
[2626] 

[20331 
[851  ] 
[11701  ] 


[13893 
[1908] 
[2938  ] 

[3239  ] 
[1942  1 
[1673  ] 
13679] 

[3640] 

[5553 
[1706  ] 
[9145  1 


[4932] 


Schneider  CPC464  CPC  664  CPC  61 28  und  Joyce 

Wir  bieten  an: 

Finanzbuchhaltungsprogramm 

Erstes  Programm  mit  Rückgaberecht 

Ein  Vertrauensbeweis,  verbunden  mit  der  Qualität 
unseres  Programmes.  Programm  pflege  und  Service 

Information  02306/491 72 

nur  499,-  DM 

Automatische  Prüfroutinen  u.  Stornierung,  unzulässige 
Buchungen  nicht  möglich,  daher  auch  von  Laien 
sofort  anwendbar. 

DAST-Mobil  GmbH  Abt  EDV,  Saarbrückerstr.  56, 4670  Lünen 

STAR  Drucker  Typenraddrucker 

NL-10  80St  1 20Z/S  848,-  Olivetti  35Z/S  2376- 

SD-10  80St160Z/s  1  132,-  Olivetti  55Z/S  2950,- 
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Pascal-Kurs 

Kontrollstrukturen 

Bis  jetzt  haben  wir  die  notwendigen  Re¬ 
geln  kennengelernt,  die  für  einfache 
Pascalprogramme  gebraucht  werden: 
Wie  sieht  ein  Pascalprogramm  aus, 
welche  einfachen  Datentypen  gibt  es 
und  was  kann  man  mit  ihnen  machen. 
Was  sind  Ausdrücke,  Anweisungen  und 
Anweisungsblöcke. 

Diese  Kenntnisse  sollen  nun  in  einem 
kleinen  Programm  angewandt  werden, 
wobei  sofort  wieder  neue  Elemente  von 
Pascal  auftreten:  die  Kontrollstruktu¬ 
ren.  Ein  Computer  kann  eben  nicht  nur 
die  Befehle  eines  Programms  stur  der 
Reihe  nach  ausführen,  sondern  auch 
prüfen,  ob  gewisse  Bedingungen  ein¬ 
getreten  sind  und  entsprechend  an 
einer  anderen  Stelle  des  Programmes 
fortfahren.  Damit  sind  Wiederholun¬ 
gen  und  nur  bedingte  Ausführung  von 
Programm  teilen  möglich. 

Bei  dem  Beispielprogramm  "micro- 
calc"  (s.  Listing)  handelt  es  sich  um 
einen  ganz  einfachen  'Taschenrech¬ 
ner”,  der  die  vier  Grundrechenarten 
beherrscht.  Es  besitzt  ein  Rechenregi¬ 
ster,  dessen  Inhalt  durch  die  gewünsch¬ 
te  Operation  mit  einem  einzugeben¬ 
den  Operanten  manipuliert  wird. 
Außerdem  kann  man  sich  die  letzten 
14  Rechenschritte  anzeigen  lassen, 
den  "Rechner"  neu  starten  und  ihn 
"ausschalten”  Doch  sehen  wir  uns 
das  Programm-Listing  näher  an, 
wobei  wir  uns  hauptsächlich  auf  die 
neuen  Sprachelemente  konzentrie¬ 
ren  wollen  (die  Zeilennummern  ein¬ 
schließlich  dem  folgenden  Doppel¬ 
punkt  dienen  nur  zur  Orientierung!): 
Beim  Programmkopf  (1:)  wurde  die 
Dateideklaration 

(INPUT,  OUTPUT) 
weggelassen,  da  sie  bei  Verwendung 
der  Standard-Ein-/ Ausgabe-Geräte 
bei  den  meisten  Implementationen 
nicht  notwendig  ist. 

Im  Vereinbarungsteil  (3:  -  15:)  wer¬ 
den  die  notwendigen  Konstanten  und 
Variablen  deklariert,  deren  Verwen¬ 
dungszwecke  den  Kommentaren  zu 
entnehmen  sind.  Neu  ist  der  Daten¬ 
typ  der  Variablen  oplist ,  reglist  und 
jk tlist.  Sie  gehören  nicht  mehr  zu  den 
einfachen,  skalaren  Datentypen,  son¬ 
dern  bilden  jeweils  ein  Feld  (engl.  ”ar- 
ray"),  die  Daten  strukturRez7m/?g\  Ein 
solches  Feld  ist  vergleichbar  mit  einem 
Regal,  in  dessen  Etagen  gleichartige 
Dinge,  z.B.  nur  Bücher,  aufbewahrt 
werden.  Die  einzelnen  Etagen  sind 
fortlaufend  durchnumeriert  und  kön¬ 
nen  in  unserem  Beispiel  jeweils  ein 
Element  aufnehmen.  Durch  die  klein- 
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ste  und  größte  Etagen-Nummer  er¬ 
gibt  sich  die  Anzahl  der  Etagen  bzw. 
die  Größe  des  Regals.  Um  jemanden 
etwas  in  eine  Etage  des  Regals  plazie¬ 
ren  oder  aus  ihr  herausnehmen  zu 
lassen,  muß  ihm  die  Etagen-Nummer 
angegeben  werden.  Für  diese  Num¬ 
mern  verwenden  wir  ab  jetzt  den  Be¬ 
griff  Index. 

Mit  der  Vereinbarung 

fktlist  :  ARRAY  [l..maxremj  OF 
CHAR; 

wird  für  die  Variable  fktlist  ein  Feld 
angelegt,  deren  einzelne  Elemente 
vom  Type  CHARacter  (Zeichen) 
sind.  Die  Anzahl  der  Elemente,  die 
das  Feld  aufnehmen  kann,  wird 
durch  die  in  den  eckigen  Klammern 
angegebenen  Indexgrenzen,  getrennt 
durch  zwei  Punkte,  bestimmt:  hier  15 
Elemente,  da  der  Index  von  1  bismajc- 
rem=  15  läuft.  Dieses  Feld  sowie  die 
Felder  oplist  und  reglist,  deren  Ele¬ 
mente  vom  Typ  REAL  sind,  dienen 
zur  Speicherung  der  durchgeführten 
Rechenschritte,  um  auf  Wunsch  den 
Werdegang  einer  Rechnung  zu  ver¬ 
folgen.  fktlist  enthält  die  Opera¬ 
tionszeichen,  reglist  den  Inhalt  des 
Rechenregisters  und  oplist  den  Ope¬ 
randen,  mit  dem  die  Rechnung  aus¬ 
geführt  wurde.  Die  jeweiligen  Ele¬ 
mente  der  drei  Felder  mit  dem  glei¬ 
chen  Index  geben  so  einen  Rechen¬ 
schritt  wieder.  Ein  einzelnes  Element 
eines  der  Felder  wird  in  Pascal  jeweils 
durch  die  Angabe  des  entsprechen¬ 
den  Indizes  in  eckigen  Klammern 
hinter  dem  Variablennamen  erreicht, 
wie  dem  Listing  zu  entnehmen  ist. 
Damit  wären  wir  schon  bei  dem  er¬ 
sten  BE  GIN  (17:),  was  -  wie  wir  uns 
erinnern,  hier  den  Anfang  des  An¬ 
weisungsteiles  markiert.  Mit  den 
nächsten  drei  Zuweisungen  (19:  -21:) 
werden  einige  Variablen  initialisiert: 
//ri/ür  enthält  den  Index  des  nächsten 
freien  Elementes  der  drei  Feldvariab- 
len,  die  zur  Speicherung  der  Rechen¬ 
schritte  dienen:  am  Anfang  also  die 
ersten  Elemente.  Das  Rechenregister 
reg  wird  auf  Null  gesetzt  und  der 
Programmende-Schalter  ende  auf 
den  Booleschen  Wert  FALSE 
(falsch). 


Schleifchen  drumm... 


Bei  der  nächsten,  bis  jetzt  unbekann¬ 
ten  WFIILE-Anweisung,  (22:)  handelt 
es  sich  um  eine  Wiederholungsan¬ 
weisung  (Schleife).  Solche  Anweisun¬ 
gen  dienen,  wie  der  Name  schon  sagt, 
zur  mehrfachen  Abarbeitung  be¬ 
stimmter  Programmteile.  Pascal 
kennt  drei  verschiedene  Arten 
von  Wiederholungsanweisungen,  die 
sich  in  ihrer  Ausführung  auch  we- 
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sentlich  unterscheiden  und  entspre¬ 
chend  verwendet  werden.  Grundsätz¬ 
lich  besteht  folgendes  Problem:  Weiß 
man  genau  oder  kann  man  genau  er¬ 
mitteln,  wie  oft  ein  Programmteil 
durchlaufen  werden  muß  -  oder  ist 
der  Abbruch  einerWiederholungvon 
einer  Bedingung  abhängig,  von  der 
man  den  Zeitpunkt  des  Eintretens 
nicht  Vorhersagen  kann. 

Für  den  ersten  Fall  bietet  Pascal  die 
FOR- Anweisung,  die  schon  aus  einem 
früheren  Beispiel  bekannt  ist  Bei  ihr 
wird  eine  Zählvariable  von  einem 
Startw'ert  an  laufend  um  1  erhöht,  bis 
der  gewünschte  Endwert  überschrit¬ 
ten,  die  Bedingung  zähler>en dwert 
wahr  ist.  Solange  bzw.  so  oft  wird  die 
der  FOR-Anweisung  folgende  An¬ 
weisung  bzw.  der  Anweisungsblock 
ausgeführt: 

FOR  zähler  :=  start-ausdruckTO  end- 
ausdruck  DO 
Anweisung; 

In  "microcalc”  wird  diese  Wiederho¬ 
lungsanweisung  zur  Auflistung  der 
maximal  14  letzten  Rechenschritte 
benutzt  (39:  -  43:).  Die  Anzahl  der  Re¬ 
chenschritte  wird  in  der  Variablen 
listptr  implizit  mitgezählt  (51 :),  da  sie 
den  Index  des  nächsten  freien  Feldes 
im  Speicher  enthält. 

Ist  die  obere  Speichergrenze  maxrem 
erreicht  (52:),  so  behält  listptr  diesen 
Wert  (60:).  Die  nötigen  Wiederholun¬ 
gen  zur  Ausgabe  der  letzten  Rechen¬ 
schritte  sind  also  immer  bekannt:  die 
Wiederholung  muß  listptr-1  mal  aus¬ 
geführt  werden. 

Das  gleiche  gilt  für  den  Fall,  daß  der 
Speicher  voll  ist,  also  mehr  als  15 
Schritte  ausgeführt  wurden.  In  die¬ 
sem  Fall  müssen  die  Inhalte  der  Ele¬ 
mente  mit  den  Indizes  2  bis  15  in  die 
Elemente  1  bis  14  umgespeichert  wer¬ 
den,  damit  am  Speicherendc  wieder 
Platz  für  den  nächsten  Rechenschritt 
vorhanden  ist  (54:  -  59:). 

Bei  diesen  zwei  Beispielen  ist  der 
Startwert  des  Zählers  kleiner  als  der 
Endwert  und  der  Zähler  wird  immer 
um  1  erhöht.  Es  kann  aber  auch  die 
Notwendigkeit  auftreten,  den  Zähler 
von  einem  Startwert  zu  einem  kleine¬ 
ren  Endwert  herunterzählen  zu'  las¬ 
sen.  Auch  dies  ist  möglich,  mit  der 
FOR-Anweisung,  in  dem  man  TO 
mit  DOWNTO  ersetzt: 

FOR  zähler  :=  start-ausdruck 
DOWNTO  end-ausdruck  DO 
Anweisung; 

Bei  der  Verwendung  der  FOR- 
Anweisung  ist  unbedingt  zu  beach¬ 
ten,  daß  innerhalb  der  Schleife  die 
drei  Kontrollgrößen  der  FOR- 
Anweisung  zähler ,  startwert  und  end¬ 
wert  in  Ausdrücken  zwar  benutzt  wer¬ 
den  können,  ihre  Werte  aber  nicht  ver- 


i 


ändert  werden  dürfen.  Auch  ist  der 
Wert  der  Zählvariablen  nach  Abbruch 
der  FOR-Anweisung  Undefiniert:  sie 
kann  also  nicht  direkt  in  den  der 
Schleife  folgenden  Ausdrücken  be¬ 
nutzt  werden.  Des  weiteren  wird 
immer  vor  der  Ausführung  der 
Schleife  die  Abbruch-Bedingung 
zäh ler> endwert  überprüft.  Ist  also  der 
Startwert  größer  als  der  Endwert  bei 
der  aufwärts  zählenden  FOR-Anwei¬ 
sung,  so  wird  diese  übersprungen  und 
nicht  ausgeführt!  Entsprechendes  gilt 
für  die  abwärts  zählende  FOR-An- 
weisung. 


...solange  es  geht... 

Doch  zurück  zur  WH  ILE- Anweisung 
(22:).  Diese  Wiederholungsanweisung, 
wie  auch  die  folgende  REPEAT- 
Anweisung,  ist  für  den  zweiten  Pro¬ 
blemfall  vorgesehen:  Die  Anzahl  der 
Wiederholungen  ist  nicht  vorhersag¬ 
bar.  sondern  von  Bedingungen  ab¬ 
hängig,  die  sich  irgendwann  einmal 
einstellen  -  so  Gott  will.  Die  kom¬ 
plette  Form  der  WHILE-Anweisung 
lautet: 

WHILE  (Boolescher  Ausdruck)  DO 
Anweisung; 

Die  Wiederholung  der  Schleife  ist 
hier  abhängig  vom  Ergebnis  des 
Booleschen  Ausdrucks:  solange  er 
wahr  (TRUE)  ist,  wird  der  Programm¬ 
teil  wiederholt,  ist  er  falsch  (FALSE), 
so  wird  er  übergangen.  Hier  ist  eine 
Verwandschaft  zur  FOR-Anweisung 
zu  erkennen.  Bei  beiden  Wiederho¬ 
lungsanweisungen  wird  die  Ab¬ 
bruchbedingung  geprüft,  bevor  die 
Schleife  ausgeführt  wird.  Dies  hat  zur 
Folge,  daß  unter  Umständen  die 
Schleife  überhaupt  nicht  ausgeluhrt 
wird. 

Bei  "microcalc"  wird  durch  die 
WHILE-Anweisung  WHILE  NOT 
ende  DO  die  Ausführung  des  Pro¬ 
grammes  solange  fortgesetzt,  bis  die 
Boolesche  Variable  ende  den  Wert 


TRUE  angenommen  hat  (wir  erin¬ 
nern  uns,  daß  die  Boolesche 
Funktion  NOT  die  Negierung  eines 
Booleschen  Wertes  bewirkt:  aus 
TRUE  wird  FALSE  und  aus  FALSE 
wird  TRUE!). 


...bis  nicht’ s  mehr  geht. 


Die  nächste  Kontrollstruktur  in  dem 
Programm  ist  die  REPEAT-Anwei- 
sung  (24;),  die,  wie  schon  erwähnt, 
ebenfalls  eine  Wiederholungsanwei¬ 
sung  ist,  was  bei  der  Übersetzung  der 
vollständigen  Anweisung: 

REPEAT 

Anweisung; 

UNTIL  (Boolescher  Ausdruck) 

auch  sehr  deutlich  wird:  WIEDER¬ 
HOLE  Anweisung  BIS  Bedingung  er¬ 
füllt  ist.  Im  Gegensatz  zu  der  FOR- 
und  WHILE-Anweisung,  wird  bei 
dieser  die  Abbruchbedingung  der 
Schleife  erst  am  Ende  selbiger  geprüft 
und  entschieden,  ob  eine  Wiederho¬ 
lung  angebracht  ist  oder  nicht.  Dies 
bedeutet,  daß  die  Schleife  mindestens 
einmal  ausgeführt  wird.  Im  Beispiel¬ 
programm  wird  mit  Hilfe  dieser  Schlei¬ 
fe  auf  die  Eingabe  eines  gültigen  Ope¬ 
rationszeichens  gewartet:  Der  aktuelle 
Inhalt  des  Rechenregisters  sowie  die 
erlaubten  '‘Funktionszeichen''  wer¬ 
den  angezeigt  und  dann  die  Eingabe 
eines  Zeichens  in  fkt,  beendet  durch 
drücken  der  ENTER-  oder  RETURN- 
Taste,  erwartet.  Ist  dies  geschehen,  so 
wird  mit  dem  Booleschen  Ausdruck 
fkt  IN  l’+7-Y 

überprüft,  ob  das  in  fkt  enthaltene 
Zeichen  in  der  Menge  der  gültigen 
Zeichen  enthalten  ist.  Ist  dies  nicht 
der  Fall,  so  ist  das  Ergebnis  des  Aus¬ 
drucks  FALSE  und,  die  Schleife  wird 
nocheinmal  ausgeführt,  und  nochein- 
mal  und... 

In  vielen  Fällen  kann  man  eine  belie¬ 
bige  der  drei  Wiederholungsan¬ 
weisungen  FOR,  WHILE  und  RE¬ 
PEAT  einsetzen.  wobei  ihre  Beson- 
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derheiten  sie  für  manche  Fälle 
ungeeignet  machen.  So  könnten  die 
zwei  FOR-Schleifen  im  Beispiel  auch 
mit  der  WHILE-  oder  REPEAT- 
Anweisung  programmiert  werden. 
Allerdings  würden  diese  Lösungen 
mehr  Anweisungen  benötigen  und 
somit  langsamer  abgearbeitet  wer¬ 
den.  Die  WHILE-Anweisung  ist  ge¬ 
eignet  den  Durchlauf  einer  Schleife 
zu  unterbinden,  wenn  vor  der  Anwei¬ 
sung  schon  eine  Bedingung  bestehen 
kann,  die  zu  Problemen  innerhalb 
der  Schleife  führen  kann,  wie  z.B.  die 
Division  durch  Null  (WHILE  nen 
ner<>0  DO).  Da  die  REPEAT-Schlei- 
fe  mindestens  einmal  ausgeführt 
wird,  eignet  sie  sich  besonders  zur 
Nachprüfung  von  Ereignissen,  die 
erst  bei  der  Abarbeitung  der  Schleife 
auftreten,  wie  in  unserem  Beispiel. 
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Die  Möglichkeit  der  Wiederholung 
von  Anweisungen  reicht  aber  noch 
nicht  zur  Lösung  aller  Probleme  aus, 
die  bei  der  Programmierung  anfallen. 
Man  muß  auch  in  der  Lage  sein,  ab¬ 
hängig  von  bestimmten  Bedingun¬ 
gen,  verschiedene  Anweisungen  ab¬ 
arbeiten  zu  lassen.  Vor  diesem  Pro¬ 
blem  steht  "microcalc”  nach  Verlas¬ 
sen  der  REPEAT-Anweisung  (30:), 
wenn  also  ein  gültiges  Funktionszei¬ 
chen  eingegeben  wurde  und  nun  die 
entsprechende  Operation  ausgeführt 
werden  muß.  Das  gleiche  Problem  er¬ 
gibt  sich,  wenn  der  Speicher  für  die 
Rechenschritte  voll  ist  (52:):  in  dem 
Fall  muß  Platz  im  Speicher  geschaf¬ 
fen  werden,  anderenfalls  nicht. 


Wenn  -  dann  -  sonst... 


Zur  Auswahl  unter  zwei  Möglichkei¬ 
ten  bietet  Pascal  die  IF-Anweisung 
an: 

IF  (Boolescher  Ausdruck)  THEN 
Anweisung  A 
ELSE 

Anweisung  B 


Neu  —  Neu  —  Neu  —  Neu! 
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Schach  ,,3-D  Clock  Chess11 
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mit  ausführi.  Einbauanltg.  119,- 

-  2.  Laufwerk  FO-2, 1  MB  579,- 

Paplerführung  JOYCE-Drucker 
für  exakten  Papiereinzug  und 
Wiederholgenauigkeit  37,- 

Bildschirmfilter  für 

-  GT  64/65  bis  12/85  40,- 

-  CTM  644  69,- 

-  JOYCE  79,- 

3"-Disk.  CF2,250  KB  10  St.  100,- 
3"-Disk. CF2DD,  1  MB  5St.  99,- 
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"Kurse . 

Wenn  also  der  Boolesche  Ausdruck 
den  Wert  TRUE  ergibt,  so  wird  der 
Programmteil  nach  THEN  ausge¬ 
führt.  Ist  das  Ergebnis  FALSE,  so 
wird  der  ELSE-Programmteil  ab¬ 
gearbeitet,  wobei  dieser  Teil,  wie  bei 
dem  zweiten  Beispiel  (52:),  entfallen 
kann,  wenn  keine  alternative  Aktion 
notwendig  ist. 

Dagegen  bildet  die  Auswahl  der  ent¬ 
sprechenden  Programmteile  für  die 
gewünschte  Operation  einen  größe¬ 
ren  Aufwand.  Hier  müssen  mehrere 
Möglichkeiten  berücksichtigt  wer¬ 
den.  Dazu  kann  man  die  IF- 
Anweisung  verschachteln.  Nach  je¬ 
dem  THEN  oder  ELSE  kann  ja  wie¬ 
der  jede  beliebige  Anweisung  stehen, 
also  auch  wieder  eine  IF-Anweisung 
(33:).  Auf  diese  Weise  werden  im  Bei¬ 
spiel  die  Funktionen  ausgeführt,  die 
keinen  Rechenschritt  darstellen  (31:- 
43:): 

WENN  das  Programm  beendet  werden 
soll»  DANN 

schalte  Ende-Schalter  an  (TRUE), 
SONST  WENN  neu  angefangen  wer¬ 
den  soll,  DANN 

bringe  "microcalc”  in  den  Anfangs¬ 
zustand 

SON ST  WENN  letzte  Schritte  gezeigt 
werden  sollen,  DANN 
zeige  sie 

SONST  Rechne! 


Falls  Fall  1,  Fall  2... 


Eine  andere  Möglichkeit,  den  Rech¬ 
ner  aus  mehreren  Alternativen  die 
richtige  auswählen  zu  lassen,  bietet 
die  CASE-Anweisung: 

CASE  Ausdruck  OF 
Wert  a  :  Anweisung  A; 

Wert  b  :  Anweisung  B; 

Wert  c  :  Anweisung  C; 

END 

Mit  dieser  Anweisung  kann  man  ab¬ 
hängig  vom  Wert  eines  Ausdrucks, 
eine  von  mehreren  Alternativen  aus¬ 
führen  lassen.  Dabei  muß  der  Aus¬ 
druck  aber  für  jede  Alternative  einen 
genau  definierten  Wert  liefern,  was 
bei  der  Unterscheidung  der  Rechen¬ 
operatoren  (62:  -  67:)  gegeben  ist: 
FALLS  Rechenoperation  IST 
4-  :  Addition; 

-  :  Subtraktion; 

ENDE 

Wer  aufgepaßt  hat.  wird  bemerkt  ha¬ 
ben,  daß  die  IF-THEN-ELSE-IF- 
Konstruktion  (31:  -  43:)  ebenfalls  mit 
Hilfe  der  CASE-Anweisung  program¬ 
miert  hätte  werden  können,  da  es  sich 
bei  den  möglichen  Alternativen  eben¬ 
falls  um  eindeutig  zuordbare  Werte 


wie  bei  der  CASE-Anweisung  (62:  - 
67:)  handelt.  Diese  Struktur  soll  aber 
trotzdem  gezeigt  werden,  da  unter 
Umständen  die  Ausführung  ver¬ 
schiedener  Anweisungen  nicht  auf¬ 
grund  von  eindeutigen  (exakten) 
Werten,  sondern  bei  Einhaltung  von 
z.B.  Toleranzgrenzen  geschehen  soll, 
die  womöglich  auch  erst  noch  errech¬ 
net  werden  und  somit  in  Variablen 
gespeichert  sein  müssen.  Hier  versagt 
die  CASE-Anweisung!  Die  Werte  vor 
dem  Doppelpunkt,  die  die  Alternati¬ 
ven  abdecken  (CASE-Marken),  müs¬ 
sen  nämlich  Konstanten  sein.  Der 
Wert,  den  der  Ausdruck  nach  CASE 
liefert,  muß  ein  skalarer  Datentyp, 
darf  aber  keine  reelle  Zahl  sein. 

Die  CASE-Marken  dürfen  jeden  be¬ 


liebigen,  nicht-reellen  Wert  haben; 
also  auch  "Werte",  die  vom  Program¬ 
mierer  durch  die  Deklaration  neuer 
Datentypen  mit  derTYPE-Vereinba- 
rung  kreiert  wurden.  Ebenso  kann 
eine  Alternative  durch  mehrere  Mar¬ 
ken  selektiert  werden. 

Wenn  in  "microcalc"  außer  dem  /- 
Zeichen  auch  das  :-Zeichen  für  die 
Division  zugelassen  worden  wäre, 
würde  die  entsprechende  Alternative 
so  aussehen: 

:  reg  :=  reg  /  op; 

Eingesetzt  wird  die  CASE-Anweisung 
in  der  Regel  dort,  wo  ein  Ausdruck 
einen  Wert  von  n  genau  definierten 
Werten  annehmen  kann.  Anderen¬ 
falls  muß  die  IF-Anweisung  herange¬ 
zogen  werden.  (MC) 


1 

FKOGRAM  mikrocolc; 

3 

CONST  maxrem  =  15;  (*  Anzahl  zu  speichernde  Rechenschritte  *) 

4 

digits  =  10;  (»  Anzeigegroesse  #> 

5 

6 
7 

nkomma  =3;  (*  davon  3  Nachkommaste 1  len  *> 

VAR  op,  reg  :  REAL;  (»  Operant,  Rechenregister  *> 

8 

fkt  :  CHAR;  (*  eingegebenes  Funktionszeichen  *> 

9 

ende  :  BOOLEAN;  <*  Programmende-Schalter  #> 

10 

i,  (*  Laufvariable  *> 

11 

listptr  :  INTEGER;  («  zeigt  auf  naechsten  freien  Speicher 

12 

in  Spe icherl isten  *) 

13 

oplist,  (*  Speicherlisten..,  *> 

14 

reglist  :  ARRAY  [  1 .. maxrem]  OF  REA*,; 

15 

16 

fktllst  :  ARRAY  [  1 ..  maxrem]  OF  CHAR; 

17 

BEGIN 

18 

<+  Initialisieren;  *) 

19 

listptr  :=  1; 

20 

reg  :=  0; 

21 

ende  : =  FALSE; 

22 

VHILE  NOT  ende  DO  BEGIN 

23 

(»  auf  gueltige  Funkt ionseingabe  warten:  »> 

24 

REPEAT 

25 

VRITELN;  VRITELN  ('Register  =  reg: digits: nkomma) ; 

26 

VRITELN;  VRITELN  ('+  -  *  /  1 listen  n)eu  e)nde'>; 

27 

VRITELN;  VRITE  <’ Welche  Funktion?  1 >; 

28 

READLN  (fkt); 

29 

UNTIL  fkt  IN  'l'.'n'.'e']; 

30 

(#  Funktion  ausfuehren:  *> 

31 

IF  fkt  =  ' e 1  THEN 

32 

ende  :=  TRUE  (*  ’mikrocalc'  beenden  *> 

33 

ELSE  IF  fkt  =  ' n*  THEN 

34 

BEGIN 

35 

reg  :=  0;  <*  neu  anfangen  *> 

36 

listptr  :=  1; 

37 

END 

38 

ELSE  IF  fkt  =  ' 1 •  THEN 

39 

FOR  i  : =  1  TO  listptr-1  DO  <#  letzte  Schritte  listen  *> 

40 

BEGIN 

41 

VRITE  (i : 2 , ‘ reglist  C 1] : digits:  nkomma,  '  '); 

42 

VRITELN  <  f ktlist  ti],'  oplist  C 1]  : digits:  nkomma)  ; 

43 

END  <*  FOR  *) 

44 

ELSE 

45 

BEGIN  (*  Rechnung:  Operant  einiesen  *> 

46 

VRITE  (' Vert  ?  ' ) ; 

47 

READLN  (op) ; 

48 

reglist  [listptr]  :=  reg;  (*  letzte  Zustaende  in  Listen  #) 

49 

fktlist  [listptr]  :=  fkt;  <*  speichern.  *> 

50 

oplist  [listptr]  :=  op; 

51 

listptr  :=  SUCC  (listptr);  <*  naechster  freier  Speicher  «) 

52 

IF  listptr  >  maxrem  THEN  (*  wenn  Speicher  voll,  dann...  * ) 

53 

BEGIN  (*  Elemente  2-15  der  Listen  *) 

54 

FOR  i  : =  1  TO  maxrem  -  1  DO  (•  nach  1-14  verschieben  *) 

55 

BEGIN 

56 

reglist  ti]  :  =  reglist  ( SUCC  (i>); 

57 

fktlist  C  ±  3  :=  fktlist  [SUCC  <i)l; 

58 

oplist  t i3  :=  oplist  CSUCC  (i>); 

59 

END  (■*  FOR  *> ; 

60 

listptr  :=  maxrein; 

61 

END  (*  IF  *); 

62 

CASE  fkt  OF  (*  Rechen-Operation  ausfuehren  *) 

63 

'+'  :  reg  :=  reg  +  op; 

64 

• :  reg  : =  reg  -  op; 

65 

' :  reg  :=  reg  *  op; 

66 

'  / '  :  reg  : =  reg  /  op; 

67 

END  («  CASE  *); 

68 

END  <*  ELSE  *>; 

69 

END  (*  VHILE  *) ; 

70 

END. 
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Serielles  Interface 
RS-232C 

Nachdem  nun  schon  so  ziemlich  jeder 
Hardware-Hersteller  Deutschlands  min¬ 
destens  eine  RS-232-Schnittstelle  für 
den  CPC  anbietet,  hat  sich  Amstrad  aus 
England  einmal  bequemt  auch  so  ein 
Ding  zu  bauen. 

Was  dabei  herauskam,  kann  sich  wirk¬ 
lich  sehen  lassen. 

Eine  RS-232,  die  allen  Ansprüchen  ge¬ 
recht  wird.  Der  kleine  Kasten  im  typi¬ 
schen  CPC-Design  wird  über  ein 
Flachbandkabel  mit  dem  Rechner 
verbunden.  Das  hat  Vorteile  in  der 
"Wackelsicherheit".  Erfreulicherweise 
wurde  bei  dem  Modul  auch  der  durch¬ 
geschleifte  Expansion  Port  nicht  ver¬ 
gessen,  so  daß  Zusatzmodule  wie 
Maxam  oder  die  Floppy  weiter  ver¬ 
wandt  werden  können.  Nach  dem  An¬ 
stecken  und  Einschalten  erscheint 
neben  der  bekannten  Einschaltmel¬ 
dung  noch  der  Hinweis,  daß  sich  nun 
auch  noch  eine  RS-232  am  Rechner 
befindet. 

Diese  Einschaltmeldung  läßt  darauf 
schließen,  daß  sich  in  dem  kleinen 
Kasten  neben  der  Steuerungselektro¬ 
nik  auch  noch  ein  weiteres  ROM  be¬ 
findet.  Die  Vermutung  bewahrheitet 
sich  tatsächlich.  Zur  Freude  aller 
Programmierer,  wurden  die  Befehle 
zur  Steuerung  der  Schnittstelle  in 
ROM  Nr.  6  untergebracht  und  stehen 
sofort  zur  Verfügung.  Dabei  hat  man 
in  der  Hardware-Entwicklungsabtei¬ 
lung  auch  an  die  CP/M-Fähigkeit  des 
Schneiders  gedacht.  Die  Schnittstelle 
wird  von  CP/M  2.2  bedingungslos 
anerkannt  und  unter  CP/M  Plus  ist 
ein  kurzer  Patch  notwendig,  der  mit¬ 
tels  SID  und  einer  ausgezeichneten 
Installationsbeschreibung  auch  von 
Anfängern  problemlos  vorgenom¬ 
men  werden  kann.  Nach  der  Zuwei¬ 
sung  der  neuen  List  Device  mit  PIP 
werden  alle  Ausgaben  über  das  Modul 
geleitet  Drucker,  Plotter  und  Modems 
arbeiten  sofort. 

Besonders  stark  arbeitet  die  RS-232 
jedoch  unter  dem  ganz  normalen 
Amsdos.  Bei  den  Befehlen  wurde  wirk¬ 
lich  nichts  vergessen. 

Mit  ISIO  kann  man  mit  wenigen  Pa¬ 
rametern  die  Baudrate,  die  Anzahl 
der  Stopbits,  die  Parität  und  alles  an¬ 
dere  vereinbaren.  Für  Handshaking 
und  die  verschiedenen  Übertra¬ 
gungsprotokolle  gibt  es  Befehle  wie 
IFULLDUPLEX  und  IHALFDUP- 
LEX.  Zahlreiche  Anwendungsbei¬ 
spiele  im  ausgezeichneten  deutschen 
Handbuch  geben  Aufschluß  darüber, 
welche  Parameter  für  welche  Anwen¬ 
dung  nötig  sind.  Mit  ISETSIO.75, 


1200,1,7.1,0  wird  beispielsweise  eine 
Anpassung  an  das  BTX-Netz  vorge¬ 
nommen.  Wesentlich  einfacher  geht 
es  noch  mit  dem  Befehl  IPRESTEL. 
PRESTEL  ist  so  eine  Art  englisches 
BTX  und  entspricht  in  den  Parame¬ 
tern  ungefähr  dem  deutschen  Stan¬ 
dard.  Nach  Eingabe  des  Befehls  setzt 
sich  der  Rechner  automatisch  die 
richtigen  Parameter,  stellt  den  Bild¬ 
schirm-Mode  ein,  übernimmt  die 
BTX-üblichen  Farbregister  und  geht 
danach  automatisch  in  einen  Termi¬ 
nal-Emulator,  der  sowieso  zur  festen 
Einrichtung  des  Moduls  gehört. 
Konversation  mit  anderen  Minirech¬ 
nern  wie  IBM,  VAX  oder  einer  GRAY 
erfolgt  über  diesen  Terminal-Emula¬ 
tor,  der  den  CPC  mit  einer  Art  TOS 
ausstattet  und  somit  eine  Alternative 
zu  teuren  Mehrplatz-Terminals  dar¬ 
stellt. 

Will  man  an  die  RS-232  einen  Plotter 
oder  Drucker  anschließen,  so  benö¬ 
tigt  man  keine  umständlichen  Trei¬ 
ber.  Durch  Eingabe  von  ISERIALL 
wird  jede  Druckerausgabe  auf  das 
Modul  verbogen  und  alle  Steuerse¬ 
quenzen  werden  über  den  Stream  8 
geschickt.  Handshaking  und  Echoing 
lassen  sich  an-  und  abschalten.  Kon¬ 
taktschwierigkeiten  des  CPC  dürften 
hiermit  endgültig  der  Vergangenheit 
angehören. 

Selbst  in  der  Kommunikation  mit  sol¬ 


chen  trivialen  Computern  wie  einem 
Sinclair  Spectrum  oder  einem  Aeorn  B 
zeigt  sich  der  CPC  nun  recht  gesellig. 
Übertragungs-  und  Emulationspro¬ 
gramme  übersteigen  die  Länge  von 
knapp  40  simplen  Basic-Zeilen  nicht 
mehr  und  werden  als  Beispiel-Listings 
im  Handbuch  mitgeliefert. 
Überhaupt  läßt  das  Handbuch  kein¬ 
erlei  Fragen  offen.  Von  den  Grundla¬ 
gen  der  RS-232-Praxis  bis  hin  zur 
Verwendung  der  Schnittstelle  in  M- 
Code  wird  dem  Anwender  jede  benö¬ 
tigte  Information  gegeben. 

Schade  fand  ich  nur.  daß  zum  Liefer¬ 
umfang  der  Schnittstelle  alles  gehört, 
bis  auf  das  dringend  benötigte  Verbin¬ 
dungskabel  zur  Peripherie. 
Allerdings  kann  hier  jedes  handels¬ 
übliche  Kabel  benutzt  werden,  und 
auch  darüber,  wie  man  ein  solches 
Kabel  mit  zwei  Steckern  und  ein 
wenig  Draht  selbst  bauen  kann,  gibt 
das  Handbuch  bereitwillig  Auskunft. 
Die  RS-232-Schnittstelle  erweitert 
den  Horizont  des  CPC  im  wahrsten 
Sinne  des  Wortes.  Durch  die  Vielzahl 
von  Befehlen  und  die  universelle  An- 
wendungsmöglichkeit  zeigt  sich  die 
serielle  Datenübertragung  von  einer 
leutseligen  Seite  und  erhält  erstmalig 
die  Möglichkeit,  von  einer  dunklen 
Domäne  wirrer  DFÜ-Freaks  zu  einer 
der  Selbstverständlichkeiten  aufzu¬ 
steigen,  die  ein  moderner  Computer 
nun  einmal  bieten  muß.  (TM) 
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COPYSHOP  im  Detail 
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-  Hardcopy  in  4  (!)  Formaten:  DIN  A4,  DIN  A5, 

13,5x8.5  cm  und  21 ,5x13,5  cm 

-  superschnelle  Hardcopy-Routine:  DIN  A4  in  ca.  4  Minuten 

-  arbeitet  in  allen  3  Modes 

-  Anpaßmenue  für  JEDEN  Matrixdrucker 

-  32  Farbraster  über  Menue  wählbar 

-  Grafikeditor 

-  komfortable  Pull-Down-Menues 

-  schnelle  Fill-Routine 


-  Cut  and  Paste 

-  beliebige  Ausschnittvergrößerungen 

-  Bildschirm  invertieren 

-  selbstrelozierbare  Hardcopy-Routinen  für  eigene  Programme 

-  neue  Save-  und  Load-Routinen  erkennen  automatisch  Mode 
und  Farbwerte 

-  Freezer  -  saved  auf  Tastendruck  Screenshots  aus  laufen¬ 
den  Programmen,  die 

anschließend  ausgedruckt  werden  können 


Und  die  Weltneuheit:  Hardcopy-Simulator  auf  dem  Bildschirm!! 

Sie  können  sich  Ihre  Hardcopy  vor  dem  endgültigen  Ausdruck  auf  dem  Bildschirm  ansehen! 

COPYSHOP  ist  das  ultimative  Hardcopy-Programm  für  alle  Schneider  Computer. 
Erhältlich  auf  Kassette  (DM  59,-)  und  3"-Diskette  (DM  69,-) 
inkl.  ausführlicher  Bedienungsanleitung. 

COPYSHOP  gibt  es  im  guten  Fachhandel  oder  direkt  bei: 

DMV-Verlag,  Fuldaer  Straße  6,  3440  Eschwege 

BEI  DIREKTZUSTELLUNG  ZZGL  DM3,-  PORTO/VERPACKUNG.  PER  NACHNAHME  ZZGL  NACHNAHMEGEBÜHR 
IN  DAS  AUSLAND  IST  NACHNAHME  NICHT  MÖGLICH 

Händleranfragen  erwünscht! 

* - 


Das  Ohr 

zur  Welt 


Ergänzend  zum  AnschluOvorschlag 
einer  Amateurfunkstation  an  die  CPCs, 
wird  sich  dieser  Beitrag  mehr  mit  den 
theoretischen  Grundlagen  und  den  An¬ 
wendungsmöglichkeiten  der  CPCs  auf 
dem  Gebiet  des  Amateurfunkes  be¬ 
schäftigen.  Bevor  wir  uns  jedoch  in  die 
Einzelheiten  stürzen,  wollen  wir  uns 
zuerst  den  Amateurfunk  im  allgemei¬ 
nen  anschauen. 


Hobby  -f  High  Tech  = 
Amateurfunk 


Den  Amateurfunk  schlechthin  gibt  es 
eigentlich  gar  nicht.  Die  Aufteilung 
beginnt  schon  bei  den  Lizenzklassen. 
Man  unterscheidet  zwischen  den 
Klassen  A,  B  und  C. 

Hierbei  stellt  B  die  höchste  Klasse 
dar;  A  repräsentiert  das  Mittelfeld 
und  C  nimmt  die  unterste  Stufe  ein. 
Die  Lizenzklassen  unterscheiden 
sich  durch  ihre  Leistungsmerkmale, 
die  durch  eine  Bandbegrenzung 
(CA)  und  die  maximale  Anodenver¬ 
lustleistung  (A,B)  dargestellt  sind. 


A  :  CW  nur  auf  80  m  Band  bis  50  W 
Anodenverlustleistung 
B  :  CW  auf  allen  Bändern  bis  150  W 
Anodenverlustleistung 
C  :  Kein  CW,  nur  von  144  MHz  bis  22 
GHz  im  Amateurband 


Genauere  Informationen  zu  den 
Lizenzklassen,  über  abzulegende 
Prüfungen  und  andere  Einzelheiten 
erhalten  Sie  bei  Ihrer  zuständigen 
Oberpostdirektion  beim  Referat  für 
Funktechnik. 


Einfach  nur  Funken? 


Bei  Ihrer  Entscheidung,  ein  weiteres 
Hobby  zu  beginnen,  (denn  Sie  wollen 
doch  wohl  nicht  Ihren  CPC  im  Stich 
lassen),  sollten  die  Kosten  nicht 
unbeachtet  bleiben,  die  das  Amateur¬ 
funken  mit  sich  bringt.  Man  kann 
hier  zwischen  Anschaffungs-  und 
laufenden  Kosten  unterscheiden. 


iiimiiiimiiiiiiH 


Während  die  laufenden  Kosten  nur 
3,-  DM  monatlich  betragen,  tun  sich 
bei  der  Anschaffung  wahre  Abgründe 
auf.  Wollen  Sie  unbedingt  mit  neuen 
Geräten  beginnen,  so  geraten  Sie 
schnell  in  einen  Bereich  um  die 
10.000,-  DM.  Dies  ist  dann  natürlich 
auch  eine  Top- Ausrüstung  und  bein¬ 
haltet  selbstredend  alles  bis  hin  zur 
Richtantenne. 

Glücklicherweise  ist  der  Gebraucht¬ 
gerätemarkt  mehr  als  gut  bestückt,  so 
daß  Anfänger  auch  schon  für  nur 
einige  hundert  D-Mark  loslegen  kön¬ 
nen.  Hierbei  reicht  es  aber  wahr¬ 


scheinlich  nur  zu  einer  billigen 
Drahtantenne. 

Bewohner  einer  Mietwohnung  müs¬ 
sen  neben  den  Anschaffungskosten 
wohl  auch  noch  einigen  Ärger  wegen 
der  Antennengenehmigung  des  Ver¬ 
mieters  über  sich  ergehen  lassen. 


Freiheit,  die  ich  meine 


Haben  Sie  dann  alle  Hindernisse  wie 
Prüfungen,  Anschaffungen  und  An¬ 
tennenaufbau  glücklich  hinter  sich 
gebracht,  steht  die  Welt  des  Äthers 
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zen  des  Anstandes  und  des  guten  Ge¬ 
schmacks  verletzen.  Beachten  Sie 
jedoch  alle  diese  Vorschriften,  so  ste¬ 
hen  Ihnen  einige  technische  Möglich¬ 
keiten  offen,  Ihre  funktechnischen 
Ambitionen  zu  verwirklichen. 


trotzdem  nicht  völlig  schrankenlos 
vor  Ihnen  offen,  denn  da  gibt  es  Ein¬ 
schränkungen,  die  zum  Teil  doch 
recht  beachtlicher  Natur  sind. 

Da  wären  zum  Ersten  die  technischen 
Bestimmungen,  wie  das  Einhalten 
des  Mindesstörabstandes  von  -61  dB. 


Des  weiteren  muß  grundsätzlich  ein 
Logbuch  geführt  werden  (kann  von 
der  Post  kontrolliert  werden).  Drit¬ 
tens  ist  während  aller  QTH’s  (Ge¬ 
spräche)  mind.  alle  10  Minuten  das 
eigene  Rufzeichen  zu  senden.  Dies  ist 


eine  Hilfe  für  die  Bandwacht,  die  die 
Post  stellt  und  anscheinend  im 
Dauerbetrieb  alle  Bänder  überwacht, 
da  ihr  auch  nicht  der  kleinste  Verstoß 
der  Funkamateure  zu  entgehen 
scheint. 

Unter  die  Rubrik  "Verstöße”  fallen 
alle  Abweichungen  von  den  techni¬ 
schen  Vorschriften  sowie  alle  Ver¬ 
fehlungen  auf  dem  Gebiet  der  Funk- 
Benimmregeln.  So  sollte  nicht  über 
Politik  gesprochen  werden  und  eben¬ 
sowenig  darf  das  Gespräch  ins.  Vul¬ 
gäre  abrutschen  und  damit  die  Gren- 


Von  CW  bis  UKW 


Da  gibt  es  RTTY,  CW,  Sprechfunk, 
UKW,  SSTV,  Funkfaxen  und  ATV. 
Um  Ihnen  diese  Abkürzungen  zu  er¬ 
klären,  nun  eine  kleine  Auflistung, 
wobei  ider  Sprechfunk  wohl  keiner 
Erklärung  mehr  bedarf. 

Beginnen  wir  mit  RTTY.  Dies  kommt 
von  RadioTeleTYpe  und  ist  die 
Umsetzung  des  Femschreibdienstes 
der  Post  auf  den  Amateurfunk.  Die 
einzelnen  Buchstaben  und  Ziffern 
werden  in  5-,  7-  oder  8  Bit-Zeichen 
umgesetzt.  Diese  Zeichen  werden 
nun  als  High-  oder  Low-Bits 
übertragen. 

Dies  geschieht  meistens  mit  45/45 
Baud.  Es  kann  der  ASCII-  oder  der 
Baudot-Code  verwendet  werden, 
wobei  dem  Baudot-Code  zumeist  der 
Vorrang  gegeben  wird.  Für  den 
ungeübten  Laien  hören  sich  die 
RTTY-Zeichen  wie  sehr  schnelle 
Morsezeichen  an. 


tü  tü  tüü  =  CW 


Genau,  unter  CW  versteht  man  die 
Übertragung  einer  Nachricht  mittels 
Morsesignalen.  Dies  kann  nach  alter 
Väter  Sitte  mit  der  Hand  getastet  wer¬ 
den,  bietet  jedoch  andererseits  ein 
ideales  Einsatzgebiet  für  den  CPC. 
Ein  Amateurfunker  der  Klasse  B  muß 
60  Bpm  (Bits  pro  Minute  =  Zeichen 
pro  Minute)  senden  können  und 
unser  Rechner  sollte  nicht  langsamer 
sein. 


ATV  und  Konsorten 


Die  weiteren  Möglichkeiten  fasse  ich 
hier  nur  kurz  zusammen,  da  sie  keine 
so  idealen  Einsatzmöglichkeiten  für 
unseren  Rechner  bieten. 

Da  wäre  als  erstes  der  UKW-Funk.  Es 
handelt  sich  um  Sprechfunk,  der  mit 
jedem  dafür  ausgelegten  Radio  emp¬ 
fangen  werden  kann. 

Ganze  Grafiken  lassen  sich  mit 
Funkfax  übertragen.  Der  Name 
kommt  von  dem  Telefaxdienst  der 
Post,  und  die  Leistungsmerkmale 
sind  auch  ungefähr  die  gleichen, 
nämlich  die  Übertragung  von  Gra¬ 
phik  und  Text  von  einem  Kopierer 
zum  anderen. 
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Live  und  in  Farbe 


Sollten  Sie  mit  nur  Ton  und  Text  / 
Graphik  nicht  zufrieden  sein,  so  wer¬ 
den  Ihnen  SSTV  und  ATV  mehr 
Zusagen.  SSTV  ist  die  Übertragung 
von  Femseh-  und  Videostandbil¬ 
dern,  z.B.  als  Hintergrund  oder  Titel¬ 
bild  für  Ihre  Sendungen.  Weiterhin 
erlaubt  ATV  sogar  das  Ausstrahlen 
eigener  Femsehshows  oder  Kriminal¬ 
aufführungen. 


Einst  und  Heute 


Doch  nun  genug  der  allgemeinen  Er¬ 
klärungen,  kommen  wir  endlich  zum 
Einsatz  des  CPCs.  Dem  Einsatz  der 
Computer  ging  beim  R  I  1Y  der  Ein¬ 
satz  von  alten  und  ausgedienten 
Fernschreibern  voraus.  Diese  waren 
zwar  ziemlich  billig,  jedoch  auch  sehr 
laut,  so  daß  ein  Einsatz  dieser  Geräte 
auf  einsam  gelegene  Einfamilienhäu¬ 
ser  beschränkt  bleiben  mußte. 


Nach  diesen  Fernschreibern  kamen 
spezielle  Geräte  auf  den  Markt,  die 
die  RTTY-Zeichen  auf  einem  Mo¬ 
nitor  lesbar  machten.  Diese  Geräte 
waren  zwar  sehr  benutzerfreundlich, 
aber  in  der  Anschaffung  sehr  Briefta¬ 
schen  feindlich.  Nach  dem  Erschei¬ 
nen  der  Homecomputer,  und  beson¬ 
ders  nach  deren  Preisverfall,  über¬ 
nehmen  diese  mehr  und  mehr  auch 
den  Amateurfunkbereich,  was  ich  mit 
diesem  Artikel  noch  unterstützen 
möchte. 


Die  Hardware 


Den  Anschluß  Ihres  Rechners  an  ein 
Amateurfunkgerät  finden  Sie  im  Pa¬ 
rallelartikel  "Funkgeräte  am  CPC” 
beschrieben,  dieser  sollte  also  kein 
Problem  mehr  darstellen.  Jetzt  fehlt 
Ihnen  nur  noch  die  passende 
Software  und  schon  kann’s  losgehen. 

Neben  der  Möglichkeit,  sich  Pro¬ 
gramme  nach  eigenen  Vorstellungen 


selbst  zu  erstellen,  gibt  es  auch  noch 
den  Weg  des  Erwerbs  eines  komplet¬ 
ten  Hard/Softwarepaketes. 

So  z.B.  ein  RTTY-Interface.  Es  be¬ 
steht  aus  dem  RTTY-Interface  und 
der  RTTY-Software.  Für  CW  werden 
Zusatzprogramme  angeboten,  die 
voll  kompatibel  zum  Interface  sein 
sollten.  Die  Baudrate  sollte  bis  300 
Baud  regelbar  sein,  und  es  sollte 
ASCII  und  Baudot  verwendet  werden 
können.  Im  CW-Modus  sollten  bis  zu 
240  Bpm  gesendet  und  150  Bpm  emp¬ 
fangen  werden  können. 

Sowohl  unter  RTTY  als  auch  unter 
CW  sollten  Texte  fest  gespeichert  wer¬ 
den  können,  welches  eine  große  Ar¬ 
beitserleichterung  darstellt. 

Vielleicht  konnten  Sie  aus  den  gege¬ 
benen  Informationen  einige  Anre¬ 
gungen  für  ein  neues  Hobby  bezie¬ 
hen;  für  Rückfragen  und  weitere 
Informationen  steht  Ihnen  die  Re¬ 
daktion  der  Schneider  CPC  Interna¬ 
tional  jederzeit  zur  Verfügung. 

(R.Nitsche/ME) 


Der  CPC  664/6 1 28  an  4er  Amateurfunkstation 


Zu  Beginn  der  Abhandlung,  wie  man 
den  CPC  an  die  Amateurfunkstation 
anschließen  kann,  ist  folgender  Hin¬ 
weis  notwendig:  In  den  Bestimmungen 
über  den  Amateurfunkdienst  1985,  her¬ 
ausgegeben  vom  Bundesministerium 
für  das  Post-  und  Fernmeldewesen  in 
5300  Bonn  1,  bearbeitet  vom  Fernmel¬ 
detechnischen  Zentralamt,  6100  Darm¬ 
stadt  K.Nr.:  651  447  100-9,  sind  die 
Auflagen  genau  festgelegt.  Diese  Bro¬ 
schüre  kann  kostenlos  beim  Postamt 
angefordert  werden. 

Da  der  Amateurfunkdienst  auch  ein 
großes  Experimentierfeld  offen  läßt 
bzw.  unterstützt,  wird  nachfolgend  an¬ 
hand  des  leicht  abgeänderten  Pro¬ 
gramms  ”Quickplan”  Schneider  Inter¬ 
national,  Heft  1/86,  Seite  54,  der 


Hardware-Anschluß  einschließlich 
Softwaresteuerung  dargelegt. 

Gerade  dieses  Programm  unterstützt 
die  Fehlersuche  in  einem  Amateur¬ 
funkgerät  von  OM  zu  OM  (Old  Man) 
und  ist  geeignet,  die  Frist  der  ver¬ 
zweifelten  Fehlersuche  zu  verkürzen, 
da  nunmehr  z.B.  Teile  eines  Schaltpla¬ 
nes  hin  und  zurück  gesendet  werden 
können. 

1.  Technische  Ausführung: 

Benötigt  wird  an  Bauteilen: 

a)  1  Stück  Diodenstecker  5-polig 
(Anschluß  CPC) 

b)  1  Stück  4-pol.  oder  5-pol. 
abgeschirmtes  NF-Kabel 
ca.  1  m  lang. 

c)  1  Stück  Mikrofonstecker  z.B. 


NC-514  Japannorm  für 
FT225RD,  IC245E,  SR-C430, 
FT-901  DM  mit  FTU-901R  usw. 
Z.B.  kann  beim  FT-901  DM  ohne 
weiteres  der  Phone-Patch-Anschluß 
genommen  werden,  so  daß  das  lä¬ 
stige  Umstöpseln  Mikrofon/CPC- 
Kabel  entfällt.  Allerdings  wird  an¬ 
statt  des  Steckers  NC-514  ein  Klin¬ 
kenstecker  3,5  mm  für  den  Laut¬ 
sprecheranschluß  und  1  Stück 
Cinch-Stecker  zur  Phone-Patch- 
Buchse  benötigt. 

d)  1  Stück  Widerstand  470  KOhm 

1  Stück  Widerstand  ca.  3  KOhm 
(dieser  Widerstand  muß  je  nach  Ge¬ 
rät  geändert  und  angepaßt  werden.) 

e)  1  Stück  Mikroschalter  2  X  Um 
1  Stück  Mikroschalter  1  X  Um 

f)  1  Stück  Gehäuse  37x  72x  28 
Bezugsquelle  Bürklin  München 
Best.  Nr.  70H145  oder  Eigenbau 
z.B.  aus  Leiterplattenmaterial 
a)  -  f)  Kabelverbindung  CPC 

664/6 1 28  -  Amateurfunkstation 
(siehe  Bild  2). 

Bei  CPC  464  ist  ein  Eingriff  in  das  Ge¬ 
rät  notwendig,  da  keine  Tapebuchse 
vorhanden  ist.  Es  dürfte  nicht  schwer¬ 
fallen,  den  Einbau  vorzunehmen,  da 
den  Leitungen  zum  Tape  entspre¬ 
chende  Drähte  parallel  angelötet 
werden  können,  die  an  eine  noch  ein¬ 
zubauende  Diodenbuchse  geführt 
werden. 


270  PRINTH,”  Zeichnen->1  E*pf.->2  Senden->3  Aendern->4  Speichern->5  laden->6” 
280  in$=INKEY$+”  ”:IF  ASCfin$)<4?  DR  ASC(in$))54  then  280 
300  ON  z  GOTO  1300,2390,2330,1310,2600,2650 
2310  ttt  DATEN  SENDEN  ttt 

2330  PRINTI1,  ’  ’  Bitte  Taste  druecken” 

2340  oTAPEiCALL  &BB1B: CLStl s PRIMTtl , ’ ’  Daten  Herden  gesendet  'WARTEN” 

2350  SPEED  WRITE  0:SAVE”!  n* , b, S.COOO, &3FFF: GOTO  270 
2370  ’ttt  Daten  empfangen  tt* 

2390  CLSftl : PR INT#1 ,  ’  ’  Daten  Herden  empfangen  'WARTE  N”  :öTAPE:L0AD” 

2600  ’ttt  Speichern  auf  Diskette  Itf 

2610  öDISC:SAVE  n$,b,WOOOflc3FFF:BOTO  270 

2650  ’ftl  Laden  von  Diskette  ttt 

2660  CISI1: INPUT#!,”  Bitte  Programunamen  angeben  <  ENTER  >”n$ 

2670  öDISC: LOAD  n$, I.COOO: GOTO  270 
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2.  Ausgangspegel: 

Um  die  Anpassung  zum  Mikrofon 
vorzunehmen,  sollte  der  Widerstand 
R315/1  KOhm  des  665  (6128)  gegen 
einen  470  KOhm  Widerstand  ersetzt 
werden.  (Siehe  Bild  3.) 

Diese  Anpassung  ist  nicht  nur  für  den 
Senderanschluß  von  Vorteil,  denn 
nunmehr  reicht  auch  der  Pegel  für  die 
meisten  Cassettengeräte  aus! 

3.  Sendung: 

Gesendet  wird  in  Frequenzmodu¬ 
lation  (FM).  Die  Bandbreite  reicht 
aus,  um  Daten  mit  1000  Baud  (Speed 
WriteO)  fehlerfrei  empfangen  zu  kön¬ 
nen.  Bei  den  Testsendungen  mit  dem 
Austausch  von  Bildern  (Zeichnun¬ 
gen)  wurde  die  Signalstärke  S7  nicht 
unterschritten. 

Die  Baudrate  kann  ohne  weiteres  auf 
700  Baud  herabgesetzt  werden  (siehe 
Data  Becker  Intern),  was  sicherlich 
bei  schlechten  Empfangsverhältnis¬ 
sen  vorgenommen  werden  muß. 

Für  Besitzer  des  CPC  464  wird  auf  das 
Programm  ”Es  geht  auch  schneller”, 
Schneider  International,  Heft  1/86, 
Seite  58,  verwiesen.  Es  hat  den  Vorteil, 
daß  bei  der  Aussendung  das  Bild 
nicht  in  2  kByte  Blöcke  zerstückelt 
wird.  (H.  Ziegler/ME) 


Skizze  b.) 


* - - — - co.  Im  5odr.  Kabel  - / 

Bild  2:  Der  Kabelanschluß  ebgeschi rm  t 


Skizze  c.) 


•  AUFTRAGSBEARBEITUNG  BM  5.0/T  fürJOYCE 
u  CPC  6128  wahlweise  mit  einem 
oder  zwei  Laufwerken  Das  Programm 
verwaltet  Firmen  —  Kunden  —  Artikel 
u  Lieferantenstamm 
Ausgedruckt  werden:  Angebot  —  Auf¬ 
tragsbestätigung  —  Lieferschein  — 
Rechnung  —  Proformarechnung  — 
Wareneingang  —  Gutschrift  u.  Bestel¬ 
lung. 

Umsatz  u.  Rohgewinnstatistiken  über 
Kunden  —  Lieferanten  —  u  Artikel,  La¬ 
gerbestandsliste,  Bestellvorschläge. 
Kunden  —  Lieferanten  —  Artikel  — 
Preis  und  Inventurlisten 
Der  Speicherplatz  wird  dynamisch 
verwaltet,  d  h  auf  einer  178  KB- 
Diskette  können  z.B  300  Kunden/Lie¬ 
feranten  u  1300  Artikel  bearbeitet  wer¬ 
den  Für  jeden  Stamm  kann  auch  eine 
separate  Diskette  angelegt  werden. 
Beim  JOYCE+  werden  1000  Kunden, 
600  Lieferanten  u  5000  Artikel  ver¬ 
waltet. 

3”Diskette  mit  Handbuch  398,— DM 


•  ADRESSVERWAUUNG  für  Joyce,  CPC  6128, 
664  u.  464  m  einem  oder  zwei  Lauf¬ 
werken  Verwaltung  von  1100  Adres¬ 
sen  mit  einem  Laufwerk  —  2000 
Adressen  mit  zwei  Laufwerken  — 
mehrere  Sortiermöglichkeiten  —  Info¬ 
zeilen  —  Serienbrief  —  Adressaufkle- 
berdruck 


Warum  sollten  Sie  mit  weniger 
zufrieden  sein? 
Kommerzielle  Software  für  die 
Schneider  CPC  Computer 
und 

JOYCE 


3”Diskette  mit  Handbuch 


98  -  DM 


Gegen  Vorlage  eines  Pflichtenheftes 
erstellen  wir  spezielle 
Branchenlösungen  für  Ihren  Joyce, 
IBM  und  IBM-kompatible  Computer 

“BYTE  ME“  Computersysteme 
Wilhelmstraße  7, 

5240  Betzdorf, 

Telefon:  02741/23537  &  23107 


•  VEREINSVERWAUUNG  für  JOYCE,  CPC 
6128, 664  u.  464  m.  einem  oder  zwei 
Laufwerken 

Verwaltung  von  750  Mitgliedern  mit 
einem  Laufwerk  —  1500  Mitgliedern 
mit  zwei  Laufwerken  —  mehrere  Sor¬ 
tiermöglichkeiten  —  Infozeilen  —  Se¬ 
rienbrieferstellung  —  Adressaufkle- 
berdruck  —  Druck  von  Bankeinzugs¬ 
formularen  und  Überweisungs¬ 
trägern  -  Einnahme-  und  Aus¬ 
gaberechnung  max.  60  Konten. 
3"Diskette  mit  Handbuch  198,—  DM 

•  FIBU  BM  1.0/T  für  JOYCE/6128/664  u. 
464  u  5 1/4”  (Vortex)  wahlweise  mit  ei¬ 
nem  oder  zwei  Laufwerken  150  Kon¬ 
ten  —  bis  5-stellige  Kontonr.  —  Konten¬ 
rahmen  frei  wählbar  — 1750  Buchun¬ 
gen  pro  Monat  —  8  Steuerschlüssel 
mit  2  Nachkommastellen  definierbar 
—  Druckeranpassung. 
Druckerausgaben:  Konten  einzeln  (auch 
Bildschirm)  —  Konten  alle  bei  Monats¬ 
abschluß  —  Kontenplan  —  Umsatz¬ 
steuervoranmeldung  (auch  am  Bild¬ 
schirm)  —  Buchungsjournal  —  Sal¬ 
denliste  —  Monats-  und  Jahres¬ 
abschluß  mit  Saldenvortrag  (Er¬ 
öffnungsbilanz)  —  BWA. 

3"Diskette  mit  Handbuch  278—  DM 
Alle  Programme  sind  in  TURB0-PASCAL  ge¬ 
schrieben. 

Demoversionen  für  FIBU;  AUFTRAGSBE¬ 
ARBEITUNG,  VEREINSV.  ä  25.00  DM 
Fragen  Sie  bitte  den  Preis  für  Komplett¬ 
pakete  an! 
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dk’tronics 
Speicherer¬ 
weiterung 
im  Test 

Großen  Anteil  am  Erfolg  der  ersten 
Schneider  CPC  Computer  hatte  das 
mit  der  Diskettenstation  mitgelieferte 
Betriebssystem  CP/M  2.2.  Durch  die 
erhöhte  Speicherkapazität  beim  CPC 
6128  und  beim  Joyce  war  die  Möglich¬ 
keit  zur  Nutzung  von  Software  unter 
dem  Betriebssystem  CP/M  3.0  alias 
CP/M  plus  gegeben.  Für  die  CPCs  464 
und  664  mit  ihren  64  K  RAM  blieb  die¬ 
ses  verbesserte  Betriebssystem  nutz¬ 
los. 

Die  englische  Firma  dk'tronics,  die 
sich  bereits  durch  den  Lightpen  und 
den  Sprachsynthesizer  einen  Namen 
gemacht  hat,  eröffnet  nun  mit  ihrer 
Speichererweiterung  für  den  x64er- 
User  die  Welt  des  CP/M  plus. 

Anders  als  die  Speichererweiterun¬ 
gen  von  Data  Media  und  Vortex  wird 
diese  nicht  fest  in  den  Computer  ein¬ 
gebaut,  sondern  am  Expansionport 
der  Rechner  aufgesteckt.  Floppy- 
Controller  beim  464  und  andere  Er¬ 
weiterungen  kann  man  nach  Belie¬ 
ben  am  durchgeführten  Bus  an¬ 
schließen. 

Die  dk'tronics  Speichererweiterung 
ist  in  einer  64K-  und  einer  256K- 
Version  erhältlich.  Beide  Versionen 
sind  nicht  weiter  aufrüstbar. 

Mit  der  64K-Version  zum  Preis  von 
ca.  200  DM  wird  der  CPC  464  mit 
Diskettenstation  annähernd  zum 
CPC  6128  aufgerüstet.  Was  fehlt,  sind 
die  ROMs  des  großen  Bruders  mit 
den  neuen  Befehlen  des  Locomotive 
Basics  1.1.  Die  Konfiguration  des 
Speichers  mit  seinen  128K,  ist  mit  der 
Erweiterung  nun  aber  identisch. 

Da  der  Z80-Mikroprozessor  nur  ma¬ 
ximal  64K  verwalten  kann,  hilft  hier, 
wie  beim  6128,  die  mitgelieferte 
Software  auf  die  Sprünge  in  das  Reich 
der  externen  RAMs. 

Das  zur  Erweiterung  mitgelieferte 
Software-Tool  versieht  den  64er 
Schneider  mit  14  neuen  RSX-Befeh- 
len.  Läßt  man  das  RSX-Programm 
ablaufen,  so  wird  als  erstes  ein  Test 
der  RAM-Erweiterung  durchgeführt. 
Anschließend  stehen  folgende  Befehle 
zur  Auswahl: 

IEMULATE: 

Dieser  Befehl  emuliert  eine  Speicher¬ 


verwaltung  wie  beim  CPC  6128  mit 
Hilfe  des  sog.  "Bank-Switching”. 

ISAVES: 

Erlaubt  das  Abspeichern  des  gesam¬ 
ten  Bildschirminhaltes  in  jede  belie¬ 
bige  Bank  des  externen  RAMs. 
ILOADS: 

Einladen  eines  Bildschirms  aus  dem 
externen  RAM. 

ISAVEW: 

Speichert  den  gesamten  Inhalt  eines 
Windows  in  jeden  Bereich  des  exter¬ 
nen  RAMs. 

ILO  ADW: 

Lädt  dieses  Window  zurück  auf  den 
Bildschirm. 

ISAVED: 

Speichert  Daten  jedes  beliebigen 
Adressbereiches  in  die  Erweiterung. 

ILOADD: 

Lädt  diese  Daten  wieder  ein. 

ISWAP,  ILOW,  IHIGH: 

Befehle  zum  raschen  Wechsel  eines 
im  externen  RAM  gespeicherten  Bil¬ 
des  auf  den  Monitor  und  zurück. 
Nützliche  Befehle  für  die  Spiele¬ 
programmierung  (Trickfilm). 
IASKRAM: 

Fragt  die  Speichererweiterung  nach 
vorhandenem  freien  Platz  bzw.  nach 
der  Anzahl  der  freien  Bänke. 

IPOKE: 

Befehl  zum  Poken  eines  Bytes  in  jede 
beliebige  Adresse  der  Eiweiterung.  ■ 

IPEEK: 


Befehl  zum  PEEKen  jeder  beliebigen 
Adresse  der  Erweiterung. 

IBANK: 

Hiermit  kann  die  gewünschte  Bank 
angewählt  werden.  Mit  der  64K  Er¬ 
weiterung  stehen  4  Bänke  ä  16K  zur 
Verfügung;  bei  der  256K-Version  16 
Bänke. 

Die  RSX-Software  bietet  alle  Möglich¬ 
keiten  zur  optimalen  Ausnutzung  des 
externen  Speichers.  Will  man  auf  die 
RSX-Befehle  verzichten,  so  kann  man 
auch  vom  Locomotive-Basic  aus  di¬ 
rekt  auf  die  Erweiterung  einwirken. 
z.B.  mit: 

OUT  &7F00,  196+(BANK  AND  3)+ 
(Bank  AND  28)  *2. 

"Bank"  steht  hier  für  die  Nummer  der 
Bank,  die  angewählt  werden  soll. 

Mit  dem  lEMULATE-Befehl  laufen 
auch  speziell  für  den  CPC  6 1 28  zuge¬ 
schnittene  Programme,  z.B.  Tasword 
in  der  128er-Version.  Außerdem  wird 
der  freie  Speicherplatz  unter  CP/M 
auf  61 K  erhöht,  so  daß  alle  größeren 
Programme  nun  ohne  Schwierigkei¬ 
ten  lauffähig  sind. 

Leider  wird  das  Betriebssystem  CP/ 
M  3.0  der  Erweiterung  nicht  beige¬ 
fügt.  Trotzdem  bietet  die  dk'tronics 
Erweiterung  für  die  Besitzer  der 
Schneider  Computer  mit  64K  eine 
neue  simple  und  billige  Alternative. 

(H.-J.  Behrendt/ME) 
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DAS  PROFESSIONELLE  CAD-SYSTEM 

GRAFPAD  3 

FÜR  DEN  JOYE  PCW  8256  UND  PCW  8512 


■  Frei  wählbarer  Zeichensatz 

■  Maßstabgerechtes  Erstellen 
von  Zeichnungen 

■  Maßeinheiten  können  angegeben 
werden 

■  16  verschiedene  Zeichnungsebenen 

■  Symbolbibliotheken  können  angelegt 
werden 

■  Stufenlose  Zoomfunktionen 

■  Freiwählbares  Raster 


■  Freiwählbarer  Cursorsprung 

■  16  verschiedene  Linientypen 

■  16  verschiedene  Schriftarten 

■  Dehnen,  kippen,  rotieren,  kopieren 

■  Verschieben  und  löschen  aller 
Symbole,  Texte,  Objekte 

■  Vergrößern  und  verkleinern 

■  Abrunden  von  Kanten 

■  Automatisches  Bemaßen 

■  Schraffieren 


Die  Sensation: 

DM  549,- 

Verkaufspreis  inclusive  1  Grafikteblett,  1  Soft¬ 
ware  G3, 1 1nterface,  1  Zeichenstift 


Ausschneiden  und  auf  Postkarte  kleben 

O  Hiermit  bestelle  ich  per  Nachnahme/Vorkasse 
O  Senden  Sie  mir  bitte  ausführliches  Informationsmaterial 


Vorname.  Name 


PiZie-Data,  H.-J.  Piorreck 
Mittelstraße  61,  Tel.  02339/71 91 
4322  Sprockhövel  2 


Straße.  Hausnummer 
PLZ,  Ort 
Telefonnummer 


Datum,  Unterschrift 
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Nachdem  wir  in  den  letzten  Folgen  die 
Programmiersprachen  Basic  und  For¬ 
tran  miteinander  verglichen  haben,  soll 
in  dieser  Folge  auch  noch  ein  Vergleich 
mit  Pascal  angestellt  werden. 

Zur  Verdeutlichung  nehmen  wir  uns 
wieder  das  CBasic-Listing  aus  der 
CPC  Nr.6  vor,  welches  beim  letzten 
Mal  in  die  Sprache  Fortran  übersetzt 
wurde,  um  damit  z.B.  den  Nevada 
Fortran-Compiler  zu  füttern. 

Wie  übrigens  von  Schneider  Data  zu  er¬ 
fahren  war,  wird  Nevada  Fortran  nicht 
mit  dem  ED80  ausgeliefert  (s.a.  CPC 
Nr.7).  Ohne  Editor  kann  man  das 
Programmpaket  aber  auch  zum  äußerst 
günstigen  Preis  von  DM  129,-  bei  der 
Firma  Adler-Computertechnik  erwer¬ 
ben. 


benen  Alternativen,  z.B.  Wordstar 
oder  ED80  ausweichen  muß. 

Dafür  wird  eine  absolut  profes¬ 
sionelle  Programmierumgebung  in 
Form  von  vielen  nützlichen,  linkba¬ 
ren  Programm-Modulen  und  einem 
sehr  leistungsfähigen  Debugger  mit¬ 
geliefert,  der  es  z.B.  gestattet,  compi- 
lierte  Pascal-Programme  im  Einzel¬ 
schrittverfahren  zu  untersuchen  und 
Variablen  zu  dumpen.  Der  ebenfalls 
in  diesem  umfangreichen  Programm¬ 
paket  enthaltene  Disassembler  er¬ 
zeugt  Mnemonics  für  den  Intel  8080 
Prozessor,  auch  wenn,  wie  in  allen 
Schneider  Computern,  als  Herz  der 
Z80  Prozessor  von  Zilog  schlägt. 
Auch  das  schon  fast  klassische  Com- 


d.h.ein  Umsteiger  kann  seine  Source- 
Programme  weiterverwenden.  Der  da¬ 
bei  erforderliche  Programmtransfer 
zwischen  den  Betriebssystemen  wurde 
im  CPC  Sonderheft  Nr.  2  beschrieben. 


Turbo  Pascal 


Ebenfalls  für  die  Betriebssysteme 
MSDOS  und  CP/M  angeboten,  wird 
das  von  den  CPC-Lesern  zur  Soft¬ 
ware  des  Jahres  gewählte  Turbo 
Pascal.  Markt  &  Technik  z.B.  bietet 
diesen  sehr  erfolgreichen  Compiler 
in  der  Version  3.0  für  DM  225,72  an. 

Daß  Turbo  Pascal  innerhalb  kürze- 


CP/M 

Teil  7 

HISOFT  Pascal 


Da  unter  CP/M  gleich  zwei  verschie¬ 
dene  Pascal- Versionen  für  die  Schnei¬ 
der  Rechner  angeboten  werden,  Turbo 
und  MT-Plus,  sollen  im  Folgenden 
beide  berücksichtigt  werden. 

Das  an  sich  recht  leistungsstarke 
Hisoft  Pascal,  unterstützt  in  Anleh¬ 
nung  an  das  Schneider-Basic  Gra¬ 
phik  und  Sound,  wurde  aber  nur 
unter  AMSDOS  implementiert.  Die 
entsprechenden  PROCEDURES  zur 
Erstellung  von  Graphik  muß  man 
sich  allerdings  erst  mühevoll  aus  der 
im  Lieferumfang  enthaltenen  Turtle- 
Graphik  extrahieren. 
Source-Programme  und  -Daten  kön¬ 
nen  leider  nicht  mit  den  beiden 
CP/M-Versionen  ausgetauscht  wer¬ 
den,  da  Hisoft-Files  nicht  im  ASCII- 
Code  abgelegt  werden  und  man  da¬ 
her  nach  dem  Datentyp  FILE,  insbe¬ 
sondere  FILE  OF  CHAR,  vergeblich 
sucht 


Pascal  MT-Plus 


Das  schon  etwas  betagte  Pascal  MT- 
Plus  wird  sowohl  von  Schneider  Data 
als  auch  von  Markt  &  Technik  zum 
Preis  von  DM  174,-  angeboten. 

Ein  Editor  wird  leider  nicht  mitgelie¬ 
fert,  so  daß  man  auf  eine  der  in  der 
vorangegangenen  Folgen  beschrie- 


und  seine  Möglichkeiten 


pilieren  und  Linken  der  Programme 
ist  auf  ein  anspruchsvolles  Arbeiten 
mit  Bibliotheken  ausgelegt.  Bei  soviel 
Licht  gibt  es  natürlich  auch  Schatten, 
z.B.  die  Tatsache,  daß  man  aufgrund 
der  enormen  Länge  des  MT-Plus- 
Compilers  nicht  ohne  eine  Speicher¬ 
erweiterung  auskommt  Auch  auf  der 
3"-Diskette  wird  der  Platz  sehr 
schnell  eng,  so  daß  man  als  Besitzer 
einer  Single-Floppystation  die  Dis¬ 
kette  häufiger  wechseln  bzw.  drehen 
muß,  als  einem  lieb  ist  Da  jedoch  alle 
Programme  kopierfähig  sind,  kön¬ 
nen  sich  die  Besitzer  des  neuen  F1X- 
Laufwerkes  von  Vortex  die  Hände 
reiben.  Das  ausschließlich  im  3”- 
Format  gelieferte  MT-Plus-Programm- 
paket  läßt  sich  ohne  weiteres  mit 
Hilfe  des  neuen  Disktools  Filecopy 
cursorgesteuert  auf  das  5,25”-Format 
kopieren.  Noch  schöner,  weil  erheb¬ 
lich  schneller,  läßt  es  sich  nur  noch 
mit  einer  möglichst  vollständig  aus¬ 
gebauten  Ramdisk  arbeiten. 

Beim  Rechnen  kann  zwischen  BCD 
und  einfacher  Arithmetik  unterschie¬ 
den  werden.  Was  das  auf  sich  hat, 
wurde  im  Zuge  dieser  Serie  bereits  in 
der  CPC  Nr.6  ausführlich  bespro¬ 
chen. 

Einmalig  ist  bei  MT-Plus,  daß  bei  An¬ 
wendungen,  in  denen  es  auf  hohe  Re¬ 
chengenauigkeit  ankommt  auch  noch 
nachträglich  die  BCD-Arithmetik  da¬ 
zugeladen  werden  kann. 

MT-Plus  wird  übrigens  auch  unter 
MSDOS  bzw.  CP/M  86  angeboten; 


ster  Zeit  so  bekannt  wurde,  liegt 
sicherlich  nicht  zuletzt  an  der  für  je¬ 
den  leicht  erlernbaren  Handhabung 
des  ausgesprochen  leistungsfähigen 
Programmpaketes,  die  schon  fast 
dem  komfortablen  Arbeiten  mit  einem 
Interpreter  gleicht.  Ein  biklschirm- 
orientierter  Editor  ist  integriert,  wobei 
sich  Benutzer  von  Wordstar  ange¬ 
sichts  des  Befehlssatzes  sofort  zu 
Hause  fühlen  werden. 

Dieser  Editor  hat  es  auch  sonst  noch 
in  sich.  Nicht  nur,  daß  er  beliebige 
ASCII-Dateien  verarbeitet,  seine  be¬ 
sonderen  Stärken  werden  eigentlich 
erst  beim  Auftreten  eines  Fehlers 
während  des  Compilierens  deutlich. 
Das  fehlerhafte  Programm  wird  auto¬ 
matisch  editiert  und  der  Fehler  mar¬ 
kiert.  Einfach  ausbessern  und  neu 
starten.  Auch  beim  Auftreten  eines 
Runtime-Fehlers  kann  dieser  sofort 
aufgespürt  und  verbessert  werden, 
wodurch  das  Fehlen  eines  Debuggers 
zum  Teil  verschmerzt  werden  kann. 
Runtime-Fehler  lassen  sich  auf  diese 
Art  und  Weise  aber  nur  bei  solchen 
Programmen  aufspüren,  die  eine  be¬ 
stimmte  Länge  nicht  überschreiten, 
welche  wiederum  von  der  Speicher¬ 
kapazität  abhängig  ist.  Man  kommt 
zwar  auch  ohne  Speichererweiterung 
einigermaßen  zurecht,  aber  so  richtig 
Spaß  macht  es  erst  mit  ca.  20  KB  mehr. 
Während  MT-Plus  auch  mit  den  Intel 
8080  Prozessoren  zusammenarbeitet, 
würde  Turbo  hier  schlicht  die  Arbeit 
verweigern,  da  es  speziell  für  die 
Architektur  des  Z80  maßgeschneidert 
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wurde.  Das  Attribut  "Turbo”  verheißt 
nicht  zu  Unrecht  eine  sehr  hohe  Ab¬ 
arbeitungsgeschwindigkeit,  was  vor 
allen  Dingen  durch  das  speicherori¬ 
entierte  Konzept  unter  Verzicht  eines 
Linkers  erreicht  werden  konnte.  Na¬ 
türlich  entstehen  dadurch  auch  eine 
Reihe  von  Nachteilen,  so  z.B.,  daß  je¬ 
des  INCLUDE-File,  also  ein  fertiges 
Modul,  neu  kompiliert  werden  muß, 
wodurch  eingesparte  Zeit  zum  Teil 
wieder  verloren  geht,  was  allerdings 
in  Hinblick  auf  die  insgesamt  enorme 
Zeitverkürzung  gegenüber  MT-Plus 
nicht  allzusehr  ins  Gewicht  fällt. 

Auch  muß  immer  die  gesamte 
Ru ntime- Bibliothek  von  ca.  8  KB  da¬ 
zugeladen  werden,  wodurch  selbst 

CP/M 


kurze  Programme  schnell  eine  Länge 
von  10  KB  und  mehr  erhalten.  Im 
Vergleich  zu  MT-Plus  ist  das  aber 
immer  noch  sehr  gut,  da  der  MT- 
Plus-Linker  nicht  besonders  selektiv 
arbeitet  und  relativ  lange  COM-Files 
erzeugt.  BCD  gibt  es  bei  Turbo  nur 
auf  Wunsch  und  gegen  Aufpreis. 

Der  Programmtransfer  zwischen 
MT-Plus  und  Turbo  gestaltet  sich 
sehr  einfach,  da  in  beiden  Fällen  der 
Source-Code  als  ASCII-Datei  abge¬ 
speichert  wird.  Das  anschließende 
Compilieren  eines  MT-Plus  Pro¬ 
grammes  mit  Turbo  bzw.  umgekehrt 
bewirkt  allerdings  normalerweise 
eine  Fülle  von  Fehlermeldungen,  die 
auf  zwei  unterschiedliche  Pascal- 
Dialekte,  entstanden  durch  verschie¬ 
dene  Erweiterungen  der  ISO-Norm  für 
Standard-Pascal,  hinweisen.  In  die¬ 
sem  Fall  hilft  übrigens  das  sehr  gut 
gemachte  "Pascal-Handbuch”  von 
Jacques  Tiberghien,  erschienen  im 
Sybex-Verlag,  weiter.  Dieses  Werk 
vergleicht  die  Syntax  von  verschie¬ 
denen  Pascal-Compilern,  wie  USCD, 
Standard,  MT-Plus,  Turbo  und  an¬ 
deren.  In  unserem  nun  folgenden  Bei¬ 
spiel  werden  wir  allerdings  nur  mit 
Standard  Pascal-Anweisungen  aus- 
kommen,  die  ohne  Änderung  sowohl 
unter  MT-Plus  als  auch  unter  Turbo 
ausgeführt  werden  können. 

Apropos  Literatur.  Das  ebenfalls  im 
Sybex-Verlag  erschienene  "Turbo 
Pascal-Buch”  des  Autors  K-H.  Rollke 
führt  didaktisch  gut  und  auf  sehr  ein¬ 
prägsame  Art  und  Weise  in  das  Pro¬ 
grammieren  mit  Turbo  Pascal  ein. 


VAR  op,  reg 
f  kt 
ende 
i, 

1  Ist ptr 

opl ist , 
reglist 
f kt  1  ist 


REAL;  <*  Operant,  Rechenregister  *> 

CHAR;  <*  eingegebenes  Funktionszeichen  *> 

BOOLEAN ;  <•  Programniende- Schal  ter  *> 

<*  Laufvariable  ») 

INTEGER;  <*  zeigt  auf  naechsten  freien  Speiche 
in  Speicher  1 isten  *> 

(*  Speicherlist en.  .  .  *> 

ARRAY  t 1.  .  naxreml  OF  REAL; 

ARP.AY  [  1.  .  maxrem]  OF  CHAR; 


BEGIN  I 

1  ist ptr  :=  1; 

reg  :=  0; 

ende  : =  FALSE; 

VH  ILE  NOT  ende  DO  BEGIN 

<•  auf  gueltige  Funktionseingabe  warten:  «> 

REPEAT 

'VRITELN;  VR1TELN  <• Register  =  reg : digits  :  nkonuna >  ; 
VRITELN;  VRITELN  <•+-*/  1)  isten  n)eu  e  >  r.de 1  '  ; 

VRITELN;  VRITE  <•  VerWI'« Funktion  ?  '); 


'VRITELN ;  VRITELN 
VRITELN;  VRITE  < • Vöi^fP 
RE ADLN  <f kt  > ; 

UNTIL  f kt  IN  , 

<*  Funktion  ausfuahren:  ♦ 
Ir  f kt  =  1 e *  THEN 
Mfepnde  :  =  TRUE 
S#5E  IF  f kt  =  •  n*  T&EN 
BEGIN 

1 ist ptr  :=  1; 

END 

ELSE  IF  f kt  =  ' 1 1  THEN 
FOR  i  : =  1  TO  1 istptr- 1 
BEGIN 

VRITE  (i:2.  w 
^  VRITELN 


mikrocalc 


<»  neu  anfangen 


<*  letzte  Sehr! 


einle 


de  in  LI 


1  isux 

IF  iist 
BEGIN 

FOR  i  := 
BEGIN 


nster  freier  Speie 
enn  Speicher  voll,  da 
*  Elemente  2-15  der  List 
1  DO  <-*  nach  1-14  versch 


FRQORAM  mikrocalc; 


CONST  maxrem  = 
digits  = 
nkomma  = 


15; 

10; 

3; 


<*  Anzahl  zu  speichernde  Rechenschrit 
<*  Anzeigegroesse  •  > 

*  davon  3  Nachkcmmastel len  «> 


END 

END. 


reglist  ti]  :=  reglist  i SUCC  <i > ] ; 
fktlist  C 13  :=  fktlist  C SUCC  <i)]; 

oplist  Ci]  ;=  opl ist  [SUCC  <i > ] ; 
END  <-*  FOR  *> ; 

1 istptr  :=  maxrem; 


END  <*  IF  *> ; 
CASE  f kt  OF 


+  * 

:  reg 

:  =  reg 

+ 

°p; 

_  1 

:  reg 

:  =  reg 

— 

op; 

*’ 

:  reg 

•  =  reg 

* 

op; 

/• 

:  reg 

:  =  reg 

/ 

op; 

END  <*  CASE  *>; 
END  <*  ELSE  *>; 

<*  WH  ILE  * > ; 


<*  Rechen-Operation 


ausf  u 
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Die  Beispiele  sind  erfreulicherweise 
sehr  kurz  gehalten  und  reizen  zum 
Nach  vollziehen.  Auch  der  fortge¬ 
schrittene  Programmierer  findet  an¬ 
hand  des  gut  gemachten  Schlagwör¬ 
terverzeichnisses  schnell  eine  Ant¬ 
wort  auf  programmiertechnische  Fra¬ 
gen.  Das  im  Verlag  Markt  &  Technik 
erscheinende  Buch  "Turbo  Pascal” 
der  Autoren  I.  und  P.  Luke  setzt  sich 
stärker  mit  interessanten  Detailpro¬ 
blemen  auseinander,  wie  unterschied¬ 
lichen  Implementationen  unter  CP/M 
und  MSDOS,  kann  jedoch  nicht  un¬ 
bedingt  einem  Anfänger  bzw.  Hobby¬ 
programmierer  empfohlen  werden. 


Function  in  Pascal 


Kommen  wir  jedoch  wieder  auf  unse¬ 
ren  Ausgangspunkt  zurück.  Zum 
weiteren  Verständnis  des  Pascal- 
Programmes  w'äre  es  sehr  nützlich, 
wenn  Sie  auch  die  vorangegangenen 
Folgen  zur  Hand  hätten,  da  wir  häufi¬ 
ger  auf  die  entsprechenden  Pendants 
in  den  Sprachen  Fortran  und  Basic 
Bezug  nehmen  werden.  Wie  Sie 
sicherlich  noch  wissen,  lieferte  die 
FUNCTION  MULTI  unter  Fortran 
aufgrund  des  Datentransfers  mit 
einem  sogenannten  "call  by  refe- 
rence"  ein  anderes  Ergebnis  als  die 
gleiche  FUNCTION  unter  CBasic 
mit  einem  "call  by  value".  Soviel 
gleich  vorweg.  In  Pascal  ist  beides 
möglich. 

PROGRAM  Main; 

var  e,f,g,wert :  REAL; 

FUNCTION  Multi  (VAR  a,b,c  : 
REAL) :  REAL; 

BEG1N 


a  :=  a  *  a; 
b  :=  b  *  b; 
c  :=  b  *  a; 

Multi  :=  c 
END; 

BEGIN 

READLN(e,f,g); 
wert  :=  Multi(e,f,  g); 
WRITELN(e:10:5,f:10:5,g:10:5, 
wert:  10:5); 

END. 

Dieses  Pascal-Programm  entspricht 
dem  Fortran-Listing  der  letzten 
Folge.  Geben  wir  also  wieder  die 
Werte  2.,  3.  und  4.  (ohne  Komma  aber 
mit  Punkt!)  ein,  so  erhalten  wir  das 
gleiche  Resultat: 

4.00000  9.00000  36.00000  36.00000 

Auch  hier  werden  die  Daten  mit 
einem  "call  by  reference”  übergeben, 
d.h.  die  Variablen  a  und  e,  b  und  f,  c 
und  g  belegen  den  gleichen  Speicher¬ 
platz.  Es  ist  aber  auch  möglich,  groß¬ 
zügiger  mit  dem  Speicherplatz  umzu¬ 
gehen  und  die  Variablen  mit  einem 
"call  by  value"  zu  transferieren.  Das 
läßt  sich  ganz  einfach  bewerkstelli¬ 
gen,  indem  Sie  VAR  aus  der  Parame¬ 
terliste  der  F'UNCTION  Multi  strei¬ 
chen.  Nun  liefert  die  Eingabe  von  2., 
3.  und  4.  das  gleiche  Ergebnis  wie 
auch  die  CBasic-Function  aus  der 
CPC  Nr.6: 

2.00000  3.00000  4.00000  36.00000 

Wie  in  Fortran  muß  der  Function- 
Name  mindestens  einmal  auf  der  lin¬ 
ken  Seite  einer  Zuweisung  auftau¬ 
chen.  Auch  die  Parameterübergabe 
erfolgt  in  Anlehnung  an  Fortran  über 


die  Parameterliste.  Der  Vollständig¬ 
keit  halber  soll  noch  erwähnt  werden, 
daß  die  unter  Fortran  sehr  nützliche 
COMMON-Anweisung  zur  Über¬ 
gabe  langer  Parameterlisten  nicht 
implementiert  wurde.  Unterschied¬ 
lich  zu  Fortran  ist  natürlich  auch,  daß 
der  Ergebnistyp  der  FUNCTION,  in 
unserem  Listing  REAL,  angegeben 
werden  muß.  Einer  Fortran-Subrou- 
tine,  die  wir  beim  letzten  Mal  vorge¬ 
stellt  haben,  entspricht  eine  PROCE- 
DURE  unter  Pascal.  Auch  hier  gilt 
wieder,  daß  die  PROCEDURE  in 
ihrer  Konzeption  stärker  auf  die  Da¬ 
tenübergabe  mit  einem  "call  by  refe¬ 
rence”  ausgelegt  ist,  als  die  FUNC¬ 
TION.  Ein  weiterer  Unterschied  zwi¬ 
schen  Pascal  und  Fortran  besteht  in 
der  Reihenfolge  von  Haupt-  und 
Unterprogrammen.  Während  in 
Fortran  die  Unterprogramme  bzw. 

FUNCTIONS  erst  nach  dem  Haupt¬ 
programm  folgen  dürfen,  ist  es  bei 
Pascal  genau  umgekehrt,  was  im 
Zusammenhang  mit  der  Vorabdekla¬ 
ration  aller  verwendeten  Variablen 
dem  Compiliervorgang  erheblich 
entgegenkommt. 

Pascal  bietet  übrigens  auch  die 
Möglichkeit,  mit  globalen  Variablen 
zu  arbeiten,  deren  Nachteile  aller¬ 
dings  jedem,  der  ein  längeres 
Programm  in  Basic  schreiben  will, 
bekannt  sein  dürften. 

Damit  haben  wir  die  Sprachen 
Fortran,  Basic  und  Pascal  abgehan¬ 
delt.  Um  das  Thema  noch  abzurun¬ 
den,  werden  wir  uns  beim  nächsten 
Mal  die  Sprache  C  vornehmen. 

(Dipl.-Ing.  H.  Scheruhn) 


VORTEX 

FIS 

525"  Einzeistation  mit  Controller 

919- 

F1-D 

525"  Doppelslalion  mH  Conlroller 

1398- 

FIX 

525"  Syslemzweitlaulwerk.  1  MB  Kapazität 

709  - 

F1-XRS 

Fl  X  Laufwerk  mil  RS  232  Schnittstelle 

848, 

M1S 

35"  Einzelstalion  mit  Conlroller 

909, 

MIO 

35'  Doopelstation  mil  Controller 

1419,- 

MIX 

35'  Syslemzweillaulwerk,  1  MB  Kapazitäl 

729 

NEU- 

NEU  -  PREISSENKUNG  -  PREISSENKUNG 

-NEU -NEU 

SP-256  Speicherkarte  mil  256  KB  RAM  (bisher;  450,-)  279, 
SP512  Speicherkarte  mH  512  KB  RAM  (bisher:  535.-)  379, 
WD 10  3  5”  Wmchesterslaiion  mil  10  MB  Kapazitäl  2599  — 
Alle  weiteren  vortex-Produkte  zu  den  bekannten  Superpreisenll 
Bitte  geben  Sie  bei  der  Bestellung  von  vortex-Produkten  unbe¬ 
dingt  den  Computertyo  an! 

DRUCKER  -  DRUCKER  -  DRUCKER  -  DRUCKER  -  DRUCKER 
Panasonic  KX  P  1080  100  eps  EDV, 20  eps  NLQ  669- 

Panasonic  KX  P  1092  180  eps  EDV, 33  eps  NLQ 

+  1000  Bl  Endlospapier  979— 

Panasonic  KX  P  1592  wie  KX  P  1092,  jedoch  15”  breit  1399,— 
Seikosha  MP  1300  AT  300  cos,  Centronics  1699- 

,0i  udiwWDei  zum  Anschluß  der  genannten  Ducker  an  die  CPC  s  75- 


I 


TG-Soft 


—  r  v.u 


F0  2  3“  Zweitlautwerk  (1  MB)  für  Joyce 
256  KB  RAM  Erweiterung  lür  Joyce 
kompl  Aulrüslsatz  lür  Joyce  auf  Joyce  plus 
Bildschirmfilter  Joyce 

GT  64/65 
CTM  640/644 

DDl  l/FD  1  3'laufwetke  lür  die  CPC's 
3"  CF2  Diskette 

3"  CF2-DD  Disketten  (1  M8)  lür  Joyce 
35"  Disketten  135  tpi  von  Maxell 
525"  DS  DO  Diskette  von  Verbatim 
Joystick  'Speedking' 

Dk'  Tronics  Lightpen 
CPC  MousePack 

Monitofdrehluß  stutenlos  einstellbar 
Srnot  Traktoraulsalz  lür  NLQ  401 


\ 

v.v. 

••v.v.v.v.v- 

•V 

,*,v 

,v 

>v*v. 

•V.v 

v*v.  v.v.  •••••. 

• 

• ' 

.  • .  • 

•  .  .*.• 

v.v.w.v. 

SOFTWARE 

Verbentrainer  ENGLISCH  I  CPC  39-/49- 

(Testberichl  in  "CPC  Int."  4/86)  Joyce  59,— 

Vokabeltrainer  lür  Englisch  und  Latein  CPC  45, — 755,— 
Joyce  59, — 

Faktum  30  umfangreiches  Bcrosoftwarepakcl  Joyce  298,— 
Faktum  10  Faklurieipiogramm  CPC  139,-/149,- 

Joyce  149,— 

vortex  SPARA  Diskettenmanager  CPC  57,— 

Platmenkit  Die(!)  Leiterplattenentflechtung  f  d  CPC  144, 7149,— 
DR  0RAW  (Digital  Research)  Ergänz  zu  GSX  CPC  6128  179 — 

Joyce  179. — 

DR  GRAPH  (Digital  Research)  CPC  6128  179- 

Joyce  179,— 

30  Clock  Chess  Schachprogramm  Joyce  64,90 

Wordstar  I  dBase  II  /  Mullinlan  (CPC/Joyce)  je  195,- 
P3kel  Wordslar  +  dBase  II  +  Multiplan  550,— 

Turbo  Pascal  (CPC/Joyce)  215,- 

CBasic  Compiler  (CPC/Joyce)  169.— 

Pascal  MT+  (CPC/Joyce)  169.- 

Wir  haben  die  neuesten  Spiele  zu  Superpreisen! 


□er  Versand  erfolgt  per  Nachnahme  oder 
Vorauskasse  (2  Vo  Skonto). 

Alle  Preise  zzgl.  Versandkoslenantetl. 


TG-Soft.  Offersdorf  5. 8491  Rimbach.  Tel. 09941/3765 
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. Tips  &  Tricks . 

DIN  A4-Hardcopy  auf 
Seikosha  SP-1000  CPC 


Das  DIN  A4-Hardcopy-Programm  aus  Heft  5/86,  Seite  80 
funktionierte  erst  nach  Anpassung  an  meinen  Drucker, 
einen  Seikosha  SP-1000  CPC,  einwandfrei.  Einerseits  gab 
es  Schwierigkeiten  mit  den  Parametern  für  Grafikdruck 
(Anzahl  der  Punkte),  andererseits  war  die  Regelung  des 
Zeilenvorschubs  problematisch  (4-Nadeldruck  =)  12/216 
Zoll). 

Die  Parameter  für  Grafikdruck  bereiteten  mir  die  gering¬ 
sten  Probleme.  Die  ESC-Sequenz  an  sich  (&1B,  &4C) 
konnte  belassen  werden.  Jedoch  mußten  die  nachfolgen¬ 
den  Werte  für  die  Anzahl  der  zu  druckenden  Punkte  ver¬ 
ändert  werden. 

Für  den  NLQ  401  gilt: 

2.  Wert  =  INT  (Anzahl  der  Punkte/256) 

1.  Wert  =  Anz.  d.  Punkte  -  256  *  2.  Wert 

Die  Vollständige  Sequenz  lautet  demnach:  1B,4C,20,03. 

Für  den  SP-1000  CPC  gilt: 

2.  Wert  =  INT  (Anzahl  der  Punkte/128) 

1.  Wert  =  Anz.  d.  Punkte  -  128  *  2.  Wert 

Die  Sequenz  lautet  demnach:  1B,4C,20,06 

Man  muß  also  nur  den  vierten  Data-Wert  in  Zeile  680  von 
03  in  06  ändern. 

Jetzt  kamen  die  eigentlichen  Schwierigkeiten,  sprich  An¬ 
passung  des  Zeilenvorschubs.  Problematisch  daran  ist 
beim  SP-1000  CPC  der  Umstand,  daß  bei  Grafikdruck 
immer  ein  Vorschub  um  7/72  Zoll  erfolgt,  egal  was  vorher 
eingestellt  war.  Diese  Unart  läßt  sich  jedoch  umgehen, 
indem  man  zuerst  die  komplette  Grafikzeile  an  den 
Drucker  sendet,  dann  den  Zeilenvorschub  umstellt  und 
jetzt  erst  ein  LINE-FEED  (&0A)  ausgibt. 

Zur  Umstellung  des  Zeilenvorschubs  benutze  ich  die 
schon  vorhandene  Routine  am  Anfang  des  MC-Pro- 
gramms.  Es  mußte  lediglich  noch  ein  RETU  RN  (C0)  ange¬ 
fügt  werden,  weil  die  Routine  aus  dem  eigentlichen 
Programm  heraus  als  Unterprogramm  aufgerufen  werden 
sollte. 

Durch  das  Einfügen  eines  Bytes  war  natürlich  die  Anpas¬ 
sung  der  absoluten  Adressen  im  Basic-Lader  (Zeilen  380  - 
550)  ebenfalls  änderungsbedürftig. 

Zeile  500  wird  umgestellt  und  erzeugt  nun  die  Aufruf¬ 
adresse  für  die  Line-Feed-Routine. 

In  den  Data-Zeilen  750  und  760  ist  die  Ausgabe  von  Car- 
riage  Return  und  Line-Feed  enthalten.  Diese  entfällt. 
Stattdessen  wird  nun  von  hier  aus  die  Routine  zur  Erzeu¬ 
gung  eines  Line-Feed  von  12/216  Zoll  aufgerufen. 


Die  ersten  20  Bytes  des  M-Codes  dienen  nun  dem  Line- 
Feed,  weshalb  das  Programm  nun  nicht  mehr  mit  der  La¬ 
deadresse,  sondern  21  Bytes  später  aufgerufen  wird. 

Ich  hoffe,  daß  ich  mit  meinem  Tip  einigen  Leidensgenos¬ 
sen  weiterhelfen  kann. 

(Hans  Jürgen  Wohlgemuth) 


A  ssem  bler-Listing 


A5A0 

3E 

1B 

LD 

A,  &1E 

A5F8 

23 

INC 

HL 

A5A2 

CD 

29 

A6 

CALL 

&A629 

A5F9 

23 

INC 

HL 

A5A5 

3E 

33 

LD 

A,  &33 

A5FA 

E5 

PUSH 

HL 

A5A7 

CD 

29 

A6 

CALL 

&A629 

A5FB 

11 

6F 

01 

LD 

DE, &016F 

A5AA 

3E 

0C 

LD 

A.&0C 

A5FE 

CD 

23 

A6 

CALL 

&A623 

A5AC 

CD 

29 

A6 

CALL 

&A629 

A601 

38 

06 

JR 

C, &A609 

A5AF 

3E 

0A 

LD 

A,  &0A 

A603 

El 

POP 

HL 

A5B1 

CD 

29 

A6 

CALL 

&A629 

A604 

Dl 

POP 

DE 

A5B4 

C9 

RET 

A605 

D5 

PUSH 

DE 

A5B5 

11 

00 

00 

LD 

DE, &0000 

A606 

E5 

PUSH 

HL 

A5B6 

D5 

PUSH 

DE 

A607 

18 

D5 

JR 

ÄA5DE 

A5B9 

06 

07 

LD 

B.  &07 

A609 

00 

NOP 

A5BB 

3E 

20 

LD 

A ,  &20 

A60A 

00 

NOP 

A5BD 

C5 

PUSH 

BC 

A60B 

00 

NOP 

A5BE 

CD 

29 

A6 

CALL 

&A629 

A60C 

00 

NOP 

A5C1 

CI 

POP 

BC 

A60D 

00 

NOP 

ASC2 

1® 

F7 

DJNZ 

&A5BB 

A60E 

00 

NOP 

A5C4 

3E 

1B 

LD 

A.&1B 

A60F 

00 

NQP 

A5C6 

CD 

29 

A6 

CALL 

&A629 

A610 

CD 

A0 

A5 

CALL 

&A5A0 

A5C9 

3E 

4C 

LD 

A,  &4C 

A613 

El 

POP 

HL 

A5CB 

CD 

29 

A6 

CALL 

&A629 

A614 

Dl 

POP 

DE 

A5CE 

3E 

20 

LD 

A,  &20 

A615 

21 

80 

02 

LD 

HL.&0280 

A5D8 

CD 

29 

A6 

CALL 

&A629 

A618 

13 

INC 

DE 

A5D3 

3E 

06 

LD 

A,  &06 

A619 

13 

INC 

DE 

A5D5 

CD 

29 

A6 

CALL 

&A629 

A61A 

13 

INC 

DE 

A5D8 

Dl 

POP 

DE 

A61B 

13 

INC 

DE 

A5D9 

D5 

PUSH 

DE 

A61C 

CD 

23 

A6 

CALL 

&A623 

A5DA 

21 

00 

00 

LD 

HL, Ä0000 

A61F 

D0 

RET 

NC 

A5DD 

E5 

PUSH 

HL 

A620 

D5 

PUSH 

DE 

A5DE 

CD 

F0 

BB 

CALL 

&BBP0 

A62 1 

18 

96 

JR 

&A5B9 

A5E1 

21 

32 

A6 

LD 

HL.&A632 

A623 

7A 

LD 

A,  D 

A5E4 

87 

ADD 

A 

A624 

BC 

CP 

H 

A5E5 

87 

ADD 

A 

A625 

C0 

RET 

NZ 

A5E6 

06 

00 

LD 

B.&00 

A626 

7B 

LD 

A,  E 

A5E6 

4F 

LD 

C,  A 

A627 

BD 

CP 

L 

A5E9 

09 

ADD 

HL,  BC 

A628 

C9 

RET 

A5EA 

06 

04 

LD 

B,  S04 

A629 

F5 

PUSH 

AF 

A5EC 

7E 

LD 

A, <HL) 

A62A 

CD 

2B 

BD 

CALL 

&BD2B 

A5ED 

23 

I  HC 

HL 

AQ2D 

CI 

POP 

BC 

A5EE 

E5 

PUSH 

HL 

A62E 

78 

LD 

A,  B 

A5EF 

CS 

PUSH 

BC 

A62F 

30 

F8 

JR 

NC, &A629 

A5F0 

CD 

29 

A6 

CALL 

&A629 

A63 1 

C9 

RET 

A5F3 

CI 

POP 

BC 

A632 

00 

NOP 

A5F4 

El 

POP 

HL 

A633 

00 

NQP 

A5F5 

10 

F5 

DJN2 

&A5EC 

A634 

00 

NOP 

A5F7 

El 

POP 

HL 

A635 

00 

NOP 

Basic-Listing 


190  '  ***Superhardcopy  aus  Heft  5/86***  [1416] 

200  '  ***  Angepasst  an  Seikosha  SP-1000  CP  [4270] 
C  von  H.J.  Wohlgemuth  *** 

210  MODE  1 : PEN  1 : PAPER  0: INK  0,0: INK  1,13:  C4096] 
INK  2,6: BGRDER  13 

220  LOCATE  16,1:  PEN  2 :  PRINT’'Supercopy”  [2461] 

230  PEN  1  [5491 

240  PRINT: PRINT: PRINT  CHR$<164>"  1986  by  J  C4640] 
uergen  Altfeld" 

250  PRINT  TAB ( 8 ) ” Hof kurat-Diehl-Str .  7"  [23931 

260  PRINT  TAB (8 ) " 8042  Oberschleissheim"  [2345] 

270  PRINT: PR INT” Laenge  der  MC:  210  Byte"  [27311 

280  PRINT: INPUT" Ladeadresse:  " ; m  [9551 

290  IF  m<368  OR  m>49152  THEN  280  (534] 

300  MEMORY  m-1  (671 

310  check=0: z=620  [2911 

320  FOR  a=0  TO  209  (9451 

330  READ  byteS: byte=VAL (" &” +byte$ )  [18081 

340  check=check+byte : POKE  m+a,  byte  (11591 

350  IF  ( (a+1 )  MOD  8>=0  THEN  600  [12901 

360  NEXT  (3501 

370  PR INT" Startadresse :  "m:  PR INT" Endadresse  [7039] 
: "m+210: PRINT" Aufrufadresse:  "m+21 

380  REM  ===  Absolute  Adressen  anpassen  ===  (2015] 
390  h=INT<  <m+ 1371/256) : l=m+137-h*256  [1599] 

400  POKE  m+3 , 1 : POKE  m+4,h  (4511 

410  POKE  m+8 , 1 : POKE  m+9, h  (6391 

420  POKE  m+13,  1:  POKE  xn+14,h  [9101 

430  POKE  m+18 , 1 : POKE  m+19,h  [12861 

440  POKE  m+31 , 1 : POKE  m+32,h  (9861 

450  POKE  ra+39 , 1 ; POKE  ro+4  0,h  (10791 

460  POKE  m+44’,  1 ;  POKE  m+45,h  (8941 

470  POKE  ra+49 , 1 : POKE  ra+50,h  [10231 
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480  POKB  m+54  ,  1 : POKE  m+55,h  [979] 

490  POKE  m+8 1,1; POKE  m+82 , h  [827] 

500  hh=  INT  (m/256)  :  ll=m-hh*256  [16421 

510  POKE  ro+113, 11: POKE  ra+114,hh  [23561 

520  h=INT< <m+131>/256) : l=m+131-h*256  [2581] 

530  POKE  xn+95 ,  1 :  POKE  m+96,h  [6503 

540  POKE  ni+125,  1:  POKE  m+126,  h  [1079] 


550  POKE  ra+66,  <m+146>-INT< < ra+146) /256) *256  [43043 
:  POKE  m+67,  INT< (m+146)/256> 

560  PRINT:  PR  INT"  Alle  Checksununen  in  Ordnun  [3657] 
S" 

570  PRINT: INPUT” Speichern  der  MC:  [j/n]  "  [2206] 
,  ai 

580  IF  <a$=" j "  OR  a$=" J" )  THEN  SAVE”superh  [3359] 
c"  ,  b,  m,  209 

590  PRINT: STOP  [902] 

600  READ  summe: IF  summe=check  THEN  z=z+10:  [38693 
check=0:GOTO  360 

610  PRINT"Checksununenfehler  in  Zeile”z:STO  [4902] 
P 


620 

DATA 

3E, 1B, CD, 29, A6, 

3E, 33, CD, 

819 

C 1534] 

630 

DATA 

29, A6, 3E, 0C, CD, 

29, A6,3E, 

755 

[  1371] 

640 

DATA 

0A, CD, 29, A6, C9 , 

11 , 00, 00, 

640 

(1693] 

650 

DATA 

D5, 06, 07, 3E, 20, 

C5, CD, 29, 

763 

(9511 

660 

DATA 

A6,C1, 10, F7, 3E, 

1B, CD, 29. 

957 

[  14951 

670 

DATA 

A6 , 3E, 4C , CD, 29, 

A6, 3E, 20, 

810 

[I486] 

680 

DATA 

CD,  29,  A6, 3E,  06, 

CD, 29, A6 , 

892 

[ 15881 

690 

DATA 

Dl , D5, 21, 00, 00, 

E5, CD, FO, 

1129 

[1157] 

700 

DATA 

BB, 21, 32, A6, 87, 87, 06, 00, 

712 

C  4791 

710 

DATA 

4P,  09,  06,  04,  7E, 

23,  E5, C5, 

685 

[22431 

720 

DATA 

CD, 29, A6 , CI , El , 

10. F5, El, 

1316 

[828] 

730 

DATA 

23, 23, E5 , 11, 8F, 

01, CD, 23, 

700 

[1382] 

740 

DATA 

A6, 38,  06,  El,  Dl, 

D5, E5, 18, 

1128 

[1195] 

750 

DATA 

D5 ,  00, 00, 00. 00, 

00,  00, 00, 

213 

[ 1302] 

760 

DATA 

CD,  A0,  A5,  El,  Dl, 

21, 80, 02, 

1127 

[1412] 

770 

DATA 

13,  13,  13,  13,  CD, 

23 , A6 , DO , 

690 

[2060] 

780 

DATA 

D5 ,  18, 96, 7A,  BC, 

CO, 7B, BD, 

1201 

[1840] 

790 

DATA 

C9, F5, CD, 2B, BD, 

CI, 78, 30, 

1244 

[1909] 

800 

DATA 

F8,C9, 00, 00, 00, 

00, OF, OF, 

479 

[18101 

810 

DATA 

0F,  0F,  05, 0A,  05, 

OA, 02, 01, 

63 

[  1214] 

820 

DATA 

08,04, 04, 08,01, 

02,  00,  OF, 

42 

[1070] 

830 

DATA 

00,  OF,  0A,  OA,  0A,  0A,  09,  06, 

70 

[9631 

840 

DATA 

09, 06, 05, 0A, 0A, 

05. OD, 01, 

59 

[16941 

850 

DATA 

08,  OB,  OA,  OF,  OA, 

OF,  09,  06, 

84 

[ 15811 

860 

DATA 

06,  09,  OF,  09,  09, 

OF, 06, 06, 

75 

[1558] 

870 

DATA 

06, 06, 00, OF, OF, 

00,  06,  OF, 

63 

[1207] 

880 

DATA 

OF.  06 

[3311 

MODE-Wechsel  für  Grafiken 
für  464 

!v/!v!*!w7/!v'v!v!vXv!v!vX* 

Nehmen  wireinmal  an.  Sie  haben  ein  Programm  geschrie¬ 
ben.  das  mehrere  Bildschirmaufbauten  verwenden  soll. 
Dazu  haben  Sie  einige  Bilder  mit  einem  Grafikprogramm 
(z.B.  CPC-CAP  aus  Heft  12/85)  erstellt  und  möchten  diese 
nun  in  Ihre  Programme  einbauen.  Dies  ist  kein  Problem, 
solange  Sie  in  demselben  Bildschirmmodus  arbeiten,  in 
dem  auch  die  Bilder  gezeichnet  wurden. 

Was  aber,  wenn  z.B.  die  Bilder  in  MODE  0  hergestellt  wur¬ 
den.  im  Programm  aber  in  MODE  1  gebraucht  werden? 
Bekanntlich  wird  beim  MODE-Befehl  auch  der  Bildschirm 
gelöscht,  da  die  alten  Bildschirmbytes  im  neuen  MODE 
sehr  merkwürdig  aussähen. 

Mit  der  hier  vorgestellten  Basicerweiterung  ist  jedoch  ein 
echter  MODE-Wechsel  möglich.  Bei  jedem  MODE- 
Kommando  wird  der  Bildschirm  nicht  mehr  gelöscht,  son¬ 
dern  Byte  für  Byte  entsprechend  dem  neuen  Bildschirm¬ 
modus  umgerechnet.  Das  Rücksetzen  des  Bildschirm- 
offsets  erfolgt  über  das  normale  CLS-Kommando. 

Durch  die  Unterschiede  in  Auflösung  und  Farbpalette  der 
einzelnen  MODEs  ist  der  Bildschirm  nach  einem  MODE- 
Wechsel  dennoch  etwas  verändert. 

Beim  Wechseln  des  MODEs,  werden  die  Farben  der  ver¬ 
schmelzenden  Punkte  miteinander  oderiert  und  ergeben 
so  die  Farbe  des  neuen  Punktes. 


Beim  Wechsel  in  einen  Modus  mit  höherer  Auflösung 
bleiben  die  Bildpunkte  erhalten.  Die  Farben  werden  je¬ 
doch  entsprechend  dem  MOD-Befehl  geändert;  so  geht 
zum  Beispiel  die  Farbe  14  aus  MODE  0  in  die  Farbe  2  aus 
MODE  1  über,  da  2=14  MOD  4  ist.  (ln  MODE  1  sind  vier 
verschiedene  Farben  möglich). 

Durch  diese  (technisch  bedingte)  Eigenheit  der  Farbbe¬ 
handlung  ist  es  manchmal  nötig,  vor  oder  nach  dem 
MODE-Wechsel  die  Farben  im  Bildschirmspeicher  zu 
ändern.  Dazu  dient  der  neue  Befehl  IINK  SWAP.FARB- 
STIFT,FARBSTIFT.  Er  bewirkt,  daß  alle  Bildpunkte  mit 
dem  1.  Farbstift  gegen  solche  mit  dem  2.  Farbstift  ausge¬ 
tauscht  werden.  Bitte  beachten  Sie  den  Unterschied  zum 
INK-Befehl.  INK  SWAP  erzielt  eine  Vertauschung  des 
Farbstiftes,  während  INK  nur  neue  Farbwerte  zuordnet. 
MODE  und  INK  SWAP  beziehen  sich  immer  auf 
Bildschirmbank  ab  &C000,  auch  wenn  eine  andere  einge¬ 
stellt  ist.  Dadurch  ist  es  z.B.  möglich,  eine  Grafik  direkt  zu 
bearbeiten,  wenn  man  diese  in  den  Bereich  ab  &C(K)0  legt 
und  die  Bildschirmausgaben  auf  &4000  verbiegt. 

Da  diese  Befehle  recht  allgemein  gehalten  sind,  können  sie 
außer  zur  Grafikverarbeitung  auch  zu  anderen  Zwecken 
verwendet  werden,  z.B.  um  verschiedene  Schrifttypen  mit¬ 
einander  zu  mischen  oder  um  vor  einer  Hardcopy  die 
Bildschirmfarben  anzupassen  usw. 

(T.  Kochmann) 


Listing 

10  REM  Modewechsel  fuer  Grafiken  118001 

20  SYMBOL  AFTER  256:MEMORY  & A0FF : FOR  i=&Al  169191 
00  TO  &A2A9:READ  byte$:IF  byte$*"AA"  THEN 
byte$a"Al " 

21  IF  byte$«="AB"  THEN  byte$="A2"  111411 

30  POKE  i , VAL( "Ä^+byteS ) :NEXTiFOR  n=1  TO  4  [28091 
:READ  a$:a«VAL( "&“+a$ ) 

40  FOR  i*a  TO  a+2 :READ  x$:POKE  i,VAL("«"+x  (24501 
$):NEXT:NEXT 

50  DATA  F5,E5,2A,34,AErCD,3F,DD,FE,A2r20,2  (44931 

2,CD,3F,DD,FE,E7,20,1B,CD,3F,DD 

60  DATA  FE,02,38,12,7D,E1 ,E5,BD,20,0E,CD,4  (34991 
B,C2,7E,FE,2C, 20,06, El ,F1 ,D1 ,C9 

70  DATA  1Ef16,£1,F1,C9,DF#35(AA,C9,38,AA,F  (37981 
E,F5r7B,FE,46r20,04,Fl ,CF,ECf8C 
80  DATA  Fl ,78,CD,2C,BC,47,79,CD,2C,BC,4F,B  (27821 
8 , C8,21,00, C0, 3A,C8, Bl ,FE,01 

90  DATA  28,00,38,22,71 ,1 1 ,01 ,00,01 , FF, 3F,E  [1925] 
D,BO,C9,7E,57,A8,5F,OF,OF,OF,OF 

100  DATA  B3, 5F, A2 , 57 , 7B, 2F, Al ,B2 , 77 , 23 , 7C,  (23491 
FE,00,20,E9,C9,7E,57,A8,5F,OF 

110  DATA  OF,B3,OF,OF,B3,OF,OF,B3,5F,A2,57,  (2700] 
7B,2F,A1 ,B2,77,23,7C,FE,00,20,E5 
120  DATA  C9,DF,9D,AA,C9,A0,AA,FE,F5,07,07,  (33721 
21 ,C8, Bl ,B6,21 ,00, C0, 0E, 00, FE, 04 

130  DATA  CA , E2 , AA , FE ,08, CA ,05, AB , FE ,01, CA ,  (50301 
23, AB, FE, 09, CA, 45, AB, FE, 02, CA, 67, AB 
140  DATA  FE, 06, CA, 83, AB, 3A, CB, Bl , FE, C0, 20,  (40211 
0D,F1 ,CD,1 1 ,0B,21 ,01 ,00,CD,3D,11 

150  DATA  C3,BA,BB,F1 ,C3 ,CA, 0A, 7E, 1 F, 1 F,  1  F,  (4067  1 

CB ,18 ,CB, 28 ,1 F,CB, 1 8 , CB, 28 , 1 F, 1 F 

160  DATA  IF, CB, 18, CB, 28, IF, CB, 18, CB, 28, 70,  [37121 

23 , 7C,FE, 00 , 20 ,E0 ,C3 , CA, AA, 7E, 1 7 

170  DATA  17, CB, 18, CB, 28, CB, 28, CB, 28, IF, CB,  (21671 

1 8, CB, 28, CB, 28, CB, 28, 70, 23, 7C, FE, 00 

180  DATA  20 ,E5 ,C3 ,CA ,AA, 7E, 47 ,1F,B0,41 ,1F,  [43911 

CB, 1 6,1 F, 1 F,CB, 1 8 , CB, 38 , CB, 38 , 1 F 

190  DATA  1F,CB,18,1F,1F,CB,18,70,23,7C,FE,  (38401 

00 , 20 ,E1 ,C3 ,CA, AA, 7E, 17,17,17,17 

200  DATA  CB, 18, CB, 28, IF, CB, 18, CB, 28, IF, CB,  (29541 

1 8, CB, 28, IF, CB, 18, CB, 28, 70, 23, 7C 

210  DATA  FE, 00, 20, El ,C3 ,CA, AA,7E, 47 , 0F,B0 ,  (43081 

0F,B0,0F,B0, 41 ,1F,CB,18,1F,1F,1F 

220  DATA  1 F, CB ,18,70,23, 7C,FE, 00 , 20 ,E7 ,C3 ,  (24591 

CA,AA,7E,47,1F,B0,41 ,1F,CB,18,1F 

230  DATA  1 F , CB ,18,1F,1F, CB ,18,1F,1F, CB ,18,  (34581 

70,23,7C,FE,00,20,E5,C3,CA,AA 

240  DATA  21  ,00, 00, CD, 40, OB, C3, 40, 15  (11261 

250  DATA  AC04 ,C3 , 00 , Al ,BC32 ,C3 ,31 , AI , BC0E,  [2729] 
C3, 99 ,A1 ,B2E7,00,A1 ,A2 


I 
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Tips  &  Tricks 


CPC-Llstingservice 

m_hj8T. 

Wie  in  jedem  Heft,  finden  Sie  auch  hier  wieder  den 
Listingservice,  der  Ihnen  helfen  soll,  die  in  unserem  Ma¬ 
gazin  abgedruckte  "Paperware”  in  "Software”  für  Ihren 
Rechner  zu  verwandeln.  Neben  den  Piktogrammen  für 
Kassetten-/Diskettenbctrieb  und  der  Angabe  der  Lauffä¬ 
higkeit  finden  Sie  die  Super-Eintipphilfe  "Checksummer" 
Um  den  Checksummer  benutzen  zu  können,  genügt  es, 
das  Programm  einmal  aufzurufen;  es  generiert  selb¬ 
ständig  den  Maschinencode,  aktiviert  den  Checksummer, 
gibt  eine  Bereitschaftsmeldung  aus  und  löscht  sich  an¬ 
schließend  selbst  wieder.  Ab  jetzt  wird  jede  Eingabe,  nach¬ 
dem  man  ENTER  gedrückt  hat,  mit  der  Ausgabe  einer 
Quersumme  quittiert.  Beim  Eintippen  von  Programmli- 
stings  kann  man  nun  durch  den  Vergleich  der  beiden  in 
eckigen  Klammern  stehenden  Zahlen  feststellen,  ob  man 


sich  vertippt  hat  und  ggf.  den  Fehler  sofort  berichtigen. 
Des  weiteren  hat  man  die  Möglichkeit,  mit  dem  RSX- 
Befehl  CHECK,s,z  ein  Listing  mit  den  dazugehörigen 
Checksummen  zu  erzeugen.  Die  Parameter  s  und  z  defi¬ 
nieren  den  Ausgabekanal  (s  =  0  bis  9)  und  die  Zeilennum¬ 
mer,  ab  der  mit  der  Ausgabe  begonnen  werden  soll;  wird  z 
nicht  angegeben,  so  wird  an  dessen  Stelle  1  ange¬ 
nommen. 

Vor  dem  Druck  sollte  man  mit  WIDTH  x  die  maximale 
Breite  (x)  einer  Zeile  festlegen.  Mit  Hilfe  der  RSX-Befehle 
ON  und  OFF  kann  der  Cheksummer  ein-  bzw.  ausgeschal¬ 
tet  werden. 

Bei  der  Berechnung  der  Quersumme  werden  die  Zeilen¬ 
nummer  und  Leerzeichen  überlesen;  zwischen  Groß-  und 
Kleinschreibung  wird  nur  innerhalb  zweier  Anführungs¬ 
striche  unterschieden,  da  ansonsten  die  Schreibweise  von 
Befehlsworten  und  Variablennamen  keinen  Einfluß  auf 
die  Funktionstüchtigkeit  eines  Basicprogrammes  hat. 

(Thomas  Fippl) 


100  REM  CHECKSUM  464  *•« 

1 1  0  MEMORY  &A4FF 

120  FOR  a%=&A500  TO  &A607 

130  READ  by te$ 

140  POKE  a% , VAL{ "&"+byte$ ) 

150  NEXT 
160  PRINT 

170  PR INT" CHECKS UM  v2" 

180  CALL  &A500: !ON:NEW 
190  : 

200  DATA  21 ,09,a5,01 ,0d,a5,c3,d1 
210  DATA  bc,00,00,00,00,18,a5,c3 
220  DATA  2a,a5,c3,2f,a5,c3,43,a5 
230  DATA  4f , ce ,  4f ,46,c6,43,48,45 
240  DATA  43,cb,00,00,cf,98,aa,c3 
250  DATA  a8,a5,21 ,27,a5,18,03,21 
260  DATA  24, a5,28,06, cd, 00, b9,c3 
270  DATA  06,dd,1 1 ,3a,bd,01 ,03,00 
280  DATA  ed , bO ,c9 , 4  f ,cd ,00 , b9 , Od 
290  DATA  28,08,0d,20,ea,dd,7e,02 
300  DATA  18, 04, 7b, 11 ,01 ,00, cd, a2 
310  DATA  cl ,cd,a3,e7,e5,4e,23,46 
320  DATA  23, 5e, 23, 56, ei ,70, bl ,c8 
330  DATA  cd,3c,c4,e5,09,e3,cd,63 
340  DATA  ei ,21 ,a4 ,ac,cd,7a,a5 ,e1 
350  DATA  18,e2,e5,cd,ba,a5,e3,cd 
360  DATA  98,a5,cd,96,f2,e3,cd,f6 
370  DATA  a5,cd,4e,c3,e1 ,7e,a7,c8 
380  DATA  cd,98,a5,cd,4e,c3,18,f5 
390  DATA  3a,24,ac,d6,08,47,7e,a7 
400  DATA  c8, cd, 45, ei ,23,10,f7,c9 
410  DATA  cd,24,a5,f5,c5,d5,e5,cd 
420  DATA  ba,a5,cd,f6,a5,e1 ,d1  ,c1 
430  DATA  f 1 ,c9,eb,1b,af ,47,67,6f 
440  DATA  2f ,32,23, a5,1 3,1a, d6, 30 
450  DATA  38,04,fe,0a,38,f6,1a,13 
460  DATA  a7,c8,4f ,3a,23,a5,a1 , f e 
470  DATA  20, 28, f3, 79, fe, 22, 20, 07 
480  DATA  3a,23,a5,2f,32,23,a5,3a 
490  DATA  23,a5,a7,79,c4,8a,ff,4f 
500  DATA  ad,07,6f ,09,18, d8,3e, 20 
510  DATA  cd,5c,c3,3e,5b,cd,5c,c3 
520  DATA  cd , 79 ,ee, 3e, 5d,c3 , 5c,c3 


100  REM  ***  CHECKSUM  664  *•* 

110  MEMORY  &A4FF 

120  FOR  a%=&A500  TO  &A607 

130  READ  by te$ 

140  POKE  a%, VAL( "&"+byte$ ) 

150  NEXT 
160  PRINT 

170  PRINT"CHECKSUM  v2" 

180  CALL  &A500: |ON:NEW 
190  : 

200  DATA  21 ,09,a5,01 ,0d,a5,c3,d1 
210  DATA  bc, 00 , 00 , 00 , 00 , 1 8 ,a5 ,c3 
220  DATA  2a,a5,c3,2f,a5,c3,43,a5 
230  DATA  4f,ce,4f,46,c6,43,48,45 
240  DATA  43,cb,00,00,cf,02,ac,c3 
250  DATA  a8,a5,21 , 27 ,a5,1 8,03,21 
260  DATA  24,a5,28,06,cd,00,b9,c3 
270  DATA  4c, cb,1 1 ,5b, bd,01 ,03,00 
280  DATA  ed,b0,c9,4f ,cd,00,b9,0d 
290  DATA  28,08,0d,20,ea,dd,7e,02 
300  DATA  18, 04, 7b, 11 ,01 ,00, cd, a9 
310  DATA  cl ,cd,69,e8,e5,4e,23,46 
320  DATA  23, 5e, 23, 56, ei ,78, bl ,c8 
330  DATA  cd,75,c4,e5,09,e3,cd,59 
340  DATA  e2,21 ,8a,ac,cd,7a,a5,e1 
350  DATA  1 8,e2,e5,cd,ba,a5,e3,cd 
360  DATA  98,a5,cd,58,f3,e3,cd,f6 
370  DATA  a5,cd,9b,c3,e1 ,7e,a7,c8 
380  DATA  cd,98,a5,cd,9b,c3,18,f5 
390  DATA  3a,09,ac,d6,08,47,7e,a7 
400  DATA  c6,cd,22,e2,23,10,f7,c9 
410  DATA  cd,24,a5,f5,c5,d5,e5,cd 
420  DATA  ba,a5,cd,f6,a5,e1 ,d1  ,c1 
430  DATA  fl ,c9,eb,1b,af, 47,67, 6f 
440  DATA  2f ,32,23, a5,1 3,1a, d6, 30 
450  DATA  38,04,fe,0a,38,f6,1a,13 
460  DATA  a7,c8,4f ,3a,23,a5,a1 ,fe 
470  DATA  20, 28, f 3,79, fe, 22, 20, 07 
480  DATA  3a,23,a5,2f,32,23,a5,3a 
490  DATA  23,a5,a7,79,c4,ab,ff,4f 
500  DATA  ad,07,6f ,09,18, d8,3e, 20 
510  DATA  cd,a3,c3, 3e,5b,cd,a3,c3 
520  DATA  cd,49,ef,3e,5d,c3,a3,c3 


100  REM  ***  CHECKSUM  6128  *** 

110  MEMORY  &A4FF 

120  FOR  a%=&A500  TO  &A607 

130  READ  by te$ 

140  POKE  a% , VAL{ "&"+by te$ ) 

150  NEXT 
160  PRINT 

170  PRINT"CHECKSUM  v2" 

180  CALL  &A500: |ON:NEW 
190  : 

200  DATA  21 ,09,a5,01 ,0d,a5,c3,d1 
210  DATA  bc, 00 , 00 , 00 , 00 , 1 8 ,a5 ,c3 
220  DATA  2a,a5,c3,2f ,a5,c3,43,a5 
230  DATA  4f ,ce,4f , 46 , c6 , 43 , 48 , 45 
240  DATA  43 ,cb,00 , 00 ,cf ,02 , ac,c3 
250  DATA  a8,a5,21 , 27 , a5 , 1 8 , 03 , 21 
260  DATA  24,a5,28,06,cd,00,b9,c3 
270  DATA  49,cb,1 1 ,5e,bd,01 ,03,00 
280  DATA  ed,b0,c9,4f ,cd,00,b9,0d 
290  DATA  28,08,0d,20,ea,dd,7e,02 
300  DATA  18, 04, 7b, 11 ,01  ,00, cd, a6 
310  DATA  cl ,cd,64,e8,e5,4e,23,46 
320  DATA  23, 5e, 23, 56, ei ,78, bl ,c8 
330  DATA  cd,72,c4,e5,09,e3,cd,54 
340  DATA  e2,21 ,8a,ac,cd,7a,a5,e1 
350  DATA  1 8 re2,e5,cd,ba,a5,e3,cd 
360  DATA  98,a5,cd,53,f3,e3,cd,f6 
370  DATA  a5 ,cd , 98 ,c3 ,e1 , 7e, a7, c8 
380  DATA  cd,98,a5,cd,98,c3,18,f5 
390  DATA  3a,09,ac,d6,08,47,7e,a7 
400  DATA  c8,cd,1d,e2,23,10,f7,c9 
410  DATA  cd,24,a5,f5,c5,d5,e5,cd 
420  DATA  ba,a5 ,cd, f6,a5 ,e1 ,d1 ,c1 
430  DATA  fl ,c9,eb,1b,af ,47,67,6£ 
440  DATA  2f ,32,23, a5, 13,1a, d6, 30 
450  DATA  38,04,fe,0a,38,f6,1a,13 
460  DATA  a7 ,c8 , 4f , 3a, 23 ,a5 ,a1 , fe 
470  DATA  20, 28, f3, 79, fe, 22, 20, 07 
480  DATA  3a,23,a5,2f ,32,23,a5,3a 
490  DATA  23,a5,a7,79,c4,ab, ff ,4f 
500  DATA  ad,07,6f ,09,18, d8,3e, 20 
510  DATA  cd,a0,c3,3e,5b,cd,a0,c3 
520  DATA  cd,44,ef ,3e,5d,c3,a0,c3 
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VERSAIMDSERVICE 


Das  ist  keine  Vortex- Werbung,  sondern  unser  neuer  Vortex- Versand -Service. 
Kompetente  Hard-  und  Software  sowie  Zubehör  aus  einer  Hand! 

Alle  Produkte  sind  von  uns  getestet  und  entsprechen  unserem  hohen  Qualitätsstandard. 


JOYSTICKS! 


Compnti tion  Pro  5000 
Qulcklhot  1 
Quickshot  II 

Qickshot  III  (mit  3  Griffen) 
Quickshot  UI  I  (Joycacd  Controller) 
Wico: The  Bose 
Schneider  JY-2 


GRAPHISCHE 


Li9htpan 
Craffped  I! 

Greffpad  II 
AMX-Mouse 

Grapni. master  Dlak:  5. 25"/>“/3. 5“  i 


54,— OH 
17,90DM 
21,90DM 
27,90DM 
24,90DM 
49 , 90DM 
39.500M 


99,— DM 
278,— DM 
298, --DM 
278 , — DM 
79.-/89,-/89,--0H 


VERBINDUNGSKABEL; 

Druckerkaoel: 

für  CPC  464,664  (1m  Länge) 

für  CPC  464,664  (2m  Länge) 

für  CPC  6128  (lm  Länge) 

für  CPC  6128  (2m  Länge) 

für  CPC  6128  (1,5m  Länge) 

AkkustikkopplerksbeKzw.RS  232  u. Modem 
AnsehluOkBbeli  2. Floppy  in  CPC  664: 
AnschluOkabe 1 :  2. Floppy  an  CPC  6128: 
Flopoyi/erlängerungakabel  für  olle  CPCa 
Honitorverlangerung  für  CPC  464: 
Monitorver langer ung  für  CPC  664  u.6128 
Joyatickverlöngerung  für  I  Joystick  (2 
RecordeconsrhJuoetCPC  an  5-pol.0IN  Buc 
Recorderanachlu3s(CPC  an  Klinkenbuchaa 
CPC-Stereokabel  zum  Anachluaa  an  HiFi- 


V0RTEX-0I5K  05/00  96  tpi  lOStk. 
VORTEX-DISK  OS/00  135  tpi  lOStk. 
DISK  CF -2  5Stk. /lOStk.' 

0ISK  CF-20D  (für  Joyce  B512) 


39, 

—OM 

44, 

--DM 

39, 

—DM 

44, 

.  —  DM 

49, 

.--DM 

i)l ,  5m: 

49, 

.  50DH 

44, 

,50DM 

44, 

.50DM 

i  (2m): 

59, 

,00DM 

22, 

,90DM 

28, 

,90DM 

'm  Länge: 

1  14, 

90DM 

:hae) 

17, 

,90DM 

p) 

17, 

,90DM 

■Anlage 

15, 

,  90DM 

59.--DM 
89.--0M 
52,  --0M/99,  —OH 
5Stk.  99 , - -OM 


NÜTZLICHES  ZUBEHÖR: 


Plaatikacheblor 
Ihre  Tastatur  t. 
fällt. Folgende 
Schablone:8aeic 


CPC  464:Legen  Sie  die  Schablone  auf 
d  die  ewige  Blätterei  im  Handbuch  ent- 
Anwa 1  Bungen  befinden  eich  auf  der 
Anweisungen, Eln-/Auagab a anwei aungen, 
logleche  Operetlonen,  mathematische  Oper ationen , Syntax 
Notizen ,  Baeic  Be  fehle, Basic  Funktionen, Numerische 

Funkt  Ionen, Zelchanketten,FerbtBbellB  und  AMSOOS-Be fehle 
Preie:  27,90DM 


KebolechelleniSchluae  mit  dam  Kabeleelat  unter  Ihrem 
Computertiech. Benutzen  Sie  unsere  eelbetklobonde  Kabel 
•chellon.  Kein  Beschädigen  der  Tieehdborfläche. In  den 
Farben  weise , schwer z  und  braun  lieferbar  . 
Verpiekungainhslt:16  Stück  B,90DM 


VORTEX-Monitorotänden  Dreh-und  achwankba 
Richtungen.  Für  alle  12“  Monitor . Solide  Ausfuhr 


bruchfestem  Kunststoff.  Preie: 


DFO(OetenfernübortraqunQ) 


V0RTEX-VAK-300: 

übertragungageschwindigkelt:300  Baud 
Orginate-ZAnawermodua 
Stromuersorgung:9V  Blockbatteria/ 
Preie: 


ter 


Netzteil 
198,  —DH 


VORTEX-RS-232  Schnittstelle: 

Ina  ROM  eingebundene  Software  mit  RSX-Befehlan  unter 
anderemsEinetellung  der  Parameter, übertragungfaenden 
u.  empfangenjwon: einzelner  Zeichen  und  Zeiohenketten 
( St r Inga ) , ASC I I-Fi lea  mit  und  ohne  Saftwareprotokoll, 
serielle  Oruckerenateuerung(Plotter)und  integriertes 
Terminalprogramm. Unter  CP/M;sofortige  Einbindung 
mittele  der  im  AMSD0S  und  VDOS  2.1  enthaltenen  Troi- 
borroutlnan.Auaführlichate  deutsche  Dokumentation 
(ca. 60  Seiten) . Zeigen  Sie  une  eine  RS-232  Schnittstel¬ 
le  die  bei  diesem  Preis  mehr  biateti  298, --0H 

VORTEX-Phono-Set:  bestehend  eue: 

Akkuatikkopler  V0RTEX-VAK-30O, Schnittstelle  V0RTEX-RS- 
232, Netzteil  zur  Stromversorgung, Oiakettenaoftware  und 
Verbindungskabel . Ihr  Vor  teil : Alles  aus  einer  Hand.d.h. 
keine  Kompelibilitätaprobleme.Nur  auspacken  anechilaa- 
aen  und  "detenfernübertcBgen". 

SONDERPREIS: 


498, --DM 


Monitorentapiegelungasprey:Beaeitlgen  Sie  läetiga 
Reflexionen  sofort  und  dauerhaft .Oie  Augen  werden 

spürbar  entlastet. Auch  für  Bndere  Anwandungen  geeignet 
wie  z.B. iBilderglae.Autoarmeturen,  Fernsehgeräte  und 
ähnliche  optische  Anwendungen. Preie:  29,900M 

Datenracorder  incl . Anachluaakebel Sonderpreis  99,--DM 


BÜCHER: 


eile  Computerbüche 
ichheltigee  Angabe 


ruren  Sie 
ständig  a 


if  Läger. 


OlSKETTÜNBOXSNi 


3“  Diakbox  für 
3“  Diskbox  für 
dto. 

5,25”  Diakbox  für  50  Disketten 
5,25"  Diakbox  Tür  B5  Disketten 
3,5”  Diakbox  für  40  Disketten 
3,5“  Diakbox  für  80  Disketten 


PFLEGEMITTEL: 


abechiieaabe 

abachliesaba 
abechlie  aaba 


14.800H 

3B.90DH 

53,90DM 

36,90DM 

39,90DM 

38,90DM 

44,90DM 


Schneider- , 


DRUCKER: 

Typenraddrucker  V0RTEX-2000  998, --DM 
Matrix-VORTEX  85(baugieich  Epeon  FX-85):  1199,— DM 
Star  NL-10  898,—  DM 
Panasonic  KX-P  1080  798,— DH 
Panasonic  KX-P  1090  690,  —OM 
Panasonic  KX-P  1092  1098, --DM 
Citizen  LSP-10  948,— DM 
Schneider  DMP  2000  678, — DM 


Farbbänder  für: 

NLQ  401, MPS  803 , Brothex  1009, Centronics  GLP:  13,90DM 
Panasonic  KX-P  1080, 1090 , 1091 , 1092 , 1592 :  29,90DM 

Rltenan  F-/C+.DMP  2000  28,90DM 

Epson  RX  80, FX  80, FX  85, MX  70, MX  80, 

HX  82, IBM  5152:  14,80DM 

Joyce-Drucker, Seikoshe  SP  800, 

SP  10U0, Thomson  PR90:  24,80DM 

Seikoshe  OP  500, GP  550  11,90DM 

Okidata  ML  182, ML  183, Ml  192, ML  193  19,9QOM 

Druckerpapier: 

>00  01 8 1 1  EDV-Endloapapier  im  Tregekarton  14,90DM 

1.000  Blatt  240mm  x  12"  endloB , holz  frei  60g  29,90DM 

Druckaratänder: 

Pepierzuführung  wahlweise  von  unten  oder  hinten, sehr 

otabile  Ausführung, Nutzfläche:  40  x  32  ca  55,— DH 


Bei  Schneider-Produkte 
telefonisch  erfragen. 


aktuell»  Tagespreise  bitte 


JOYCE --HARDWARE: 

Schneider  PCU  8256  Joyce 
Schneider  PCW  8512  Joyce  plue 
Aufrüatklt  für  Joyce  PCW  8256  auf 
FD-2( 1  MB-Laufwerk  eie  2. Floppy) 
Bildachlrmrilter  für  Joyce-Monitor 
Joyce-Drucker  Verläogeruogekabel 


JOYCE-SOFTWARE: 


Locoacrip t( Kurzanlei tung  mit  Ubungadiec) 

DR-Craph 

DR-Drew 

Prompt(Deteiverweltung  m.  Listergenerelor ) 
Geochäftslöeung: 

Adreaa- .Leger -und  Faktur lerungeprgr. 
Wordstar, d  Baeell  und  Multiplen  Je 
Qulck-Neme(Adreo 


1.648, --DM 
2.298,— DM 
148, --DM 
698, --DM 
89,— DM 
59i--DH 


29,50DM 
199,50DM 
199,50DM 
69,  —OH 

199,50DM 
199,  —DH 


Weitere 

anforda 


Infor 


alle 


ltung  rUr3,400  Pereonen)12B, — OM 
Uber  disae  Programme  bitte 


NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU-NEU- 
SOFTWARE- SOFTWARE -SOFTWARE -S0F TWARE-S0F TWARE-S0F TWARE- 


Ihre  VORTEX-Hardwarc  vor  Verschmutzung: 

PAPERBOY 

C/D 

36,—  /54.--0M 

Schneider  Floppy  DDI-1 

16,80DM 

1942 

C/D 

36,—  /54,—  DM 

VORTEX  Floppy  Fl-S  o.Fl-D 

19, BOOM 

LIGHT  FORCE 

C/D 

36,—  /54,—  DH 

Schneider  Konsole  für  464  u.664 

19,80DM 

BOMB  JACK 

C/D 

32,— /45,— DH 

Schneider  Konsole  für  6128 

19, 80DM 

GHOST'N  GOBI  INS 

C/D 

29,90/39, 900M 

VORTEX  Floppy  Fl-X  u.  Ml-X 

19, BOOM 

LEADER  BOARD 

C/0 

39,—  /«,—  DH 

Schneider  Monitor  grün 

24,80DM 

GREEN  8ERET 

C/D 

35,—  /45,—DH 

Schneider  Monitor  color 

26,80DM 

BAT  HAN 

C/D 

35,  — /45,  — DH 

Schneider  NLQ  401 

19,80DM 

EQUIN0X 

C/D 

35,— /45,—DH 

Schneider  DMP  2000 

22,80DM 

KNIGHT  GAMES 

C/D 

39,—  /59,—  DM 

VORTEX  Winchester! auf werk  WD-20 

19,80DM 

HEXENKÜCHE  TEIL  II 

C/D 

29,— /45,—DH 

1MP0SSIBLE  MISSION 

C/D 

39,--/59,--0H 

Reinigen  Sie  Ihr  5,25"Laufwerk  mit  unsere 

«  apezlollem 

SHOGUN 

C/0 

39,—  /59,—  DH 

Reinigungeeet: 

MISSION  ELEVATOR 

C/0 

39,—  /59.--DM 

5, 25 "Kopf rein igungediekette: 

I3.900M 

BEACH  HEAD  TEIL  II 

C/0 

39,— /59.--DH 

GQ0NIES* 

c/o 

39 ,  — /59,  — DM 

Kaeeettenrelnigungsset  beBtehend  aus: 

RE8EL  PLANET 

c/o 

39,  —/59,  — OM 

1  PrüFkaBHottH , 1  Reinigungsmittel  für  Kaps tan-u . Gummi- 

QUESTPR0BE 

c/o 

39.--/59.--DM 

antrleb.l  Tonkopf re inigungeflUaeigkeit 

und  mehrere 

C0NTERMINAT  ION 

c/o 

39,— /56.--DM 

Reinigung je täbchen„ Ein führungap reis: 

10 , 90DM 

INTERNATIONAL  KARATE 

C/D 

29,90/39, 90DM 

STREET  HAWK 

C/D 

39,—  /59,  --DM 

O  Senden  Sie  mir  Ihren  Katalog  (Schutzgebühr  DM  3.-) 

O  Senden  Sie  mir  umgehend  folgende  Artikel  aus  Ihrem  Angebot: 

O  Der  Nachnahme  O  per  Euro-Scheck 


Selbstverständlich  erhalten  Sie  über  den  Vortex-Versand-Service  auch  alle  Vortex-Produkte! 

Händleranfragen  erwünscht! 

Achtung  Programmierer:  Haben  Sie 
gute  Spiele  (keine  Adventures)  oder 
Utilities,  setzen  Sie  sich  mit  uns  in 
Verbindung.  Wir  sind  ein  fairer  Partner. 

Telefonische  Bestellung  von  8-12  Uhr 
und  von  13-17  Uhr. 

Außerhalb  der  Geschäftszeiten  nimmt 
unser  Anrufbeantworter  Ihre  Bestel¬ 
lung  entgegen. 

vortex  Computersysteme  GmbH 
Falterstrasse  51  -53 
7101  Flein 
Tel.  07131/52065 
Tx  728915  vortxd 


DM 


bei  Aufträgen  bis  DM  200.-  Versandkostenpauschale  DM  5.90 
Absender: 


Gesamtsumme 


-DM 

DM 


Tel.  Nr. 


Unterschrift: _ 

Alle  Lieferungen  erfolgen  auf  Grund  unserer  Allgemeinen  Geschäftsbedingungen 


Tips  &  Tricks . 

Screen  Compressor 
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für  464-664*1 18  HRfl 

Auch  wenn  der  Titel  zunächst  so  klingen  mag  -  dies  ist 
keine  Anleitung  zur  Herstellung  eines  Miniatur-Monitors 
im  Taschenformat,  es  geht  vielmehr  um  folgendes,  recht 
alltägliches  Problem: 

Jedes  Adventure  oder  vergleichbares  Spiel  wirkt  gleich  um 
etliches  besser,  wenn  es  über  eine  ansprechende  Grafik 
verfügt.  Also  bemüht  man  sich,  auch  in  das  eigene 
Programm  ein  paar  hübsche  Bilder  einzubauen.  Schade 
nur,  daß  jedes  Bild  -  und  sei  es  noch  so  einfach  -  gleich 
ganze  16KB,  also  ein  Viertel  des  Speicherplatzes  belegt. 
Ohne  Laufwerk  oder  Speichererweiterung  kommt  man 
hier  nicht  sehr  weit. 

Dieser  Punkt  läßt  sich  jedoch  erheblich  verbessern  (vor  al¬ 
lem  bei  einfachen  Bildern),  wenn  man  auf  folgende  Eigen¬ 
schaft  aller  Bildschirmgrafiken  zurückgreift: 

Sieht  man  sich  einmal  den  Bildschirmspeicher  Byte  für 
Byte  an,  so  stellt  man  fest,  daß  recht  oft  mehrere  Bytes 
hintereinander  denselben  Wert  haben.  Was  liegt  also  nä¬ 
her  als  die  Idee,  eine  solche  Kette  von  gleichlautenden  By¬ 
tes  durch  zwei  Bytes  zu  ersetzen,  nämlich  den  Wert  selbst 
und  die  Anzahl  der  zusammengehörigen  Bytes.  Man  be¬ 
nötigt  dazu  nur  ein  Programm,  das  den  Bildschirm 
möglichst  schnell  in  komprimierter  Form  ablegt  und 
ebenso  schnell  wieder  hervorholt.  Genau  dies  bewerkstel¬ 
ligt  unsere  Routine  "Screen  Kompressor". 

Tippen  Sie  das  Programm  ab  und  starten  Sie  es.  Nach  der 
Ready-Meldung  stehen  Ihnen  folgende  RSX-Befehle 
zur  Verfügung: 

ICOMPRESS,adr 

legt  den  Bildschirmspeicher  in  komprimierter  Form  bei 
adr  ab. 


IEXPAND,adr 

holt  die  bei  adr  abgelegten  Bildschirmdaten  wieder 
zurück. 

Die  Parameter  des  zuletzt  gespeicherten  Bildes  kann  man 
mit  folgenden  Befehlsfolgen  wieder  auslesen: 
Anfangsadresse  Bild: 
PEEK(&ABF0)+256*PEEK(&ABF1) 

Endadresse  Bild: 

PEEK(&ABF2)+256*PEEK(&ABF3) 

Länge  des  Bilds: 

PEEK(&ABF4)+256*PEEK(&ABF5) 

(T.  Kochmann) 


10  REM  BILDSCHIRMKOMPRESSOR  12166] 

20  SYMBOL  AFTER  256: MEMORY  &A1FF  11870] 

30  FOR  I.&A200  TO  &A276  C329] 

40  READ  x:  IF  x=&AB  THEN  x=ÄA2  11214] 

50  POKE  i,x:NEXT  [696] 

60  CALL  &A200  [597] 

70  END  [110] 


80  DATA  &01 ,&09,&AB,&21 ,&1F,ÄAB,&C3,&D1 ,&B  [1708] 

C, &11 ,&AB 

90  DATA  &C3 , &23 ,&AB, &C3 , &3B, &AB , &43 , &4F, &4  [2590] 

D, &50,&52,&45,&53,&D3 

100  DATA  &45,&58,&50,&41 , &4E, &C4 ,&0,&0,&0,  (17231 
&0 

110  DATA  &FE,&01 , &C0 , &D5 , &EB, &22 , &F0 , &AB, &  [26401 
CD,«42,&AB 

120  DATA  &2B, &22,&F2,&AB,&D1 ,&B7 ,&ED,&52,&  [2978] 
23 , &22 , SF4 , &AB, &C9 

130  DATA  &FE,&1 , &C0 , &EB,&C3 , &5E, &AB  (9601 

140  DATA  &11 ,&0,&C0,&lA,&77f &6,&1 ,&4,&13,&  [2404] 
28,&9,&7A,&FE,&C0 

150  DATA  &38,&5#&1A, &BE, &28 , &F3 , 4B7 , &23 , &5  [23991 
,&70,&23,&30,SE8,&C9 

160  DATA  &11 ,&0(&CO,&6,40,47E,&l2,&D5,&23f  [21261 
AI  3 , &4E, &23 , &E3 

170  DATA  &D,&28r&2, &ED, &B0 , &E1 , &7A, &FE,&C0  [2985] 
,&30,&ED#&C9 


1 1 0  CPC  9  '86 


UM  I  I 


IIIIMIMIlMMIMt' 


iiiiimimiiMi 


iiiimmii 


II DG  Desctop  Editor 

Ein  Symboldefinitionsprogramm 


für  464-664-6128 


Aufhören,  ich  kann  keinen  "Zeichengenerator"  mehr  se¬ 
hen!"  Das  werden  Sie  sicherlich  denken,  wenn  Sie  diese 
Überschrilt  lesen,  aber  lesen  Sie  einmal  folgende  Kurzbe¬ 
schreibung.  und  Sie  werden  eines  Besseren  belehrt  sein, 
denn  jetzt  kommt  ein  Symboldefinitionsprogramm  mit 
völlig  neuen  Features  und  ganz  neuem  Aufbau: 

-  übersichtliche  Menueführung  mit  Pfeil  und  Pull- 
Down-Menues,  sowie  durch  verschiedene  Schriftgrößen 
des  Textes 

-  zeitkritische  Programmteile  sind  RSX-unterstützt 

Definitionshilfen: 

-  Editieren  von  Originalsymbolen 

-  horizontales  und  vertikales  Spiegeln 

-  beliebiges  Rotieren 

-  Invertieren 

Speichermöglichkeiten: 

-  Binärfeld  (Symbol  table)  speichern 

-  sofort  lauffähiges  Basic-Programm 

-  Ausgabe  der  Werte  auf  Bildschirm  und/oder  Drucker  in 
Dezimal-,  Hexadezimal-,  sowie  Binärdarstellung 

-  zwar  für  Diskette  geschrieben,  aber  voll  kassetten¬ 
kompatibel 

An  diesen  Stichworten  sehen  Sie  schon,  daß  es  sich  nicht 
um  ein  "stinknormales"  Basic-Programm  handelt,  son¬ 
dern  daß  dieses  Programm  mehr  kann  ... 

Da  dieses  Programm  möglichst  kompakt  werden  sollte, 
wurde  keinerlei  'REM’  eingebaut. 
Maschinencode-unterstützt  wurde  die  Darstellung  des 
XOR-Sprites  für  den  Pfeil,  die  Speicherung  des  Bild¬ 
schirmspeichers,  die  Umschaltung  in  einen  Software¬ 
modus,  sowie  die  schnellere  Bildschirmausgabe  im  Mode 
2  dank  einer  kürzeren  neuen  Routine  als  die  des  Compu¬ 
ters  von  Thomas  Gigge. 

Zur  Bedienung  des  Programmes  gibt  es  eigentlich  nicht 
viel  zu  sagen,  weil  sich  dieses  Programm  selbst  erklärt: 
Der  Pfeil  zur  Anwahl  der  verschiedenen  Punkte  wird  mit 
den  Cursortasten  über  den  Bildschirm  gesteuert,  zur  An¬ 
wahl  eines  Menuepunktes  drücken  Sie  entweder  die 
kleine  oder  die  große  ENTER-Taste;  oder  auch  die  COPY- 
Taste,  und  schon  erscheint  entweder  ein  neues  Menue 
oder  der  Programmteil  wird  ausgeführt. 

Falls  Sie  das  Programm  mit  Kassette  betreiben  wollen, 
müssen  Sie  nur  statt  "DISC”  immer  "TAPE’’  einsetzen 
(dank  des  flexiblen  AMSDOS).  (Zeilen  1250,  3850.  3870, 
3910,  3970,  3990). 

Am  Anfang  des  Programmes  erscheint  unten  der  Titel  und 
oben  die  Hauptmenueleiste  mit  dem  Pfeil. 

Haben  Sie  zum  Beispiel  "DEFINITION”  angewählt,  so 
können  Sie  mit  COPY  einen  Punkt  setzen,  mit  CLR  einen 
Punkt  löschen,  mit  DEL  das  ganze  Symbol  löschen  und 
mit  ENTER  die  Definition  abschließen  und  den  Compu¬ 


Tips  &  Tricks 

ter  arbeiten  lassen.  Es  werden  nun  die  Symbolwerte  be¬ 
rechnet  und  ausgegeben. 

Drücken  Sie  eine  Taste,  dann  kommen  Sie  in  das  Unter- 
menue,  wo  Sie  wählen  können,  ob  das  Zeichen  mit 
SYMBOL  definiert  werden  soll  (in  die  Edit-Tabelle  ein¬ 
getragen  werden  soll),  ob  es  in  das  Basic-Programm  ein¬ 
getragen  werden  soll,  oder  ob  man  die  Daten  schwarz  auf 
weiß  ausdrucken  soll. 

Wenn  Sie  die  Symboltabelle  binär  oder  als  Basic- 
Programm  abspeichem  wollen,  fahren  Sie  zu  "DISC"  und 
wählen  hier  entweder  ”Save  edit  table"  (binär)  oder  "Save 
udg  program”  (Basic)  an. 

"Edit  table”  steht  immer  für  die  binäre  Zeichentabelle,  die 
mit  SYMBOL  definiert  wird,  ”udg  program”  für  das  Basic- 
Programm,  das  in  Strings  abgespeichert  wird,  und  danach 
mit  ’ RUN” SYMBOLS”'  gestartet  werden  kann,  mit 
MERGE  zu  anderen  Programmen  dazugeladen  werden 
kann  und  so  weiter. 

Falls  Sie  das  zuletzt  definierte  Symbol  editieren  wollen, 
fahren  Sie  zu  "EDIT",  wählen  hier  "Edit  symbol”  an  und 
drücken  bei  der  Eingabe  einfach  ENTER.  Das  Zeichen  ist 
immer  als  CHR$(0)  definiert. 

Sie  können  übrigens  jederzeit  mit  Break  (ESC)  stoppen 
und  mit  "GOTO  1 160”  oder  auch  mit  RUN  neu  starten;  im 
zweiteren  Fall  allerdings  mit  dem  Verlust  aller  Daten.  Das 
alles  ist  im  Normalfall  aber  nicht  nötig. 

Und  nun  viel  Spaß  beim  Entwerfen  Ihres  eigenen 
Zeichensatzes. 

(Eckehart  Röscheisen) 

1000  SYMBOL  AFTER  256:MEM0RY  &5FFF: SYMBOL  [18941 
AFTER  0 

1010  DIM  row[8 ] ,prg$ [2551 : DI : SPEED  KEY  17,  [20771 
1 :prg=2 

1020  INK  0,0: BORDER  0:INK  1,19:MODE  2  [16661 

1021  PRINT”RECHNERTYP  : [1 1  464  [21  664  [  [28091 

3]  6128” 

1022  ROMVER$=INKEY$:IF  ROMVER$=""  THEN  102  [23131 
2 

1023  IF  VAL(ROMVER$ )  <1  OR  VAL(ROMVER$) >3  (34561 


THEN  1022 

1024  ROMVER=VAL(ROMVER$)  17651 

1030  FOR  n=1  TO  6  [7941 

1031  CLS  191 1 

1040  READ  d$:a$=a$+SPACE$ ( 7 )+d$  (17751 

1050  NEXT  £3501 

1060  PRINT  CHR$ ( 24 )a$SPC( 7 )CHR${ 24 )  (10211 

1070  FOR  n=46000  TO  &613C  [11101 

1080  READ  d$: POKE  n,VAL("4"+d$)  115111 

1090  NEXT  [3501 


1091  IF  ROMVERol  THEN  POKE  460 9E, 4C4 : POKE  [119161 
4609F, 4B7:P0KE  460A6,4C6:POKE  460A7,4B7:P 

OKE  460F4 , &C3 : POKE  460F5 , 4B7 : POKE  4611D,4C 
3 : POKE  46 11 E , 4B7 : POKE  461  AD, 430 :POKE  4612E 
, 4B7 : POKE  460D4,4CA:POKE  460D5,4B7 

1092  IF  R0MVER=2  THEN  POKE  461 22 , 447 : POKE  (37031 
461 25, 4D0: POKE  4612A,466 

1093  IF  ROMVER=3  THEN  POKE  461 22 , 44B: POKE  (45681 
461 25,4D4:POKE  4612A,46A 

1100  CALL  46000  (4691 

1110  [MODE, 0:LOC ATE  2,23: PRINT"UDG  DESCTOP  [37691 
EDITOR 

1120  | MODE , 1 : LOCATE  4,25:PRINT  CHR$(164)"1  (33871 
986  by 

664-  und  6128-Tips: 

Die  MC-Routinen  wurden  über  ein  Rechnertyp-Menue 
angepaßt. 

Lediglich  die  IMode-Befehle  müssen  entfernt  werden 
und  gegen  entsprechende  Locate-Positionen  ausgetauscht 
werden,  da  sonst  eine  Bildschirmverschiebung  auftritt 

(TM) 
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1130  PRINT"COMPUTER  project  Software 
1140  IMODE f 2 

1150  ILDIR, &C000 ,&6600,&4000 

1160  x=18 :y=0:x1 =0:x2=79:y1 =0:y2=42:ERASE 

row : DIM  row [ 8 ] 

1170  WINDOW  1 ,80,1 ,25: | LDIR , 466 00 , &C000 , &4 
000 

1180  GOSUB  1 590 : IF  y>10  THEN  1180 

1190  IF  x<20  THEN  1870 

1200  IF  x<31  THEN  2690 

1210  IF  x<43  THEN  3680 

1220  IF  x<54  THEN  3850 

1230  IF  x<66  THEN  4120 

1240  MODE  2: END 

1250  DATA  DEFINITION, EDIT, WASTE, DISC, INFOS 
,END 

1260  DATA  01 ,27,60,21 ,15, 60, CD, Dl ,BC,3E,C9 
,32,00,60,21 , 1 B 

1270  DATA  61 ,22, D4,BB, 09,00,00,00, 00, 41  ,52 
, 52 , 4F, D7 , 4C, 44 

1280  DATA  49, D2,4D,4F, 44,C5,00, 19,60,03,32 
,60,03,03,61 ,03 

1290  DATA  CD, 60, FE, 02, 00, DD, 6E, 00, DD, 66, 02 
,11 ,42, 60, CD, 58 

1300  DATA  60, C9, 10, 45, 60, 02, 00, 00, 00, 00, FF 
,00, FC, 00, FE, 00 

1310  DATA  CF, 00, 03, 00, 00, 00, 00, 00, D5 ,CD, 8C 
,60, Dl  ,1A,3D,C8 

1320  DATA  D8,4F,EB,23,46,23,66,68,46,EB,13 
, DD, 68, DD, 45, 79 

1330  DATA  90, D8,4F,E5,1A, AE, 77,13,2C,CC, Bl 
, 60 , 1 0 , F6 ,E1 ,7C 

1340  DATA  06, 08, 67, E6, 38, 20, E6, CD, C2, 60, 18 
, El ,45, CB, 85, 4C 

1350  DATA  26, 00, 54, 5D, 29, 29, 19, 29, 29, 29, 59 
,19 ,ED, 5B,C9 ,B1 

1360  DATA  19, 7C, E6, 07, 67, 3A, CB, Bl ,84, CB, 18 
,30,02,06,20,67 

1370  DATA  09, 24, 7C, E6, 07, C0, 7C, D6, 08, 67, C9 
,7C,C6,08, 67, E6 

1380  DATA  38,CO,7C,D6,40,67,7D,C6,50,6F,D0 
,  1  8 ,E4 ,FE, 01 ,C0 

1390  DATA  DD, 7E, 00, 11  ,CF,B1 ,B7,28,0F,01  ,04 
,00, FE, 01 ,28,10 

1400  DATA  FE, 02, C0, 21 , FF, 60, 18, OB, 21  ,F9, 60 
,01 ,02,00,18,03 

1410  DATA  21 ,FB, 60,32,08, Bl ,ED,B0 ,C9 ,F0 , 0F 
, C0, 30, 0C,03, 80 

1420  DATA  40, 20, 10, FE, 03, C0, DD, 46, 01  , DD, 4E 
,00, DD, 56, 03, DD 

1430  DATA  5E, 02, DD, 66, 05, DD, 6E, 04, ED, B0, C9 
,E5,3A,C8 ,B1 ,FE 

1440  DATA  02, C2, 4A, 13 ,CD, D3 , 1 2 ,EB,E1 ,CD, 64 
, OB, 3A, 90 ,B2 , 4F 

1450  DATA  06,08,1 A,A9,1  3, 77, 7C, CE, 08, 67, 10 
,F6,C9 

1460  WINDOW  a,b,c,d:CLS:a=(a-1  ) *8:b=b*8:c= 
(c-1  )-16:d=d*16 

1470  MOVE  a-2,401 -c:DRAW  b,  401 -c, 1 :DRAW  b, 
399-d 

1480  DRAW  a-2, 399-d: DRAW  a-2 , 401 -c:MOVE  a- 
3,399-c 

1490  DRAW  a-3,401 -d:MOVE  a-1 , 401 -c: DRAW  a- 

1 .401- d 

1500  MOVE  b+2,399-c:DRAW  b+2,401 -d:MOVE  b+ 

1 .401- c 

1510  DRAW  b+1 ,399-d:RETURN 
1520  CALL  &BD19: | ARROW, x,y: CALL  &BD1 9 
1530  CALL  &BB06: {ARROW, x,y: RETURN 
1540  IF  INKEY ( 0 ) <  >-1  AND  y>y1  THEN  y=y-1 
1550  IF  INKEY { 2 ) <  >  —  1  AND  y<y2  THEN  y=y+1 
1560  IF  INKEY ( 8 ) <  >-1  AND  x>x1  THEN  x=x-1 
1570  IF  INKEY jl) <>-1  AND  x<x2  THEN  x=x+1 
1580  RETURN 

1590  GOSUB  1 520 :GOSUB  1540 
1600  IF  INKEY ( 1 8 ) <  >-1  THEN  RETURN 
1610  IF  INKEY ( 6 ) <  >-1  THEN  RETURN 
1620  IF  INKEY (9) <>-1  THEN  RETURN 
1630  GOTO  1590 

1640  PRINT#a , TAB ( 4 ) "Line :  DEC  HEX  BIN 
1650  PRINTSa 
1660  FOR  n=1  TO  8 
1670  PRINT#a, TAB (5  )n; 

1680  PRlNT#a ,  USING"  Mtf";  rowln); 

1690  PRINT#a, "  &"HEX$  (rowln)  ,2  ) ; 

1700  PRINTfla , "  "BIN$ (rowfnl ,8 ) 

1710  NEXT 

1720  CALL  &BB06: RETURN 
1730  WINDOW  1 ,80,2,25:CLS 


. . . . . . . . uimmiiiiiHittiiimiiti . . 


. . . . . 


[4387] 

[11071 

[19091 

[47561 

[2605] 

[1585] 
[693] 
[330] 
[5883 
[1194  ] 
[9283 
[1120] 
[2051  ] 

[3111  1 

[23271 

[2551  ] 

[2035] 

[22051 

[1777] 

12375] 

12183] 

13617] 

[2511  ] 

12929] 

[3451  1 

(16781 

[26861 

[21683 

[21191 

[1998  1 

[2596  ] 

[32903 

[2170] 

(33161 

[2567] 

[15701 

[22261 

[1917  ] 

(345) 

[1846] 

[16621 

[22141 

[2121  ] 

[1641  ] 

[15741 

1555] 

[1430] 

[1047  ] 

[767] 

[9301 

[317] 

[1922] 

(558] 

[816] 

[1107] 

[1896  ] 

118241 

[12621 

(350  1 

[1826] 

[1761  ] 


1740  LOCATE  44 , 2 : PRINT"Move  arrow 
1750  LOCATE  44 , 4 : PRINT"Show  values 
1760  LOCATE  44 , 6: PRINT"Set  pixle 
1770  LOCATE  44 , 8 : PRINT"Clear  pixle 
1780  LOCATE  44 , 1 0 : PRINT"Clear  Symbol 
1790  IMODE, 1 

1800  LOCATE  15,2:PRINT  CHR$(241)"  "CHR$(2 
42 1 

1810  LOCATE  19,2: PRINT  CHR$(240)"  "CHR$(2 
43) 

1 8  20  LOCATE  15,4: PRINT"ENTER 
1830  LOCATE  1 5 , 6 : PRINT"COPY 
1840  LOCATE  15,8; PRINT"CLR 
1850  LOCATE  15,10:  PRINT''DEL 
1860  IMODE, 2: RETURN 

1870  LOCATE  6,1: PRINT"  DEFINITION  ":GOSUB 
1730 

1880  ch=0 :a=7 :b=22:c=3:d=1 1 :GOSUB  1460 
1890  PRINT  CHR$ ( 24 ) "  DESIGNING  UDGs  "CHR$( 
24); 

1900  IMODE, 1 

1910  WINDOW  4,11 ,4,11 :x*1 :y=1 :x1 =1 :x2=8 :y1 
*1 :y2*8 

1920  CALL  &BD19: | ARROW, x*2+5,y*2+5:CALL  &B 
Dl  9 :CALL  &BB06:  | ARROW, x*2+5,y*2  +  5 
1930  GOSUB  1540 

1940  IF  INKEY (9) <>-1  THEN  GOSUB  2000 
1950  IF  INKEY ( 1  6  )  <  >-1  THEN  GOSUB  2030 
1960  IF  INKEY (18 )<  >  — 1  THEN  GOTO  2140 
1970  IF  INKEY ( 6 ) <  >-1  THEN  GOTO  2140 
1980  IF  INKEY (79) <>-1  THEN  GOSUB  2050 
1990  GOSUB  2060 :GOTO  1920 
2000  IF(row[y ]AND  2 " (8-x ) )THEN  RETURN 
2010  row [y]=rowty] +  2  * ( 8-x ): LOCATE  x,y:PRIN 
T  CHR$ (143); 

2020  RETURN 

2030  IF(row[y ]AND  2'(8-x))THEN  row[y]=row( 
y] -2* (8-x): LOCATE  x,y:PRINT" 

2040  RETURN 

2050  ERASE  row:DIM  rowl8] :x=1 :y=1 :CLS:RETU 
RN 

2060  WINDOW  SWAP  0,1 

2070  SYMBOL  0 , row [ 1 ] , row ( 2 ] , row { 3 ] , row [ 4 ] , 
row [ 5 1 , row [61, row [ 7 ] , ro w [ 8 ] 

2080  IMODE, 2: LOCATE  9,1 3: PRINT  CHR$(1)CHR$ 
(0) 

2090  IF  ch<>0  THEN  LOCATE  65 , 3 : PRINT" Symbo 
1: 

2100  IMODE, 0: LOCATE  5,13:PRINT  CHR$(1)CHR$ 
(0) 

2110  IF  ch<>0  THEN  LOCATE  1 6 , 4 : PRINT  ch 
2120  IMODE, 1 : LOCATE  7,1 3: PRINT  CHR$(1)CHR$ 
(0) 

2130  WINDOW  SWAP  1,0: RETURN 
2140  IMODE, 2 :a=25 : b=55 :c=3 ;d=1 5 : GOSUB  1460 
2150  PRINT  CHR$ ( 24 ) SPC ( 6 ) "SYMBOL  VALUES "SP 
C( 1 2 )CHR$ ( 24 ) 

2160  a=0 :GOSUB  1 640 :a=40 : b=70 :c=1 0 :d=1 6 :GO 
SUB  1460 

2170  PRINT  CHR$ ( 24 )SPC( 9 ) "Keep  Symbol  ?"SP 
C( 9)CHR$ ( 24 ) 

2180  PRINT"  Send  values  to  printer 

2190  PRINT"  Put  into  edit  table 

2200  PRINT"  Put  into  symbol  listing 

2210  PRINT"  Back  to  UDG  DESKTOP  menu 

2220  x=67  :y=1 8 :x1  =40:x2=68:y1  =18:y2=30 

2230  GOSUB  1590:IF  y<=21  THEN  2230 

2240  IF  y <=23  THEN  2290 

2250  IF  y <=25  THEN  2360 

2260  IF  y <=27  THEN  2510 

2270  IF  y <=29  THEN  1160 

2280  GOTO  2230 

2290  LOCATE  2, 3: PRINT  CHR${24)"  Send  value 
s  to  printer"SPC( 6 ) CHR$ ( 24 ) 

2300  a=11 :b=40:c=15:d=20:GOSUB  1460 

2310  PRINT  CHR$ ( 24 )SPC{ 7 ) "PRINT  UDG  VALUES 

"SPC( 7 )CHR$ ( 24 ) 

2320  PRINT"  Please  put  your  printer 
2330  PRINT"  on  line,  then  press  any 
2340  PRINT"  key  ... 

2350  CALL  &BB06:a=8 :GOSUB  1640:GOTO  1160 
2360  LOCATE  2, 4: PRINT  CHR$(24)"  Put  into  e 
dit  table"SPC( 9 )CHR$ ( 24 ) 

2370  a=11 :b=41 :c=15 :d=2Q : GOSUB  1460 

2380  PRINT  CHR$ ( 24 )SPC ( 4 ) "PUT  UDG  TO  SYMBO 

L  TABLE" SPC { 4 ) CHR$ (24) 

2390  PRINT"  Please  enter  character  number 
2400  PRINT"  to  change: 

2410  INPUT"  ";a: IF  a<0  OR  a>255  THEN  2370 


[2245] 
[39231 
[22051 
[2731  ] 
[3351  1 
[1112] 
(1421  3 

[1958] 

[1741  ] 
11253] 
(881  ] 
[1069  ] 
[2108] 
[3433] 

[1648  ] 
[3803] 

(11121 
[1881  ] 

[4282] 

[9031 
[1415] 
[1515] 
[1094  ] 
[1081  ] 
[1159] 
[11 51  1 
[1436  ] 
[3819] 

[5551 

[4752] 

[555] 

[3136] 

[1031  1 
(4720] 

(1847) 

[2561  ] 

[2232] 

[1511  ] 
[28233 

[1870] 
(2704 ] 
[2945  3 

[3396  1 

(3852  1 

(3431  ] 

[2485] 

[2280] 

[16421 

[2528] 

(1519] 

[615] 

[829] 

[903] 

(1025) 

[309] 

[4608] 

[1793  ] 
[2459] 

11555  ] 
11985) 
[1072  ] 
[1010  ] 
(3381  ] 

[2284  ] 
[2858] 

[3680] 

[15103 

[1108] 
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Tips  &  Tricks 


2420  CLS: PRINT  CHR$ < 24 )SPC( 4 ) "PUT  UDG  TO  S 
YMBOL  TABLE"SPC(4)CHR$(24) 

2430  PRINT"  Do  you  want  to  change  ' "CHR$( 
1 )CHR$(a ) " 1  ? 

2440  PRINT  CHR$ (10)"  YES  NO  ( Y/N > 
2450  a$=UPPER$ ( INKEY$ ) 

2460  IF  a$="Y"THEN  2490 
2470  IF  a$="N"THEN  1160 
2480  GOTO  2450 

2490  SYMBOL  a , row [ 1 ] , row [ 2 ] , row [ 3 ] , row [ 4 ] , 
row [51, row [61, row [ 7 ] , row l 8 ] 

2500  GOTO  1160 

2510  LOCATE  2, 5: PRINT  CHR$(24)"  Put  into  s 
ymbol  listing"SPC( 5 )CHR$ <  24 ) 

2520  a=11  :b=41 :c=15:d=20:GOSUB  1460 

2530  PRINT  CHR$ ( 24 )SPC( 3 ) "PUT  UDG  TO  SYMBO 

L  LISTING"SPC ( 3 )CHR$ ( 24 ) 

2540  PRINT"  Please  enter  character  number 
2550  PRINT"  to  change: 


[2646 J 

[41031 

[19951 

[7891 

[1284] 

191  1  1 

13131 

[62551 

[3071 

[58971 

12284  ] 
136481 

[3680] 

115101 


2560  INPUT"  " ;a: IF  a<0  OR  a>255  THEN  2520  [1054] 

2570  CLS : PRINT  CHR$ ( 24 )SPC( 3 ) "PUT  UDG  TO  S  [2580] 
YMBOL  LISTING"SPC(3)CHR$(24) 

2580  PRINT"  Do  you  want  to  change  '"CHR$(  [41031 
1 )CHR$ ( a  > " '  ? 

2590  PRINT  CHR$ ( 10)"  YES  NO  (Y/N)  (19951 


2600  a$=UPPER$ ( INKEY$ )  [789] 

2610  IF  a$*"Y"THEN  2640  [12861 

2620  IF  a$*"N"THEN  1160  (9111 

2630  GOTO  2600  [339] 

2640  prg$ [prg 1 =STR$ (prg ) ♦"  SYMBOL  &"+HEX$(  [2450] 
a,  2 ) 

2650  FOR  n=1  TO  8  [8161 

2660  prg$ [prg]=prg$ [prgl+",S"+HEX$(row[nl  [24861 
1 2  ) 

2670  NEXT  [3501 

2680  prg=prg+1 :GOTO  1160  (866) 

2690  LOCATE  24,1: PRINT"  EDIT  ":WINDOW  1,80  [2510] 
,2,25:CLS 

2700  a»25 :b=46 :c=3:d=9:GOSUB  1460  [1278] 

2710  PRINT  CHR$ ( 24 ) "  REDEFINING  SYMBOLS  (37111 

"CHR$ ( 24 ) 

2720  PRINT"  Edit  Symbol  [1798] 

2730  PRINT"  Invert  Symbol  (22561 

2740  PRINT"  Mirror  symbol  (1959) 

2750  PRINT"  Rotate  Symbol  [18531 

2760  x=44:y=4:x1=24:x2=45:y1 =4:y2=16  [2331] 

2770  GOSUB  1590:IF  y<=7  THEN  2770  [16791 

2780  IF  y <=9  THEN  2830  [1074] 

2790  IF  y <=1 1  THEN  3040  [930] 

2800  IF  y<=1 3  THEN  3100  [545] 

2810  IF  y <=1 5  THEN  3350  [5041 

2820  GOTO  2770  [3851 

2830  LOCATE  4, 3: PRINT  CHR$(24)"  Edit  symbo  [37071 

1"SPC( 4 )CHR$ ( 24 ) 

2840  GOSUB  2850:GOSUB  1730:GOSUB  2940:GOTO  [3414] 
1910 

2050  a=30  :b=60:c=*9:d=1  4; GOSUB  1460  [19311 

2860  PRINT  CHR$ ( 24 )SPC( 1 0 ) "EDIT  SYMBOL"SPC  [3111] 
(10 )CHR$ ( 24 ) 

2870  PRINT"  Please  enter  character  number  13680] 
2880  PRINT"  to  edit:  [1112] 

2890  INPUT"  ";ch;IF  ch<0  OR  ch>255  THEN  28  [1495] 
50 

2900  FOR  n=1  TO  8  [816} 

2910  row [n 1 =PEEK( HIMEM+8  *ch+n )  (16121 

2920  NEXT  (3501 

2930  RETURN  (555) 

2940  a=7:b=22:c=3:d*1 1 : GOSUB  1460  (1628J 

2950  PRINT  CHR$ ( 24 ) "  REDEFINING  UDG  "CHR$(  (27491 

24) 

2960  |MODE,1 :WINDOW  4,1 1 ,4,1 1  [24161 

2970  FOR  i=1  TO  8  [462) 

2980  FOR  j=1  TO  8  (601) 

2990  IF(row[i 1 AND  2* ( B-j ) JTHEN  PRINT  CHR  (3332) 

$(143);: GOTO  3010 

3000  PRINT"  [6731 

3010  NEXT  [3501 

3020  NEXT  [350] 

3030  GOSUB  2060 :RETURN  [2090] 

3040  LOCATE  4, 4: PRINT  CHR$(24)"  Invert  sym  [4385] 

bol  "CHR$ { 24 ) 

3050  GOSUB  2850  [905] 

3060  FOR  n=1  TO  8  [8161 

3070  row  [n  1  =*255-row  [n  1  [9761 

3080  NEXT  13501 

3090  GOSUB  1 730 :GOSUB  2940:GOTO  1910  [13691 

3100  LOCATE  4, 5: PRINT  CHR${24)"  Mirror  sym  [41521 

bol  "CHR$ ( 24 ) 

3110  GOSUB  2850  [905] 


An  alle 

Sternenkrieger 

Labyrinthspezialisten 

und 

sonstige  Spiele-Fans 


Wer  kennt  das  nicht,  nach  lan¬ 
gen  Stunden  intensiven  Spie- 
lens  ist  es  gelungen,  alle  Pro¬ 
bleme  zu  knacken,  und  das 
Spiel  bis  zum  Schluß  zu  mei¬ 
stern. 

Viele  andere  Spieler  waren 
nicht  so  clever  wie  Sie  und 
hängen  irgendwo  fest.  Eine  Si¬ 
tuation,  in  der  man,  wie  Sie  si¬ 
cherlich  wissen,  nur  zu  leicht 
verzweifelt. 

Wenn  Sie  als  erfolgreicher 
Spieler  uns  Ihre  Lösungen  mit- 
teilen,  können  wir  zusammen 
allen  Hilfesuchenden  helfen. 

Also,  halten  Sie  Ihre  Spieletips 
nicht  hinter  dem  Berg. 


Schreiben  Sie  uns 

DMV 

Daten  &  Medien 
Verlaggesellschaft  mbH 
Postfach  250  ■  Fuldaer  Str.  6 
3440  Eschwege 

z.H.  Herrn  Stiller 


Wir  freuen  uns 
schon  heute  auf  Ihren  Brief, 
und  mit  uns 
viele,  viele  Spiele-Fans. 


I 
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3220 

3230 

3240 

3250 

3260 

3270 


3120  a=15:b=35:c=15:d=19 : GOSUB  1460 

3130  PRINT  CHR$ ( 24 )SPC( 4 ) "MIRROR  SYMBOL"SP 

C(  4  )CHR$.{  24  ) 

3140  PRINT"  Mirror  horizontal 
3150  PRINT"  Mirror  vertical 
3160  x*33 :y=28:x1 =14:x2=34:y1=28;y2=36 
3170  GOSÜB  1 590 : IF  y<=31  THEN  3170 
3180  IF  y <=33  THEN  3300 

3190  LOCATE  2, 4: PRINT  CHR$(24)"  Mirror  ver 
tical"SPC( 3 )CHR$ ( 24 ) 

3200  FOR  i=1  TO  8 
3210  a$=BIN$ (row(i 1,8) 
b$=STRING$(8,48) 

FOR  j=1  TO  8 

IF  MID$(a$,j ,1 )="0"THEN  3260 
MID$ (b$,9-j ,1  )="1  " 

NEXT 

rowli ]=VAL( "&x"+b$ ) 

3280  NEXT 

3290  GOSUB  1730:GOSUB  2940:GOTO  1910 
3300  LOCATE  2, 3: PRINT  CHR$(24)"  Mirror  hör 
izontal  "CHR$<24) 

3310  FOR  n=1  TO  4 

3320  a=rowfn] :row[nl=row(9-nl :row[9-n]=a 
3330  NEXT 

3340  GOSUB  1 730 :GOSUB  2940:GOTO  1910 
3350  LOCATE-  4, 6: PRINT  CHR$(24)"  Rotate  sym 
bol  "CHR$ ( 24 ) 

3360  GOSUB  2850 :a=1 5 :b=35 :c=1 5 :d=2l :GOSUB 
1460 

3370  PRINT  CHR$ ( 24 )SPC( 4 ) "ROTATE  RIGHT"SPC 
( 5 )CHR$ { 24 ) 

3380  PRINT"  Rotate  0  degrees 

3390  PRINT"  Rotate  90  degrees 

3400  PRINT"  Rotate  180  degrees 

3410  PRINT"  Rotate  270  degrees 

3420  x=33 :y=28 :x1 =1 4 :x2=34 : yl =28:y2=40 

3430  GOSUB  1590:IF  y<=31  THEN  3430 

3440  IF  y <=33  THEN  3520 

3450  IF  y<=35  THEN  3540 

3460  IF  y<=37  THEN  3560 

3470  LOCATE  1,6: PRINT  CHR$<24)"  Rotate  270 
degrees  "CHR$(24) 

3480  FOR  z = 1  TO  3 
3490  GOSUB  3580 
3500  NEXT 

3510  GOSUB  1 730 :GOSUB  2940:GOTO  1910 
3520  LOCATE  1,3: PRINT  CHR${24)"  Rotate  0 
degrees  ”CHR$<24) 

3530  GOSUB  1730:GOSUB  2940:GOTO  1910 
3540  LOCATE  1,4: PRINT  CHR$(24)"  Rotate  90 
degrees  "CHR$(24) 

3550  GOSUB  3580:GOTO  3510 
3560  LOCATE  1,5: PRINT  CHR${24)"  Rotate  180 
degrees  "CHR$(24) 

3570  GOTO  3310 

3580  FOR  f=1  TO  B:s$ tf J="":NEXT 
3590  FOR  i=8  TO  1  STEP-1 
FOR  j=1  TO  8 

s$tj 1 =s$ I j ] +MID$ ( BIN$ ( row [i],8),j ,1 


3600 

3610 

) 

3620 


NEXT 
3630  NEXT 
3640  FOR  n»1  TO  8 
3650  rowtn]=VAL( "&x"+s$  In] ) 

3660  NEXT 
3670  RETURN 

3680  LOCATE  35,1: PRINT"  WASTE  " 

3690  WINDOW  1 , 80 ,2 ,25 :CLS 

3700  a=36:b=64:c=3:d=8:GOSUB  1460 

3710  PRINT  CHR$ ( 24 )SPC( 8 ) "ERASE  SYMBOLS"SP 

C(8)CHR$(24) 

3720  PRINT"  Waste  edit  table 
3730  PRINT"  Waste  symbol  program 
3740  PRINT"  Back  to  UDG  DESKTOP  raenu 
3750  x=62:y=4:x1=35:x2=63:y1=4:y2=14 
3760  GOSUB  1590:IF  y<=7  THEN  3760 
3770  IF  y<=9  THEN  3800 
3780  IF  y<=1 1  THEN  3820 
3790  GOTO  1160 


table"SPC( 1 0 ) CHR$ ( 24 ) 

3810  SYMBOL  AFTER  OsGOTO  1160 


ol  program"SPC(6)CHR$( 24 ) 

3830  ERASE  prg$:DIM  prg$ 1255 ) :prg=2 
3840  GOTO  1160 


12670] 

12500] 


127191 

(21171 

1 1 558  J 

(1265] 

(5801 

[4427] 


(462] 
(14091 
(1164  1 
(601  ] 
(1421  1 
(692] 
(3501 
(13031 
(350  1 
(13691 
(3137  ] 


[788] 
(33431 
(3501 
(13693 
(2993 1 


[3189] 


(21191 


(20631 
[1845] 
[1140] 
[1293  1 
[1522  1 
(1301  1 
(8881 
(598] 
[852  J 
[4121  J 


(10281 
[10051 
13501 
[13691 
[31  36] 


[1369] 

138381 


[2002] 

[36201 


[451  3 
[1670] 
(6801 
[601  1 
(3310] 


[350] 

(3503 

18163 

[18221 

[3501 

(5551 

(11281 

(1761  J 

[1702  1 

(32881 


[27801 

(36553 

[16421 

[2254] 

[1673] 

(9531 

[5831 


3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 


PRINT" 

PRINT" 

PRINT" 

PRINT" 


3860  a=46:b=74:c=3:d=9:GOSUB  1460 
3870  PRINT  CHR$ (24) SPC (10) "DISC  MENU"SPC(1 
0 )CHR$ (24) 

Load  edit  table 
Save  edit  table 
Save  udg  program 
Disc  catalogue 

x=72 :y=4 :x1 =45 :x2=73 :y1 =4:y2=16 
GOSUB  1 590 : IF  y<=7  THEN  3930 
IF  y<=9  THEN  4010 
IF  y <=1 1  THEN  4040 
IF  y <=1 3  THEN  4060 

LOCATE  2, 6: PRINT  CHR$(24)"  Disc  catal 
ogue" SPC (12) CHR$ ( 24 ) 

3980  a=2:b=79:c=10:d=25:GOSUB  1460 

3990  PRINT  CHR$ (24 )SPC( 32 ) "DISC  CATALOGUE" 

SPC( 32 )CHR$ ( 24 ) 

4000  WINDOW  2,79,11 ,24:CAT:CALL  &BB06:GOTO 
1160 

4010  LOCATE  2, 3: PRINT  CHR${24)"  Load  edit 
table"SPC( 1 1 )CHR$ ( 24 ) 

4020  LOAD"EDTAB.BIN",HIMEM+1 

4030  IF  ROM VER =1  THEN  POKE  &B296,&FF  AND  U 
NT( HIMEM+1 ) : POKE  &B297,&FF  AND (HIMEM+1 )/25 
6 :GOTO  1160 

4031  IF  ROMVERol  THEN  POKE  &B736,&FF  AND 
UNT( HIMEM+1 ): POKE  &B737,&FF  AND (HIMEM+1 )/2 
56 : GOTO  1160 

4040  LOCATE  2, 4: PRINT  CHR$(24)"  Save  edit 
table" SPC ( 11 )CHR$(24) 

4050  IF  ROMVER=1  THEN  SA VE "EDTAB.BIN" , B, PE 
EK( &B296 )  +  256  *PEEK( &B297 ) , 8  *256 :GOTO  1160 

4051  IF  ROMVERol  THEN  SAVE" EDTAB.BIN"  ,B,  P 
EEK( &B736 )+256  *PEEK( &B737 ) ,8*256 :GOTO  1160 


4090 

4100 

4110 


4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 


PRINT" 

PRINT" 

PRINT" 

PRINT" 


4060  LOCATE  2, 5: PRINT  CHR$(24}"  Save  udg 
rogram" SPC (10) CHR$ ( 24 ) 

4070  OPENOUT" SYMBOLS .BAS" : PRINT# 9 , "1  SYMBO 
L  AFTER  0 

4080  FOR  n=1  TO  prg 

PRINT09 ,prg$  (n } 

NEXT 

CLOSEOUT : GOTO  1160 
4120  LOCATE  59,1:PRINT"  INFOS  ":WINDOW  1,8 
0,2,25:CLS 

4130  a=60:b=79:c=3:d=9:GOSUB  1460 
4140  PRINT  CHR$ (24 )SPC( 4 ) "INFORMATION" SPC ( 
5 )CHR$ ( 24 ) 

List  edit  table 
Print  character 
Get  ASCII  value 
List  UDG  program 
x=77 :y=4:x1 =59;x2=78:y1 =4:y2=16 
GOSUB  1 590:IF  y<=7  THEN  4200 
IF  y<=9  THEN  4320 
IF  y<=1 1  THEN  4400 
IF  y<*1 3  THEN  4510 
4240  LOCATE  2, 6: PRINT  CHR$(24)"  List  UDG  p 
rogram  "CHR$(24) 

4250  a=20 :b=66 :c=1 0 :d=22 : GOSUB 
4260  PRINT  CHR$( 24 )SPC( 18) "UDG 
{ 1 8 )CHR$ ( 24 ) 

4270  PRINT"  1  SYMBOL  AFTER  0 
FOR  n=2  TO  prg 
PRINT  prg$[nl 
NEXT 

PRINT"  * " : CALL  SBB06 :GOTO  1160 
4320  LOCATE  2, 3: PRINT  CHR$(24)"  List  edit 
table  "CHR$ ( 24 ) 

4330  a«34 : b=67 :c=7 :d=1 7 : GOSUB  1460 

4340  PRINT  CHR$ ( 24 )SPC( 9 ) "LIST  EDIT  TABLE" 

SPC( 1 0 )CHR$ ( 24 ) ; 

4350  WINDOW  35,66,9,16 
FOR  n=0  TO  255 
PRINT  CHR$(1 )CHR$(n) ; 

NEXT 

CALL  &BB06 :GOTO  1160 
4400  LOCATE  2, 4: PRINT  CHR$(24)"  Print  char 
acter  "CHR$(24) 


4280 

4290 

4300 

4310 


4360 

4370 

4380 

4390 


(18781 

(30021 


(19141 

[1260] 

(18631 

(21341 

[18391 

(16231 

[1206  1 

(731  1 

[4491 

(3701  1 


1460 

LISTING"SPC 


(1704  1 
[3297] 


11990] 


[3152 1 


[15521 

[40853 


(64341 


[37471 
146951 
(5291  1 


p  [45741 


[3575  ] 


(7781 
[1883  ] 
[3501 
[1669] 
(1901  ] 


[2262] 

(23321 


[10661 

122391 

[22241 

[15341 

[2448] 

[16971 

111851 

17231 

(511  1 

[2865  1 


(14191 
(3051  1 


[14801 
[1321  ] 
[6801 
(350  1 
[17061 
[26521 


[22961 
[  3395 J 


[901  1 

[593  1 

(16231 

[3501 

(11071 

[3207] 


,2,25:CLS 


[307] 

4410 

a=42:b: 

=66:c=10:d=1 5: GOSUB 

1460 

[2008] 

edit 

[44141 

4420 

PRINT  CHR$ ( 24 )SPC( 5 ) "PRINT 

CHARACTER" 

[34371 

SPC( 5 ) CHR$ ( 24 ) 

(16651 

4430 

PRINT" 

Enter  ASCII  number 

to 

[25631 

symb 

[4296] 

4440 

PRINT" 

see  character:" 

(1431  1 

4450 

LOCATE 

17, 4: PRINT  SPC( 5 ) 

[1508] 

[18671 

4460 

LOCATE 

17, 4: INPUT  a 

[586  1 

(3071 

4470 

IF  a=0 

THEN  1160 

[324] 

1,-00 

[33151 

4480 

IF  a<1 

OR  a  >255  THEN  4450 

[2044  1 

4490 

LOCATE 

2,5: PRINT"CHR$ ( "a" ) 

=  ' "CHR$( 1 

[2387] 

t 

/: 

\ 


\ 


t 
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Tips  &  Tricks 


)CHR$(a) " 

4500  GOTO  4450  [327] 

4510  LOCATE  2,5: PRINT  CHR$(24)"  Get  ASCII  [4302! 
value  "CHR$ ( 24 ) 

4520  a=42:b=66:c=10 :d=1 5:GOSUB  1460:IF  ROM  [5404] 
VER  =  1  THEN  POKE  ÄB4E8,0  ELSE  POKE  &B6'32, 

0 

4530  PRINT  CHR$ (24 )SPC( 7 ) "ASCII  VALUE"SPC(  [2551] 
7 )CHR$ ( 24 ) 


4540  PRINT"  Press  key  to  see  ASCII  [2756] 

4550  PRINT"  value: "SPC(7 )CHR${24 ) "CAPS  LOC  [2031] 
K"CHR$ ( 24 ) 

4560  PRINT  SPC(14)"to  stop  [1327] 

4570  a$=INKEY$ : IF  INKEY { 70 )< >-1  THEN  1160  [18161 

4580  LOCATE  2,5  [635] 

4590  IF  a$=""THEN  4570  [812] 

4600  PRINT"' "CHR${1 >a$"'  =";  [15751 

4610  PRINT  ASC(a$)"  "  [590] 

4620  GOTO  4570  [327] 


Formatieren  bis  Spur  42 
für  CP/M  2.2  D 

Der  im  folgenden  beschriebene  kleine  Trick  be/ichl  sich 
auf  den  im  Juni- Heft  erschienen  Tip  des  Monats  ”8  K  mehr 
Speicherplatz"  und  dürfte  den  ohnehin  bereits  hohen 
praktischen  Nutzen  dieses  Programms  noch  steigern  bzw. 
vielen  CPC- Anwendern  den  Zugang  zu  dem  zusätzlichen 
Speicherplatz  erst  ermöglichen. 

Wie  ja  inzwischen  bekannt  sein  dürfte,  erlaubt  das  von  W. 
Wantia  geschriebene  Programm  das  Unterbringen  von  bis 
zu  8KB  auf  den  Spuren  40 -42  der  Diskette,  die  normaler¬ 
weise  gar  nicht  vorhanden  sind. 

Dies  setzt  allerdings  voraus,  daß  diese  Spuren  zuvor  for¬ 
matiert  werden.  Dies  konnte  über  Tricks  mit  einem 
Diskmonitor  erfolgen  oder  mit  dem  Programm  "Disc 
Basic”,  aus  dem  CPC  Sonderheft  2. 

Es  gibt  jedoch  noch  eine  dritte  Möglichkeit,  indem  ein 
winziger  Eingriff  an  dem  Programm  "Disckit  2”,  welches 
sich  auf  jeder  CP/M-Systemdiskette  befindet,  vorgenom¬ 
men  wird.  Um  das  Programm  entsprechend  zu  patchen, 
muß  lediglich  mit  DDT  die  Adresse  9B3  geändert 
werden. 

Legen  Sie  die  Systemdiskette  oder  eine  Backup  mit  offe¬ 
nem  Schreibschutz  in  Ihr  Laufwerk  und  booten  Sie  CP/M. 
Danach  geben  Sie  wie  folgt  ein: 

A>DDT  DISCKIT2.COM 

-S09B3 

Es  erscheint: 

-09B3  27 
Geben  Sie  ein: 

2A  [ENTERj 
.  [ENTER] 

CTRL  C 

SAVE  24  DISCKIT2.COM  [ENTER] 

Das  solchermaßen  geänderte  Disckit  2  wird  ganz  normal 
gestartet  und  formatiert;  nun  immer  bis  Spur  42.  Die  For¬ 
matwahl  spielt  hierbei  keine  Rolle.  (N.  Schepanski) 


X-Basic  Graphikerweiterung 

“fr4*4  .  •  :  M 

Zunächst  möchte  Ich  Ihnen  ein  großes  Lob  aussprechen, 
für  X-Basic.  Eine  wirklich  tolle  und  sinnvolle  Erweite¬ 
rungsmöglichkeit,  mit  der  man  den  Komfort  eines  echten 


DMV-Verlag 

stellt  aus: 

Orgatechnik  Köln  ’86 

vom  16.  -  21.  Oktober 

Halle  3.1  •  Gang  C  •  Standnummer  89 

Sprechen  Sie  doch  einmal 
persönlich  mit  den  Redakteuren 
von 

Schneider  CPC  International 

Wir  freuen  uns 
auf  Ihren  Besuch. 


Neuankündigung: 

Auf  der  Orgatechnik  können  Sie 
erstmals  unsere  neue  Fachzeitschrift 
PASCAL  in  Augenschein  nehmen. 

Kommen  Sie  doch  einmal  vorbei! 
Es  lohnt  sich! 


Programmierer 
gesucht 


Zur  Verstärkung  des  Redaktionsteams  und  im 
Hinblick  auf  mögliche  neue  Publikationen  su¬ 
chen  wir  erfahrene  Programmierer,  die  sich  in 
folgenden  Hochsprachen  auskennen: 

-  Förth  -  C  -  Logo 

-  Fortran  -  Cobol  -  Basic 

-  Pascal  -  Assembler 

Neben  guten  Programmierkenntnissen  ist  ein 
sicherer  Schreibstil  wünschenswert. 

Sollten  Sie  an  einer  freiberuflichen  Tätigkeit  in¬ 
teressiert  sein,  setzen  Sie  sich  direkt  mit  unserem 
Verlag  in  Verbindung. 

DMV  Verlag,  z.H.  Herrn  Ritter, 
Fuldäer  Str.  6,  3440  Eschwege 


i 
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CPC-Basicbefehls  ausnutzen  kann.Doch  nun  zu  den  von 
mir  geschriebenen  Erweiterungen  unter  X-Basic. 

Also,  auf  geht’s  mit  Programm  Listing  Nr.l 

Der  Polygon-Befehl  nutzt  zwei  Routinen  des  CPC’s  aus. 
Die  eine  setzt  den  Graphikursprung  (=MOVE-Befehl), 
die  andere  zieht  eine  Linie  zwischen  Graphikursprung 
und  Endkoordinaten  (=DRAW-Befehl).  Das  bedeutet 
aber  auch,  daß  mindestens  zwei  Koordinatenpaare  ange¬ 
geben  werden  müssen.  Eine  für  die  Anfangskoordinaten, 
und  eine  für  die  Endkoordinaten.  Die  maximale  Anzahl 
an  Koordinatenpaaren  ist  dagegen  nur  durch  die  maxi¬ 
male  Länge  einer  Basiczeile,  also  255  Zeichen,  beschränkt. 
Der  Polygon- Befehl  ist  vor  allem  als  Ersatz  für  mehrere 
Draw-Kommandos  oder  Datazeilen  gedacht. 

Wichtig  ist  nur,  die  Koordinaten  müssen  als  absolute 
Koordinaten  angegeben  werden. 

Hier  nun  das  Format: 

Kommando: 

Polygon  <x-Anf.>,<y-Anf.>,<x/ >,  <yl >, <x2>,  <y2>... 


Und  weiter  gehts  mit  Programm  Listing  Nr.2. 

Der  Pointer-Befehl  stellt  das  Zeichen  Nr.  250  als  Pointer 
bzw.  bewegliches  Zeichen  zur  Verfügung. 

Bewegt  werden  kann  das  Zeichen  nur  mit  dem  Joystick, 
nicht  mit  den  Cursortasten.  Der  Pointer  ist  als  Ergänzung 
zu  den  Windowbefehlen  von  X-Basic  gedacht  und  er¬ 
möglicht  somit  eine  äußerst  komfortable  und  benut¬ 
zerfreundliche  Programmierung  von  eigenen  Program¬ 
men.  Der  Pointer  bewegt  sich  im  übrigen  in  acht  Richtun¬ 
gen  und  auf  Graphikcursorposition. 

Die  jeweilige  Position  läßt  sich  in  Basic  durch  die  System¬ 
variablen  XPOS  und  YPOS  auslesen.  Der  Pointer  wird 
durch  Drücken  der  Feuertaste  gelöscht  und  die  Initiative 
wieder  an  Basic  übergeben. 

Hier  wiederum  das  Format: 

Kommando: 

POINTER  <x-Koord.>,<y-Koord.> 

Nachtrag: 

Die  letzten  x-  und  y- Koordinaten  lassen  sich  aus  den  Spei¬ 
cherstellen  XPOS  und  YPOS  (siehe  Listing  Nr.2)  folgen¬ 
dermaßen  auslesen; 

PRINT  PEEK(x/ypos)*256-f  PEEK(x/ypos+l)  «< 

Da  der  Pointer  im  Graphikfenster  gezeichnet  wird,  wird  er 
auch  durch  dieses  beschränkt.  Er  verschwindet  beim 
Überschreiten  der  Grenzen. 

Durch  einen  POKE  &A065,&18  wird  während  der  Bewe¬ 
gung  eine  Linie  im  XOR-Modus  (wichtig!)  gezogen. 
Durch  POKE  &A065,&BB  wird  dieser  Modus  wieder 
ausgeschaltet. 

Durch  ein  CALL  &A012  wird  der  Pointer  auf  die  Koor¬ 
dinaten  beim  letzten  Aussprung  gesetzt 
Einen  Pfeil  als  Pointer  erhält  man  folgendermaßen: 
SYMBOL  250,252,240,240,248,156,142,6  «< 

Und  zu  guter  letzt  noch  Programm  Listing  Nr.3 
Der  Boxbefehl  ermöglicht  es,  eine  beliebige  rechteckige 
oder  quadratische  Fläche  in  der  jeweiligen  Graphik- 
Hintergrundfarbe  oder  einem  selbstgewählten  Bitmuster 
auszufüllen.Wird  das  Bitmuster  nicht  mit  angegeben,  so 
wählt  das  Programm  GPAPER  als  CLG-Farbe  aus.  Die 
Routine  arbeitet  sehr  schnell,  da  einfach  das  Graphikfen¬ 
ster  auf  entsprechende  Größe  gebracht  und  mit  CLG  ge¬ 
löscht  wird. 

Anschließend  wird  die  GPAPER-Farbe  =  0  gesetzt  und 
das  Graphikfenster  auf  Bildschirmgröße  zurückgesetzt 


Das  Format: 

Kommando: 

BOX  <x2>,<yl>,<x2>,<y2>,<ihYm«j/er> 

Nachtrag: 

In  welcher  Reihenfolge,  ob  nun  zuerst  das  kleinere  Koor¬ 
dinatenpaar  oder  das  größere,  ist  unerheblich. 

Als  Bitmuster  kann  eine  8  Bit  große  Zahl  zwischen  0  -  255 
eingesetzt  werden.  Hier  hilft  ausprobieren. 

Hinweis: 

Alle  Angaben  zwischen  diesen  Zeichen  <...>  müssen  im 
Kommando  angegeben  werden,  sofern  sie  normal  ge¬ 
druckt  sind.  Angaben  im  Kursivdruck  sind  wahlweise 
anzugeben.  (O.  Fillies) 


1000  ';**•*  POLYGON  *•** 

1010  ' ;•••*  (c)  1986  by  D  &  P 
1020  ';**••  vers.  2.9(21,6,86) 

1030 

1040  1  poly  call  &ce86;16  Bitwert  mit  Vorzeichen  ho 
len 

1050  'push  de;x-Koordinate  auf  den  Stack 
1060  'call  &dd 55; folgt  Komma  ? 

1070  'jr  nc, error; nein,  dann  ERROR 

1080  'call  &ce86;16  Bitwert  mit  Vorzeichen  holen 

1090  ’ld  b , h ; HL-COUNTER  nach  ... 

1100  ' ld  c,l;...  BC  uebef tragen 
1110  'ex  de, hl ;y-Koordinate  nach  HL 
1120  'pop  de;x-Koordinate  vom  Stack  holen 
1130  'push  bc; Programm  COUNTER  retten 
1140  'call  &bbc0;GRA_SET_ORIGIN 
1150  'pop  hl; Programm  COUNTER  holen 
1160  'call  &dd55; folgt  Komma  ? 

1170  'ret  nc;nein,  dann  zurueck 

1180  ’draw  call  &ce86;16  Bitwert  mit  Vorzeichen  ho 
len 

1190  'push  de;x~Koordinate  auf  den  Stack 
1200  'call  &dd55;folgt  Komma  ? 

1210  'jr  nc, error; nein ,  dann  ERROR 

1220  'call  &ce86;16  Bitwert  mit  Vorzeichen  holen 

1230  "ld  b,h; HL-COUNTER  nach  ... 

1240  ' ld  c,l;...  BC  uebertragen 
1250  'ex  de, hl ;y-Koordinate  nach  HL 
1260  'pop  de;x-Koordinate  vom  Stack  holen 
1270  'push  bc; Programm  COUNTER  retten 
1280  'call  Sbbf 6 ;GRA_DRAW_ABSQLUTE 
1290  'pop  hl;Programm  COUNTER  holen 
1300  'call  &dd55; folgt  Komma  ? 

1310  'ret  nc;nein,  dann  zurueck 
1320  'jr  draw;ja,  dann  nach  DRAW 
1330  'error  ld  e, 22; OPERAND  MISSING 
1340  'jp  &ca94;Fehler  ausgeben 
1350  'end 


1000 
1010 
1020 
1030 
1040 
holen 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1 1  90 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 


';**••***  GETJOY  ******* 

';"•*•••  { c )  1  986  by  D  &  P 

*  ; . .  vrs.  3.1 (15,5,86) 

INIT  Pointer  setzen 

'pointe  call  &ce86 ; 1 6-Bitwert  mit  Vorzeichen 

' ld  (xpos ) ,de;x-Koordinate  retten 
'call  &dd55; folgt  Komma  ? 

'ret  nc;nein,  dann  zurueck 

'call  &ce86 ; i 6-Bitwert  mit  Vorzeichen  holen 

'ld  (ypos  )  ,de;y-Koordinate  retten 

'push  hl;Progranun  COUNTER  retten 

'ld  a, 1 ;XOR-Modus  setzen 

'call  &bc59 ; SCR_ACCESS 

' ld  de , ( xpos ) ; x-Koordinate  holen 

* ld  hl, (ypos ) ;y-Koordinate  holen 

'JR  POINT;Pointer  auf  Koordinaten  setzen 

';***  JOY  abfrage 

'joy  call  &bb24 ;KM_GET_JOYSTICK 

'cp  0;wenn  nicht  bewegt,  ! 

'jr  z,joy;dann  zurueck  nach  JOY 

'pop  hl ;y-Koordinate  holen 

'pop  de;x-Koordinate  holen 

'push  af; Bitwert  retten 

'call  &bbc0 ;GRA_SET_ORIGIN 

'ld  a,250;CHR$(250 )  ausgeben:  Loeschen 

'call  &bbf c ;GRA_OUTPUT 

'pop  af; Bitwert  holen 

'pop  hl ;y-Koordinate  holen 
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Iltta  mlH  Sta  nlr  lekpa*  Artlkal  aas  taa  D  RaHartar  Aa0fcat  □  OabaafaM 

□  Ich  möchte  weitere  Informationen  über  den  Data  Media  Computer- 
Club,  ehe  ich  mich  zu  einer  Mitgliedschaft  entschließe  (2,-  DM  in 
Briefmarken  habe  ich  beigelegt).  Mein  Name  und  meine  Anschrift 
lautet: 


I 


Datum 


Unterschritt  (bei  Minder) Shrtgen  des  gesetzt  Vertreters) 


Datum  Unterscnritt  (bei  Mtnderiahrigen  Unterschrift  des  gesetzl  Vertreters! 


CPC-Platinen- 
und  Hardware-Service 

Ich  bestelle  hiermit  aus  Ihrem  Angebot  gemäß  "Schneider  CPC  International", 


Ausgabe  7/86,  Schneiderware  #  2; 

.  Stck  Basisplatine,  beidseitig  beschichtet,  durchkontaktiert  24,90  DM 

... .  Stck  Basisplatine  kompl  bestückt  u.  geprüft,  funktionsfertig  62,90  DM 

. „Stck.  Centronics-Platine,  einseitig  beschichtet  17,90  DM 

.  Stck  Centronics-Platine  komplett  bestückt  und  geprüft,  funktionsfertig  79,90  DM 

.  Stck  Verbindungskabel  zwischen  Basisplatine  und  CPC  464/664  35,90  DM 

Stck.  Verbindungskabel  zwischen  Basisplatine  u.  CPC  61 28  45,90  DM 

Ausgabe  8/86,  Schneiderware  #3 

. .  Stck  V/24  Platine  beidseitig  beschichtet,  durchkontaktiert  29,80  DM 

Stck  V/24  Platine  kompl  bestückt  und  geprüft,  funktionsfertig  139,90  DM 

Ausgabe  9/86,  Schneiderware  #4: 

.  Stck  Netzteil- Platine,  einseitig  beschichtet  17,90  DM 

. Stck  Netzteil-Platine, kompl.  bestückt  und  geprüft  1 19,90  DM 

.  Stck  Netztrafo  79,90  DM 

. Stck  Netzteil,  Netztrafo  184,90  DM 


Betrag 


+  Porto/Verpackung 

(PoMo/Verp  Inland  5,-  DM) 

(Porlo/Verp  Ausland  B- OM)  DM 


Gesamtbetrag  DM 


□  Diesen  Betrag  bezahle  ich  mittels  des  beigefügten  Verrechnungsschecks. 

□  Ich  bitte  um  Lieferung  per  Nachnahme  (nur  im  Inland). 

Bei  Nachnahme  kommt  zum  o.g.  Betrag  noch  die  Nachnahmegebühr  hinzu 


Dalum  Unterschrift  (bei  Minderjährigen  des  gesetzl  Vertreters) 


»Data  Media  Computerclub« 

Beitrittserklärung 

Ich  möchte  von  den  günstigen  Einkaufsangeboten  des  Data  Media  Com¬ 
puterclubs  Gebrauch  machen  und  beantrage  hiermit  die  Mitgliedschaft  ab 
1 .5.1 986  zunächst  für  ein  Jahr.  Die  Mitgliedschaft  soll  sich  um  jeweils  ein 
weiteres  Jahr  verlängern,  wenn  ich  nicht  3  Monate  vor  Ablauf  des  Zeitrau¬ 
mes  kündige. 

Ich  kann  ab  sofort  aus  dem  Club-Angebot  einkaufen  und  alle  weiteren 
Vorteile  des  Clubs  nutzen.  Der  Clubausweis  wird  mir  nach  Zahlung  des 
Jahresbeitrages  von  60-  DM  zugesandt. 


Vor-  und  Zuname. 


Slrafte/Haus-Nr 


Postleitzahl:  Wohnort: 


Beiut 


Geburtsdatum  Telefon 


Dalum  I  Unterschritt  {bei  Minderjährigen:  Vor-  und  Zuname  d  ges  Vertreters) 

Ich  kann  eine  Woche  nach  Erhalt  der  Mitgliedsbestätigung  diesen  Beitritt  schriftlich  widerrufen  Ger 
Widerruf  ist  zu  richten  an:  Data  Media  GmbH,  Computerclub,  Ruhrallee  55, 4600  Dortmund  Ich  bestätige 
durch  meine  2  Unterschrift,  daß  ich  aut  dieses  Widerrufsrecht  aufmerksam  gemacht  worden  bin: 


Dalum 


2  Unterschob  (bei  Minderjährigen:  Vot-  und  Zuname  d  ges  Vertreters) 


»Kleinanzeigen-Markt 


>11111111 


mhiimi  1 1  iimiiiii  ii  1 1 1 1  MiiiitiiiiimiiimiiHmiii  i  hiimmiiiiimi  i  nimiii  mmiiniiti  1 1 1  Mniiimiii  1 1 1  imii 

1280  'pop  de;x-Koordinate  holen 
1290  ';•*•  KOORDINATEN  manipulation 
1300  'bit  4, a; ENDE  ? 

1310  'jr  z,oben;werm  nicht, dann  OBEN 
1320  *jr  ende; wenn  ja  nach  ENDE 
1330  'oben  bit  0,a;nach  OBEN  ? 

1340  'jr  z, unten ;wenn  nicht,  dann  UNTEN 
1350  ’ inc  hl;y+1 

1360  'inc  hl;y+1:  y+2  fuer  Modus  1 
1370  'jr  links;LINKS  abfragen 
1380  'unten  bit  1,a;nach  UNTEN  ? 

1390  'jr  z,links;wenn  nicht,  dann  LINKS 
1400  'dec  hl ;y-1 

1410  'dec  hl;y-1:  y-2  fuer  Modus  1 
1420  'links  bit  2,a;nach  LINKS  ? 

1430  ’jr  z , rechts ; wenn  nicht,  dann  RECHTS 
1 440  ‘dec  de ;x+1 

1450  'dec  de;x+1:  x+2  fuer  Modus  1 
1460  'jr  point ; POINTER  setzen 
1470  'rechts  bit  3, a; nach  RECHTS  ? 

1480  'jr  z, point ;wenn  nicht,  dann  POINTER  setzen 
1490  ’inc  de;x-1 

1500  'inc  dejJt-1;  x-2  fuer  Modus  1 
1510  ';***  POINTER  setzen 
1520  'point  push  de;x-Koordinate  retten 
1530  'push  hl ;y~Koordinate  retten 

1540  'push  de;x-Koordinate  nochmal  retten 

1550  'push  hl ;y-Koordinate  nochmal  retten 

1560  'call  4bbc0 ;GRA_SET_ORIGIN 

1570  ’ld  a,250;CHR$  250  ausgeben:  SETZEN 
1580  'call  &bbfc;GRA_OUTPUT 
1590  'jr  joy;zurueck  nach  JOY 
1600  'back  jr  joy;nach  Rueck sprung  zurueck 
1610  ';**•  ENDE  Koordinaten  retten 
1620  'ende  LD  (XPOS) ,DE;x-Koordinate  retten 
1630  'LD  (yPOS) ,hl ;y-Koordinate  retten 
1640  'CALL  &BBC0 ;GRA_SET_ORIGIN 
1650  'ld  a, 250 ;CHR$  250  ausgeben:  LOESCHEN 
1660  'call  &bbfc ;GRA_OUTPUT 
1670  'ld  a , 0 ; FORCE_MODUS 
1680  'call  4bc59;SCR_ACCESS 
1690  'pop  hl; Programm  COUNTER  holen 
1700  'ret; zurueck  nach  BASIC 
1710  '; 

1720  ' ; •**  PLOT 

1730  'plot  pop  hl ;y- Koordinate  holen 
1740  'pop  de;x-Koordinate  holen 
1750  'push  de ;x -Koordinate  retten 
1760  'push  hl ;y-Koordinate  retten 
1770  'call  &bbea ; GRA__PLOT_ABSOLUTE 
1780  ‘jr  back; Rueck Sprung 
1790  '; 

1800  'xpos  dw  0 
1810  'ypos  dw  0 


1000  .*•*•*»  box  ••*•*»** 

1010  (c)  by  D  &  P 

1020  vers.2.5(21 ,5,86) 


1030  'sint  call  4ce86 ; 1 6-Bitwert  mit  Vorzeichen  ho 
len 

1040  'call  &dd55; folgt  Komma  ? 

1050  'jr  nc, error; nein,  dann  ERROR 
1060  ' ld  (ci ), de; xl -Koordinate  retten 
1070  'call  4ce86 ;1 6-Bitwert  mit  Vorzeichen  holen 
1080  'call  4dd55; folgt  Komma  ? 

1090  'jr  nc, error; nein,  dann  ERROR 
1100  'ld  (c2 ), de; yl -Koordinate  retten 
1110  'call  4ce86 ; 1 6-Bitwert  mit  Vorzeichen  holen 
1120  'call  &dd55; folgt  Komma  ? 

1130  *jr  nc, error; nein,  dann  ERROR 

1140  ' ld  (c3 ) ,de;x2-Koordinate  retten 

1150  'call  4ce86 ; 1 6-Bitwert  mit  Vorzeichen  holen 

1160  'push  hl;Programm  COUNTER  retten 

1170  'ld  hl, (c2 ) ;y1 -Koordinate  holen 

1180  'call  4bbd2;GRA_SET_WIND0W__I 

1190  'ld  hl, (ci ) ;x1 -Koordinate  holen 

1200  'ex  de,hl;mit  HL  tauschen 

1210  ' ld  hl, (c3 ) ;x1 -Koordinate  holen 

1220  'call  &bbcf ;GRA_SET_WINDOW_II 

1230  'pop  hl;Programm  COUNTER  holen 

1240  'call  4dd55; folgt  Komma  ? 

1250  *jr  nc,draw;nein,  dann  DRAW 

1260  'call  &ce67;ja,  dann  8-Bitwert  holen 

1270  'push  hl;Programm  COUNTER  retten 

1280  'ld  hl , 4b339 ;GRA_PAPER_RAMADRESSE  laden 

1290  ' ld  (hl ) ,a; Bitmaske  setzen 

1300  'pop  hl; Programm  COUNTER  holen 

1310  'draw  push  hl; Programm  COUNTER  retten 

1320  'call  &bbdb;GRA_CLEAR_WINDOW 


. Tips  &  Tricks 

1330  ' ld  hl,640;Grafikfenster. . . 

1340  ' ld  de,0;  ...  nach  CLG  ... 

1350  'call  &bbcf;  ...  wieder  auf  ... 

1360  1 ld  hl,0;  ...  Bildschirm-  ... 

1370  ' ld  de, 400;  ...  groesse  ... 

1380  'call  4bbd2;  ...  bringen 

1390  'ld  hl,4b339 ;GRA_PAPER_RAMADRESS£  laden 

1400  'xor  a; AKKU  =  0 

1410  ' ld  (hl ) ,a;Pa per färbe  =0  setzen 

1420  ‘pop  hl;Programm  COUNTER  holen 

1430  'ret;zureuck  nach  BASIC 

1440  'error  ld  e,22;OPERAND  MISSING 

1450  'jp  &ca94; Fehler  ausgeben 

1460  'ci  dw  0 ;x1 -Koordinate 

1470  ' c2  dw  0 ;y1 -Koordinate 

1480  'c3  dw  0 ;x2-Koordinate 

1999  'end 


Multistatement  Zeilen 

18&S& - Bia 


Das  Aneinanderreihen  von  mehreren  Befehlsfolgen  in 
einer  Zeile  (Multistatements)  ist  eine  Programmierme¬ 
thode  die  zwar  Speicherplatz  spart,  im  Listing  jedoch  zu 
einem  recht  unübersichtlichen  und  schwer  lesbaren 
Programm  führt  Gerade  beim  Analysieren  fremder  Pro¬ 
gramme,  bei  dem  man  bekanntlich  viel  lernt,  erschweren 
solche  Zeilen  die  Lesbarkeit  und  Übersicht. 

Das  folgende  Programm  verbindet  nun  die  Notwendig¬ 
keit,  platzsparende  Multistatements  zu  verwenden,  mit  der 
Möglichkeit,  diese  in  einem  Listing  aufgeschlüsselt  dar¬ 
stellen  zu  können. 

Durch  Doppelpunkt  getrennte  Befehlsfolgen  werden  er¬ 
kannt  und  aufgeschlüsselt  in  einer  neuen  Zeile  aus¬ 
gedruckt. 

Der  Edit-Modus  wird  hierbei  nicht  beeinträchtigt;  eine  im 
Aufschlüsselungsmodus  gelistete  Programmzeile  kann 
wie  gewohnt  editiert  werden. 

Aufgeschlüsselt  wird  mit  dem  RSX-Befehl  ILIST.  Mit 
ILISTR  wird  der  Modus  wieder  verlassen.  Über  den  ganz 
normalen  Basic-List-Befehl  wird  die  Ausgabe  auf  Drucker 
oder  Monitor  ausgegeben. 

(C.  Kahlo) 


10  REM  . . . . . . .  118871 


20  REM  •••  LISTINGS  AUF  DRUCKER/MONITOR  M  [2610] 
IT  NUR  EINEM  ••• 

30  REM  BEFEHL  JE  LISTING-ZEI  (20641 


LE  ••• 

40  REM  . . . . . . ••••••*••••  [18871 


50  REM  •••  <C)  CHR.  KAHLO  FFM  1  (17481 

986  ••• 

60  REM  . . **•••*••  [18871 


100  MEMORY  4A609  [4521 

110  FOR  x=4A60A  TO  4A67A  (11951 


120  READ  wert:POKE  x,wert:su=su+wert:NEXT  (31911 
130  IF  su<  >1 3614  THEN  CLS : PRINT"DATA  -  FEH  (26761 
LER  1 " : STOP 

140  CALL  4A60A:CLS: PRINT”  RSX  EINGEBUNDEN  [2178] 
1 1 " :END 

150  DATA  41 ,418,4A6,421 ,414,4A6,4CD,4D1 ,4B  (3018] 
C,  4C9 , &FC, 4A6 ,418 , 4A6 , 420 , 4A6 

160  DATA  4C3,42A,4A6,4C3,464,4A6,44C,449,4  (31231 

53,4D4,44C,449,453,454,4D2,40,421 

170  DATA  43F, 4A6 ,43E, 4C3 ,  432 , 45A, 4BB , &22 , &  [4139] 

5B, &BB, 421 ,&54,&A6,&32 , 42B, 4BD,422 

180  DATA  42C,4BD,4C9,4FE,43A,4C2,450,4A6,4  [3034] 

F5#43E,4D,4CD,450,4A6 , 43E,4A,4CD 

190  DATA  450,4A6,4F1 ,4CF,40,494,4C9,4FE,43  (4371] 

A,4C2,460 , 4A6 , &F5 , &3E, &A, &CD, &2B 

200  DATA  &BD, &F1 , &CF,&F2 , &87 , &C9 , &21 , &5A, &  [3089] 

BB, &36,ÄCF, 423, &36, 40, 423 ,436,494 

210  DATA  421 , 42B, 4BD,436 , 4CF, 423 , 436 , 4F2 , 4  [1805] 

23,436,487, 4C9 


9  '86  CPC  119 


—  Das  ist  die  Software  zum  CPC  Magazin  — 


DEN  STERNEN  TTWAJ  NAHER 


Tipi  Tricks: 

BILDSCHIRMKOMPRESSOR 


UDO  DESIGNER 


Schneiderware: 


UNIVERSELLES  NETZTEIL 


Programme: 


OISKMAT 
ÜBERLEG  MAL 


Jfirss* 

EOETWARE- ÜBERSICHT 


Infocom: 

DIE  "ROLLS-ROYCE"  AOVENTÜRES 


Im  Test: 


DK  TRONICS  SRf  IC  HE  RER  WEITE  RUNG 
RS  112-SCHNITTSTELLE 


DATABOX: 

—  mehr  als  der  übliche  Soft¬ 
wareservice 

—bringt  ergänzend  sämtli¬ 
che  Listings  der  jeweiligen 
Zeitschrift  und  alle  Pro¬ 
grammbeispiele  auf  Kas¬ 
sette  oder  auf  3”Diskette. 

—Programme  sind,  soweit 
systembedingt  möglich, 
auf  allen  drei  CPC-Modellen 
lauffähig.  Einzelheiten  ent¬ 
nehmen  Sie  bitte  der  ne¬ 
benstehenden  Aufstellung. 

—erscheint  jeden  Monat  und 
trägt  das  Titelbild  des 
gleichzeitig  erscheinenden 
Heftes. 

—der  Datenträger  zum 
Schneider  CPC  Internatio¬ 
nal  enthält  außerdem  je¬ 
desmal  ein  zusätzliches  Bo¬ 
nusprogramm,  das  nicht 
im  Heft  abgedruckt  ist. 


Jeden  Monat  neu 


Für  alle  CPC's  als  Kas¬ 
sette  und  3"  Diskette. 
Auch  als  Abonnement 
mit  Preisvorteil  erhältlich. 


Inhalt  der  Databox  zu  Heft 

9/86: 

Programm 

464 

664 

6128 

Planetenbahn 

• 

• 

• 

Gravitation 

• 

• 

• 

Marsbahn 

• 

• 

• 

Überleg  mal 

• 

• 

• 

Basic  Kurs 

• 

• 

• 

Diskmat  V2.0 

• 

• 

• 

Faktor  [cal] 

• 

• 

• 

Screen  Compress 

• 

• 

• 

UDG  Desktop 

• 

• 

• 

Multistatement 

• 

Vardump 

• 

Öko  Experiment 

• 

• 

• 

Öko  Ergänzung  1 

• 

• 

• 

Öko  Ergänzung  2 

• 

• 

• 

Öko  Ergänzung  3 

• 

• 

• 

Oxi 

• 

• 

• 

Bonusprogramm 

• 

• 

• 

Einzelbezug: 

Einzelbezugspreise  für  DATABOX: 

Diskette  3”  24, —  DM  zuzüglich  3, —  DM  Porto/Ver¬ 
packung  (im  Ausland  zuzüglich  5,—  DM  Porto/Ver¬ 
packung) 


Kassette  14,—  DM  zuzüglich  Porto/Verpackung  (im 
Ausland  zuzüglich  5,—  DM  Porto/Verpackung). 


Das  Databox-Abo  kostet: 

Als  Kassette  für  1/2  Jahr  (6  Lieferungen): 


Im  Inland  und  West-Berlin . 90, —  DM 

Im  europäischen  Ausland . 100— DM 

Im  außereuropäischen  Ausland . 120,—  DM 

Als  Diskette  für  1/2  Jahr  (6  Lieferungen: 

Im  Inland  und  West-Berlin . 150, —  DM 

Im  europäischen  Ausland . 160, —  DM 

Im  außereuropäischen  Ausland . 180—  DM 


Zahlungsweise: 

Am  einfachsten  per  Vorkasse  (Verrechnungs¬ 
scheck)  oder  als  Nachnahme  zuzüglich  der  Nach¬ 
nahmegebühr  (in  das  Ausland  ist  Nachnahme 
nicht  möglich). 


Preisvorteil  durch  Databox-Abo: 

Unser  beliebter  Databox-Service  kann  ab  sofort 
auch  im  Abonnement  bezogen  werden.  Dadurch 
sparen  Sie  Mühe  und  haben  außerdem  noch  ei¬ 
nen  Preisvorteil  gegenüber  dem  Einzelbezug. 


Als  Kassette  für  1  Jahr  (12  Lieferungen): 


Im  Inland  und  West-Berlin . 180—  DM 

Im  europäischen  Ausland . 200—  DM 

Im  außereuropäischen  Ausland . 240,—  DM 

Als  Diskette  für  1  Jahr  (12  Lieferungen): 

Im  Inland  und  Westberlin . 300,—  DM 

Im  europäischen  Ausland . 320,—  DM 

Im  außereuropäischen  Ausland . 360—  DM 


In  den  vorgenannten  Preisen  sind  die  Versand- 
und  Verpackungskosten  enthalten.  Bitte  benutzen 
Sie  für  Ihre  Bestellung  die  Abo-Karte. 


Schneider  CPC  international 

Postfach  250,  3440  Eschwege 


Bitte  Bestellkarte  benutzen 


1 
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MimnniiiiMiiiii 


Tips  &  Tricks . 


Vardump 


für  444 


Haben  Sie  auch  schon  einmal  fremde  Programme  er¬ 
weitert  oder  für  Ihre  speziellen  Anwendungen  optimiert 
und  danach  festgestellt,  daß  "nichts  mehr  läuft”? 

Das  Programm  "Vardump”  ist  in  diesen  Fällen  ein  lei¬ 
stungsfähiges  Hilfsmittel.  Es  ermittelt  alle  in  einem  Basic- 
programm  enthaltenen  Variablen  und  gibt  sie  tabellarisch, 
zusammen  mit  den  Programmzeilennummem,  in  denen 
sie  benutzt  werden,  wahlweise  auf  einem  Drucker  oder  auf 
dem  Bildschirm  aus. 

Auch  bei  der  Fehlersuche  in  selbstgeschriebenen  Basic- 
programmen  werden  Sie  Vardump  bald  nicht  mehr  missen 
wollen,  denn  z.B.  einen  Schreibfehler  in  einem  Variablen¬ 
namen  kann  der  Basic-Interpreter  grundsätzlich  nicht  er¬ 
kennen.  Auch  falsch  geschriebene  Basic-Kommandos 
interpretiert  der  CPC  meist  als  Variable  und  bringt  dann 
keine  Fehlermeldung.  Mit  Vardump  erkennen  Sie  solche 
Fehler  sofort. 

Außerdem  liefert  Ihnen  Vardump  eine  wertvolle  Ergän¬ 
zung  für  Ihre  Programmdokumentation. 

Kenner  der  Schneider-Programmszene  werden  jetzt  sa¬ 
gen:  ”So  etwas  Ähnliches  gibt  es  doch  schon”.  Das  stimmt 
zwar,  aber  die  bereits  veröffentlichten  Programme  leisten 
wirklich  nur  Ähnliches.  Diese  Programme  laufen  entwe¬ 
der  wesentlich  langsamer  ab,  als  das  hier  vorgestellte 
Programm,  oder  sie  verarbeiten  die  Typdeklarationsbe¬ 
fehle  nicht,  was  natürlich  zu  völlig  unbefriedigenden  Er¬ 
gebnissen  führt.  Auch  hinsichtlich  der  Ausgabemöglich¬ 
keiten  ist  das  vorliegende  Programm  komfortabler  und 
flexibler.  * 

Um  mit  Vardump  zu  arbeiten,  müssen  Sie  es  zunächst  mit¬ 
tels  MERGE  ”VARDUMP”  zu  dem  zu  untersuchenden 
Programm  laden,  und  dann  mit  RUN  60000  starten.  Vardump 
erstellt  zuerst  die  Bildschirmmaske  und  definiert  fünf 
Windows.  Danach  werden  Sie  von  Vardump  nach  dem  zu 
bearbeitenden  Programmzeilenbereich  gefragt.  Sie  können 
die  Fragen  ”von  Programmzeile?”  und  "bis  Programmzeile?” 
auch  mit  ENTER  quittieren.  Dann  bearbeitet  Vardump  das 
Programm  ab  der  ersten  Programmzeile  und  stoppt,  wenn 
es  auf  Zeile  60000  (erste  Zeile  von  Vardump)  stößt.  Sie 
können  aber  auch  beliebige  Zeilennummefn  eingeben,  auch 
solche  größer  60000,  so  daß  Sie  auch  eigene  Programme  in 
Zeilennummernbereiche  um  60000  untersuchen  können, 
nachdem  Sie  vorher  Vardump  mittels  RENUM  in  einen 
anderen  Zeilennummernbereich  transformiert  haben. 
Danach  bestimmt  Vardump  die  Zahl  zz  der  zu  untersu¬ 
chenden  Programmzeilen  und  dimensioniert  dann  ent¬ 
sprechend  dieser  Zahl  ein  Variablennamenarray  var- 
nam$(varz),  ein  zweidimensionales  Zeilennummernarray 
znr(varz,x),  wobei  x  von  der  Zahl  zz  abhängt,  und  ein 
Hilfsarray  refl(varz)  für  maximal  70  Variable  (varz=70)  in 
Zeile  60280. 

Nach  Ausgabe  von  Programmzeilenzahl  und  Programm¬ 
länge  in  Bytes  beginnt  Vardump  in  Zeile  60350  Ihr  Ba- 
sicprogramm  zeilenweise  nach  Variablennamen  zu  durch¬ 
suchen. 

Das  Unterprogramm  ab  Zeile  60970  ermittelt  Zeilennum¬ 
mer  (znr)  und  Programmzeilenlänge  (zlaenge)  der  aktuell 
untersuchten  Zeile. 

Diese  Zeile  wird  dann  im  Unterprogramm  "Programm- 
zeile  bearbeiten”  (ab  Zeile  60590)  nach  Token  für  Variable 
durchsucht.  Dies  sind  &02,  &03  und  &04  für  Variable  mit 


den  Typkennzeichen  %,  $  und  !,  also  Integer-,  String-  und 
Realvariable,  sowie  &0B,  &0C  und  &0D  für  Integer-, 
String-  und  Realvariable  ohne  Typkennzeichen. 
Kommentartexte  (token=&C0  bzw.  &C5)  überspringt 
Vardump.  Dadurch  steigert  es  seine  Arbeitsgeschwindig¬ 
keit  bei  reichlich  kommentierten  Programmen  erheb¬ 
lich. 

Um  eine  eindeutige  Typzuweisung  bei  Variablen  ohne 
Typkennzeichen  vornehmen  zu  können,  durchsucht  Var¬ 
dump  den  Programmcode  auch  nach  Token  für  DEFINT-, 
DEFSTR-  und  DEFREAJL-Befehle  (Token=&8Ebzw.  &8F 
bzw.  &90)  und  merkt  sich  die  Typzuweisungen,  indem  es  in 
der  Variable  vartyp$  für  jeden  der  26  Buchstaben  des 
Alphabets  die  entsprechenden  Typkennzeichen  speichert. 
Dies  ist  erforderlich,  weil  der  Basic-Interpreter  des  CPC  bei 
der  Programmzeileneingabe  zunächst  alle  Variablen  ohne 
Typkennzeichen  als  REAL-Variable  ansieht.  Erst  beim 
erstmaligen  Programmdurchlauf  wandelt  der  Interpreter 
die  Token  der  Variablen  endgültig,  entsprechend  der  Typ¬ 
zuweisungen,  in  den  DEFINT-,  DEFSTR-  und  DEF- 
REAL-Instruktionen  um. 

Hier  sei  noch  angemerkt,  daß  sich  dadurch  die  Möglich¬ 
keit  bietet,  in  einem  Programm  solche  Passagen  herauszu¬ 
finden,  die  beim  Programmablauf  nie  durchlaufen  wer¬ 
den.  Meist  handelt  es  sich  in  diesem  Fall  um  überflüssige 
Abfragen  oder  es  liegt  ein  logischer  Fehler  im  Programm¬ 
aufbau  vor. 

Vardump  hat  immer  dann  einen  Variablennamen  gefun¬ 
den,  wenn  es  auf  ein  Token  für  ein  Typkennzeichen  stößt. 
Es  merkt  sich  den  Variablentyp  und  springt  zum  Unter¬ 
programm  "Variablennamen  dekodieren”  ab  Zeile  61030. 
Um  dessen  Arbeitsweise  zu  verstehen,  muß  man  die  Inter¬ 
pretercodierung  für  Variable  kennen.  Das  erste  Byte  einer 
Variablen  im  Programm  legt  deren  Typ  fest: 

Danach  folgen  zwei  Bytes,  die  eine  relative  16-Bit-Adresse 
des  Speicherplatzes  der  Variablen  im  RAM,  bezogen  auf 
den  Start  des  Variablenspeichers  darstellen.  Diese  Bytes 
sind  für  Vardump  ohne  Bedeutung  und  werden  übersprun¬ 
gen. 

Anschließend  folgen  die  ASCII-Codes  für  die  Buchstaben 
des  Variablennamens  mit  der  Besonderheit,  daß  dem 
ASCII-Code  des  letzten  Buchstabens  der  Wert  128  hinzu¬ 
addiert  ist.  An  diesem  Merkmal  erkennt  Vardump  das  Ende 
des  Variablennamens.  Jede  gefundene  Variable  wird  von 
Vardump  anschließend  im  Unterprogramm  "Variable 
identifizieren”  (ab  Zeile  61280)  mit  den  bereits  gefun¬ 
denen  Variablen  verglichen.  Wenn  der  Variablenname  zum 
ersten  Mal  auftritt,  wird  er  im  Array  varnam$(n)  gespei¬ 
chert.  Vorher  wird  er  aber  auf  maximal  12  Buchstaben 
begrenzt.  Wenn  er  länger  war,  wird  dies  durch  ein  ange¬ 
hängtes  kenntlich  gemacht.  Jeder  neue  Variablenname 
und  die  Anzahl  der  im  Array  varnam$(n)  gespeicherten 
Variablennamen  werden  laufend  auf  dem  Bildschirm  aus¬ 
gegeben. 

Danach  wird  die  Zeilennummer,  in  der  die  Variable  ge¬ 
funden  wurde,  in  dem  Array  znr(n,x)  gespeichert,  wrenn  sie 
in  derselben  Programmzeile  nicht  schon  einmal  gefunden 
wurde.  Um  Speicherplatz  zu  sparen,  ist  dieses  Array  vom 
Integertyp.  Da  die  Zeilennummern  auch  außerhalb  des 
durch  Integerzahlen  darstellbaren  Zahlenbereichs  liegen 
können,  wird  vorher  die  Zahl  32768  subtrahiert.  Diese 
Zahl  wird  später  bei  der  Ausgabe  wieder  hinzuaddiert. 
Wenn  eine  Variable  in  mehr  als  x  Zeilen  vorkommt,  wäre 
das  Zeilennummernarray  znr(varz,x)  zu  klein  dimensio¬ 
niert,  und  der  Programmablauf  würde  durch  eine  Fehler¬ 
meldung  unterbrochen.  Dies  vermeidet  Vardump,  indem 
es  bei  vollem  Zeilennummernspeicher  alle  weiteren 
Zeilennummern  ignoriert.  Um  dies  anzuzeigen,  wird  die 
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Tips  &  Tricks1 


letzte  speicherbare  Zeilennummer  gleich  der  ersten 
Zeilennummer  von  Vardump  gesetzt. 

Auf  diese  Weise  durchsucht  Vardump  das  Basieprogramm 
und  bricht  erst  ab,  wenn  der  bei  Programmstart  eingege¬ 
bene  Zeilennummernbereich  abgearbeitet  ist,  oder  wenn 
die  letzte  Basiczeile  bearbeitet  wurde.  Die  aktuell  bearbei¬ 
tete  Programmzeile  wird  laufend  auf  dem  Bildschirm  aus¬ 
gegeben.  Außerdem  zeigt  eine  eingebaute  Stoppuhr  die  seit 
dem  Programmstart  verstrichene  Zeit. 

Bevor  das  Ausgabemenue  angeboten  wird,  werden  die 
Variablennamen  alphabetisch  sortiert.  Um  Rechenzeit  zu 
sparen,  wird  das  Zeilennummernarray  nicht  mitsortiert, 
sondern  lediglich  das  Hilfsarray  refl(n),  das  nach  dem 
Sortiervorgang  anzeigt,  in  welcher  Zeile  des  Zeilennummem- 
arrays  die  Zeilennummern,  in  denen  der  in  varnamS(n) 
gespeicherte  Variablcnname  vorkommt,  zu  finden  sind. 
Das  Ausgabemenue  enthält  die  Menuepunkte  "Drucker- 
ausgabe”,  "Bildschirmausgabe",  "Start”  und  "Ende”.  Bei 
"Start”  fragt  das  Programm  wieder  nach  dem  zu  untersu¬ 
chenden  Zeilennummernbereich  und  beginnt  erneut  mit 
der  Variablensuche.  Mit  "Ende”  kann  das  Programm  be¬ 
endet  werden. 

Nach  zweimaligem  Drücken  der  ESC-Taste  verzweigt  das 
Programm  immer  zum  Ausgabemenue.  (Reiner  Nitsch) 

Token  Variablentyp 

602  Integervariable  mit  Typkennzeichen  ”%” 

603  Stringvariable  mit  Typkennzeichen  ”S” 

604  Realvariable  mit  Typkennzeichen  ”!” 

&0B  Integervariable  ohne  Typkennzeichen 
&0C  Stringvariable  ohne  Typkennzeichen 
&0D  Realvariable  ohne  Typkennzeichen 
Variablenübersicht: 

ber  Flag 


breakllag 

drksp 

drkz 

erstzeil! 

first! 

gnr 

last! 

lirstadr! 

nmax 

ram! 

refl(n) 

sS 

token 

i,n,nl 

min 

sek 

varz 

typS 

var$ 

vartypS 

varnam$(n) 

vznr 

znr 

znr(i,j) 

zlaenge 

zanf! 

zwsp  1  ,zwsp2 
zz 


Flag 

Spaltenzahl  bei  Ausgabe 

Zeilenzahl  bei  Bildschirmausgabe 

1.  Zeilennummer  von  Vardump 

1.  Zeilennummer  des  zu  untersuchenden 

Programmabschnitts 

Ausgabegerätenummer 

letzte  Zeilennummer  des  zu  untersuchenden 

Programmabschnitts 

RAM-Adresse  der  Programmzeile  first! 

Zahl  der  Variablennamen 

Laufvariable  der  aktuellen  RAM-Adresse 

Referenzliste  für  Zeilennummern  nach 

dem  Sortiervorgang 

Eingabestring 

Basic-Token 

Laufvariable 

Minute 

Sekunde 

maximale  Variablenzahl 
Variablentyp 
gefundene  Variable 

enthält  Variablen  typ  als  Ergebnis  von  DEF- 

INT-,  DEFSTR-  und  DEFREAL-Befehlen 

Variablennamenarray 

vorangegangene  Zeilennummer 

aktuelle  Zeilennummer 

Zeilennummernarray 

Zeilenlänge 

Zeiger  auf  den  Anfang  der  aktuellen  Basic¬ 
zeile  im  RAM 
Zwischenspeicher 

Zeilenanzahl  des  Programmbereichs 


Sie  wollen  uns  ein  Programm  zusenden?  Folgende  Regeln  sollten  Sie  beachten: 


1)  Schicken  Sic  Ihre  Programme  auf 
Kassette  oder  Diskette.  Dabei  mehr¬ 
mals  hi  niereinander  abspeichern. 

2)  Legen  Sie  eine  ausführliche  Pro¬ 
gram  mheschreibung  bei.  aus  der  ein¬ 
deutig  der  Sinn  und  Zweck  des  Pro¬ 
grammes  hervorgeht.  Fine  Vuria- 
blcnlistc  ist  sehr  wichtig,  in  ihr 
sollten  alle  im  Programm  definierten 
Variablen  mit  ihrer  Verwendung  auf¬ 
geführt  sein. 

Beispiel:  nS  =  Nachname 
g  =  glücklicher  usw. 

3)  Wenn  Siegleichzeitig  Besitzereines 
Druckers  sind,  schicken  Sie  auf  je¬ 
den  Fall  ein  Programmlisting'mit. 

4)  Vergessen  Sie  Ihren  Absender  nicht! 
Vollständige  Anschrift,  wenn  möglich 
auch  die  Telefonnummer,  ersparen 
unnötige  Verzögerungen  hei  even¬ 
tuellen  Nachfragen  unsererseits. 

\)  Behalten  Sie  auf  jeden  Fall  eine  Ko¬ 
pie  Ihres  Programmes,  unvorherseh- 
bare  Umstände,  wie  z.B.  Bandriß  der 


Kassette,  werden  somit  nicht  zur 
Katastrophe. 

6)  Wenn  Sie  sogar  mehrere  Programme 
geschrieben  haben  und  diese  veröf¬ 
fentlichen  wollen,  nehmen  Sie  bitte 
für  jedes  Programm  eine  separate 
Kassette  (mehrmals  abspeichern!). 

Damit  erleichtern  Sie  unsere  Arbeit 
wesentlich  und  eine  schnellere  Bear¬ 
beitung  wird  möglich. 

7)  Versehen  Sie  das  Programm  mit  den 
sehr  wichtigen  REM-Statements. 
Das  fördert  nicht  nur  die  Übersicht 
für  uns  und  unsere  Leser,  sondern 
unterstützt  zusätzlich  das  struktu¬ 
rierte  Programmieren.  Merke:  Auch 
e  rtah  ren  e  Program  mierer  verwenden 
REM-Zeilen.  das  Programm  sollte 
schließlich  jeder  verstehen  und  an- 
wenden  können. 

8)  Vermeiden  Sie  möglichst  Variablen¬ 
namen,  wo  leicht  1  und  i  oderO  und  o 
verwechselt  werden  können.  Varia¬ 
blen  sollten  grundsätzlich  in  Klein¬ 


buchstaben  geschrieben  werden  und 
möglichst  verständlich  sein.  Die 
Variable  butter  sagt  mehr  aus,  als  nur 
bu. 

9)  Bieten  Sie  das  Programm  niemals 
verschiedenen  Verlagen  gleichzeitig 
an!  Mit  der  Veröffentlichung  und  dem 
daraus  resultierenden  Honorar,  ge¬ 
hen  die  Urheberrechte  an  den  Verlag 
über!  Sollte  Ihr  Programm  dann  noch 
in  einer  anderen  Zeitschrift  ab- 
gedruckt  werden,  liegt  ein  Verstoß 
gegen  das  Wettbcwerbsreehl  vor. 

10)  Jedes  bei  uns  ordnungsgemäß  einge¬ 
gangene  Programm  wird  ausführlich 
begutachtet  und  getestet.  Sie  er¬ 
halten  von  uns  dann  umgehend  Be¬ 
scheid.  ob  Ihr  Programm  veröffent¬ 
licht  wird  oder  nicht.  Wenn  Sie  das 
Programm  nach  unserer  Begutach¬ 
tungzurückhaben  wollen,  legen  Sie 
bitte  der  Einsendung  einen  frankier¬ 
ten  und  adressierten  Rückumschlag 
bei.  Die  Kosten  einer  eventuellen 
Rücksendung  sind  in  jedem  Fall  vom 
Einsender  zu  tragen. 


Falls  wir  uns  für  den  Abdruck  Ihres  Programmes  entschieden  haben,  setzen  wir  uns  unverzüglich  mit  Ihnen  in  Verbindung  und  be¬ 
sprechen  Ihr  verdientes  Honorar! 

Übrigens  wäre  es  nett, wenn  Sie  uns  auch  ein  paar  persönliche  Daten  schreiben  würden  (z.B.  Ihr  Alter,  Tätigkeit,  wüe  und  wann  kam 
die  Idee  zu  dem  Programm,  was  alles  machen  Sie  mit  dem  CPC  usw.?).  So,  jetzt  aber  genug  der  Theorie,  mit  fast  unerträglicher 
Spannung  und  Neugier  wartet  Ihre  „Schneider  CPC  international”  auf  Ihre  Beiträge. 

Einsendungen  bitte  an:  DMV  -  Daten  &  Medien  Verlagsges.mbH,  Fuldaer  Straße  6,  3440  Eschwege 
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MIM 


60000  adr i =PEEK( &AE36 )  +  256 *PEEK( &AE37 ) :ers  (2891] 


(C) 


Variablen-Dump 
Stand:  12.01.86 

by  Dr.  Reiner  Nitsch 


tzeil ! =PEEK( adr! )+256 *PEEK( adr ! +1  ) 
130 
60010 
60020 
60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 
601  40 


OTO  60 


Hauptprogramm 


DEFINT  a-z 

GOSUB  61420:'  Bildschirmmaske 
60150  vartyp$=STRING$ ( 26 , " l " ) 

60160  ON  BREAK  STOP 

60170  last  1 =0 : first  I =0: nmax=0 

60180  CLS#3 : PRINT# 3 , TAB ( 5 )CHR$ ( 24 ) "VARIABL 

ENDUMP"CHR$ ( 24 ) 

60190  PRINT# 3 , "  "CHR$(164)n  by  Dr.  R.Nits 

ch" 


[1143  ] 

[1255  J 

[477] 

[18171 

[1751 

[1751 

[1753 

[175] 

[1143] 

[117] 

[1196] 

[117] 

[5533 

[21451 

[13981 

[431  ] 

[1734  J 

[3054  ] 

(3287  ] 


60200  PRINT# 3 : PRINT# 3, "  von  Zeile" :n1 =1 5 :  [4351] 
i  =  4 :GOSUB  62170: first  1 =VAL( s$ ) 

60210  PRINT# 3 , "  bis  Zeile" : nl =1 5 : i  =  5 :GOSU  [2758] 
B  62170: last  1 =VAL( s$ ) 

60220  PRINT# 3 , "  Eingabe  ok?  (J/N)"; :GOSUB  [6375} 
62260 : PRINT# 3 , CHR$ ( 1 7 ) : IF  i$="N"  THEN  601 
70 

60230  IF  s$=HH  THEN  IF  first !< =erstzeil 1 -1  [4543] 


THEN  last  1 =erstzeil 1 -1  ELSE  last  1=65535 
60240  ti=50:EVERY  ti  GOSUB  61610  [14603 

60250  GOSUB  61160:’  Zahl  der  Programmzeile  [46301 
n? 


60260  IF  last  1 <f irst I  THEN  60170  [1799] 

60270  zanf 1 =f irstadrl  [1242] 

60280  varz=70 : spl=MAX( 50  ,zz/ (1 +INT( zz/1 00 )  147431 
) ) :DIM  varnam$ (varz ) ,ref 1 (varz ) , znr (varz, spl ) 
60290  ON  BREAK  GOSUB  62340  [711] 

60300  FOR  i=0  TO  varz:refl ( i)=i:NEXT  [1347] 

60310  LOCATE#2,3, 1 : PRINT#2 , "Das  Programm  e  [4248] 
nthaelt" 


. . . Tips  &  Tricks . 

60320  LOCATE#2 1 2,2: PRINT#2 , "im  Zeilennumme  [4587] 
rnbereich" 

60330  LOCATE#2 , 5,4: PR INT# 2 , USING"#####  bis  [4295] 
#####"; first! ;last! 

60340  LOCATE#2, 3,6: PRINT#2, USING"####  Pro  [3561] 
grammzeilen" ; zz 

60350  IF  breakflag  THEN  last!=znrl  [917] 

60360  GOSUB  60990:IF  znr!>last!  OR  zlaenge  [4003] 

=0  THEN  60400 

60370  LOCATE#1 , 1 0, 3: PR INT# 1 , USING" #####" ;z  [2363] 


nrl 

60380  GOSUB  60610  [972] 

60390  zanf 1 =zanf ! +zlaenge:GOTO  60350  [1966] 

60400  LOCATE#2 , 2,9: PR INT# 2 , USING "und  beleg  [4504] 
t  #####  Bytes";zanf 1 -firstadr!+2 
60410  GOSUB  61670:'  Sortieren  [21361 

60420  i=REMAIN ( 0 )  [622] 

60430  breakflag=0  [333] 

60440  CLS # 3 : PRINT# 3 , " [ S 1  =  Start": PRINT# 3,  [8470  3 
"[B]  =  Bildschirmausg.":PRINT#3," [D]  =  Dru 
ckerausgabe" : PRINT# 3, " [El  =  Ende" 


60450  LOCATE# 3, 4, 6: PRINT# 3, STRINGS (15,"  ")  (24613 
:FOR  i=1  TO  1 000 :NEXT 

60460  LOCATE#3 , 4,6: PRINT#3 ,CHR$ (24 ) "Bitte  [2588] 
waehlen"CHR$ ( 24 ) 

60470  i$=UPPER$ ( INKEY$ ) : IF  i$  =  ""  THEN  FOR  [34691 
i=1  TO  1 000 :NEXT: GOTO  60450 

60480  IF  i$="E"  THEN  CLE AR : MODE  2 :END  [16401 

60490  IF  i$="D"  THEN  gnr=8 :drksp=8 : GOSUB  6  [33953 
0530 :GOSUB  61760 

60500  IF  i$="B"  THEN  gnr=0:drksp=5: GOSUB  6  [2560] 
1  760 

60510  IF  i$="S"  THEN  ERASE  varnam$ ,ref 1 , zn  [2606] 
r :CLS#0 :CLS#2 : CLS# 3 : GOTO  60160 

60520  GOTO  60430  [4173 

60530  IF  INP{ &F500 ) =90  THEN  LOCATE#3 , 2 , 6 : P  [3789] 
RINT#3,CHR$ (24 ) "Drucker  einschalten"CHR$ ( 2 
4 ) : PRINT  CHR$ ( 7 ) ;  ELSE  60550 

60540  FOR  i=1  TO  1000:NEXT:IF  breakflag  TH  [2567] 


EN  60550  ELSE  60530 

60550  RETURN  (5553 

60560  '  [117] 

60570  '**•*  Unterprogramme  ****  11440} 

60580  '  [117] 
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Progranunzeile  bearbeiten  *•** 


60590  '  • 

60600  ' 

60610  ram l=zanf 1+4: WHILE  ram! «zanf l+zlaeng 
e-1 

60620  token =PEEK( raml ) :IP  token >8 IF  THEN  I 
F  token <8FF  THEN  60750  ELSE  raml =raml +1 :GO 
TO  60730:'  Wenn  token=8FF  ist  das  naechste 
Byte  eine  BASIC-Funktion 
60630  IF  token >8D  THEN  60700 
60640  IF  tokens&D  THEN  typ$="  l":GOSUB  610 
50 : GOTO  60730 

60650  IF  token=SB  THEN  typ$="  %":GOSÜB  610 
50 : GOTO  60730 

60660  IF  token=83  THEN  typ$="$": GOSUB  6105 
0:GOTO  60730 

60670  IF  token=82  THEN  typ$="%" :G0SUB  6105 
0:GOTO  60730 

60680  IF  token=84  THEN  typ$ = " ! " : GOSUB  6105 
0 :GOTO  60730 

60690  IF  token=8C  THEN  typ$="  $":GOSUB  610 
50: GOTO  60730 

60700  IF  token=81 9  THEN  ram l =ram 1 +1 : GOTO  6 
0730 

60710  IF  token «8 1A  THEN  60730 

60720  raml =raml +2:IF  token=S1F  THEN  ram 1 =r 

aml+3 


60730  ram 1 =ram 1  + 1 : WEND 
60740  RETURN 

60750  IF  token=8C0  THEN  RETURN 

60760  IF  token=8C5  THEN  RETURN 

60770  IF  token >88D  AND  token «8 91  THEN  GOSU 

B  60800 

60780  GOTO  60730 
60790  ’ 

60800  ' •••  DEF INT , DEFSTRING , DEFREAL  ••• 
60810  ' 

60820  IF  token =8 BE  THEN  typ$="%":GOTO  6087 
0 

60830  IF  token =8 BF  THEN  typ$=" 1 ":GOTO  6087 
0 

60840  IF  token=890  THEN  typ$="$" :GOTO  6087 
0 

60850  RETURN 
60860  ' 

60870  raml=ram!+1 :GOSUB  60950 

60680  IF  token >8 60  AND  token <87B  THEN  toke 


n=token-S20 

60890  IF  ber=0  THEN  zwsp1=token  ELSE  zwsp2 
=token 

60900  ram 1 =ram I +1 : GOSUB  60950 


60910  IF  token=82C  OR  token=1  OR  token=0  T 
HEN  IF  ber=0  THEN  MID$ (vartypS , zwspl -64 ,1 } 
=typ$  ELSE  FOR  n-MIN ( zwsp2 , zwspl )  TO  MAX(z 
wsp2rzwsp1 ):MID$(vartyp$,n-64,1 )=typ$:NEXT 
:ber=0 

60920  IF  token=82D  AND  ber=0  THEN  ber«1:GO 
TO  60870 

60930  IF  token >1  THEN  60870  ELSE  RETURN 
60940  ' 

60950  WHILE  PEEK{ ram ! ) =820 : ram! =ram! +1 : WEN 
D: token=PEEK( ram 1 ) : RETURN 
60960  ' 

60970  '•••*  Zeilennr. , Zeilenlaenge  ?  *••• 
60980  ' 

60990  zlaenge=PEEK( zanf 1 ) +256 *PEEK( zanf 1 +1 

) 

61000  znrl=PEEK(zanf 1+2 )+256*PEEK( zanf 1+3) 
61010  RETURN 
61020  ' 

61030  '***♦  Variablenname  dekodieren  ***» 
61040  ' 

61050  raml=raml+3:var$="" 

61060  token=PEEK{ raml ):IF  token>87F  THEN  t 
oken=token-880 :var$=LOWER$( var$+CHR$ ( token 
)):GOTO  61090 

61070  var$=var$+CHR$< token) 

61080  ram 1 =ram 1 +1 : GOTO  61060 
61090  IF  LEN( typ$)=1  THEN  var$=var$+typ$ 
61100  IF  LEN( var$ ) >1 2  THEN  var$=LEFT$ ( var$ 
,12)  +  "*'' 

61110  var$=LEFT$ ( var$+STRING$ ( 1 3 ,"."), 1 3 ) + 
RIGHT$ { typ$ , 1 ) 

61120  IF  LEN{ typ$ ) =2  THEN  var$=LEFT$ { var$ , 
LEN( var$ ) -1 ) +MID$ ( vartyp$ , ASC ( LEFT$ ( var$ ,  1 
))-96,1 ) 

61130  GOSUB  61300 
61140  RETURN 
61150  ' 

61160  *••••  Anzahl  der  Programmzeilen  best 


125251 

[1171 

[1479] 

[8247] 


[609] 
[2554  ] 

[19061 

[2910  1 

[25221 

[3286  ] 

[26871 

[1976] 

(7871 

[2770] 

[883] 

[555] 

[1746] 

(26271 

[30501 

(4131 

1117] 

[2188] 

(1171 

[2628] 

(15181 

[1988] 

(5551 
[117] 
(11791 
[3011  1 

[3320  ] 

[11791 

[11372] 


[2908] 

[1676] 

[117] 

[4082] 

(1171 
[2133] 
C1171 
[1593  1 

[1364  ] 

[5551 

[117] 

[1548] 

[117] 

[1011  ] 

[5114] 


(16851 

[1194] 

12407] 

(36661 

(33201 

[3436  1 


[1010] 

[5551 

[117] 

[1619] 


immen  • • *  * 

61170  ' 

61180  zanf 1=81 70: znr 1=0: GOSUB  60970 

61190  WHILE  znrl «first I  AND  z la enge >0: GOSU 

B  60970 : zanf 1 =zanf 1 +zlaenge: WEND 

61200  IF  zlaenge=0  THEN  lastl=0:GOTO  61260 

61210  f irstadrl =zanf I :firstl=znrl :zz=-1 

61220  WHILE  znrl<=lastl  AND  zlaenge>0 

61230  vznr ! =znrl :GOSUB  60970 :zz=zz+1 tzanf 1 

=zanf 1 +z laenge 

61240  WEND 

61250  lastl=vznr! 

61260  RETURN 
61270  ' 

61280  '*•••  Variable  identifizieren 
61290  ' 

61300  FOR  n=1  TO  nmax:IF  var$=varnam$ (n)  T 
HEN  61370 
61310  NEXT 

61 320  nmax=nmax+1 : varnam$ (nmax)=var$: PRINT 
var$+"  "+CHR$ (149); 

61330  LOCATE#2 , 3,7: PRINT#2 ,USING"####  Var 
i ab lennamen " ; nmax 
61340  ' 

61350  '•***  Zeilennr.  speichern 
61360  ' 

61370  IF  znr (n,znr(n,0) )=znrl-32760  THEN  R 
ETURN 

61380  IF  znr(n,0)=spl  THEN  znr (n,spl ) =erst 
zeill -32768 :GOTO  61400 

61390  znr(n,0)=znr(n,0)+1 : znr (n, znr (n,0 ) )= 

znri-32768 

61400  RETURN 

61410  ' 

61420  Bildschirmmaske  **** 

61430  ' 

61440  MODE  2 : BORDER  15:INK  0,20:INK  1,1 
61450  PRINT  CHR$ ( 1 50 )STRING$ (51,154 )CHR$(  1 
56 )CHR$ ( 1 50 )STRING$ (25,154) CHR$ (156) 

61460  FOR  i=2  TO  24:LOCATE  1,i: PRINT  CHR$( 
149): LOCATE  53, i: PRINT  STRING$ ( 2 , 1  49 ) : LOCA 
TE  80, i: PRINT  CHR$ ( 1 49 ) :NEXT 
61470  LOCATE  1,25: PRINT  CHR$ ( 1 47 )STRING$ ( 5 

1 .154 ) CHR$ (153 )CHR$ (147 )STRING$ (25,154 )CHR 
$(153); 

61480  LOCATE  54,17:PRINT  CHR$( 1 47 )STRING$ ( 

25.1 54 ) CHR$ (153) 

61490  LOCATE  54,18:PRINT  CHR$ ( 1 50 )STRING$ ( 

25 . 1 54 ) CHR$ (156) 

61500  LOCATE  54, 5: PRINT  CHR$ ( 1 47 ) STRING? ( 2 

5.1 54 ) CHR$ (153) 

61510  LOCATE  54, 6: PRINT  CHR$ ( 1 50 )STRING$ { 2 

5.154 ) CHR$ (156) 

61520  WINDOW^O ,2,50,5 , 24 :WINDOW#1 ,55,79,2, 
4 : WINDOW# 2, 55, 79 ,7,16 : WINDOW# 3 , 55,79,19,24 
: WINDOW#  4 ,2,50,2,4 
61530  LOCATE# 1 ,3,1 : PRINT# 1 /'Zeit 
61540  LOCATE# 1,3, 3: PRINT# 1  /'Zeile:" 

61550  PRINT# 4 , TAB ( 1 8 ) "Variablentabelle" 
61560  ZONE  16 

61570  FOR  i=1  TO  3 : PRINT# 4 /'Variable. .. .Ty 
p"CHR$(1 49) ; :NEXT 

61580  FOR  i=1  TO  3 : PRINT# 4 , STRING$ ( 1 5 ,CHR$ 
(154) )CHR$ (159); :NEXT 
61590  RETURN 
61600  ' 

61610  '•••*  Uhr  •••• 

61620  ' 

61630  sek=sek+1:IF  sek=60  THEN  sek=0:minut 
e=minute+1 

61640  LOCATE# 1 ,10,1 : PRINT# 1 ,USING"## : ##" ;m 
inute,sek 

61650  LOCATE #1 ,10, 3 : RETURN 
61660  ' 

61670  '*••*  Sortieren  **** 

61680  * 

61690  IF  nmax<2  THEN  RETURN 

61700  FOR  n=1  TO  nmax-1 : zwspl =n 

61710  FOR  n1=n+1  TO  nmax:IF  varnam$(n1 ) <va 

rnam$( zwspl)  THEN  zwspl =n1 

61720  NEXT:var$=varnam$ (zwspl ) : varnam$ ( zws 

pl ) =varnam$ ( n ) : varnam$ ( n ) =var $ 

61 730  zwsp2=refl (zwspl ) : ref 1 (zwspl ) =refl (n 
) :refl(n)=zwsp2 
61740  NEXT : RETURN 
61750  ' 

61760  '***•  Ausgabe  •••• 

61770  ' 

61780  IF  i$="D"  THEN  GOSUB  61940  ELSE  GOSU 


(1171 

[1223] 

[63961 

[2041 1 
[1228] 
[2239] 
[4210] 

[3901 

(6871 

(5551 

[1171 

[1108] 

[1171 

[25061 

[350] 
[2571  ] 

[4624] 

(1171 

[1655] 

(1171 

[4126] 

[4087  3 

[2820] 

[5551 
[117] 
[2395] 
1117] 
[2391  1 
[4161  3 

[6213] 


(5467  ] 


[3380] 

128171 

[22661 

[2495] 

[3960] 


[1736] 

[1990] 

[2129] 

(6741 

[3857] 

[2117] 

[5551 
[117] 
[3321 
[1171 
(2161  ] 

(2446  ] 

[882] 

[117] 

[3041 

[1171 

(1212  ] 

11432] 

(2838 ) 

[3657] 

(3558  ] 

[9401 

[117] 

[687] 

[117] 

[2214] 
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4 )CHR${ 27 )CHR${ 45 )CHR$ ( 1 ) var$CHR$ ( 27 )CHR$ ( 

45 )CHR$ ( 0 )CHR$  <  20 ) 

62020  typ$="Version :  %typ$ :  PRINT#8 ,  SPACES  [3879] 
( 30-LEN ( var$ ) /2 ) typ$ 

62030  PRINT#8:PRlNT#8:PRINT#S,"Der  Zeilenn  [5918] 
ummernbereich  "f  irstl  "bis"lasti 
62040  :'PRINT#8  :  PRINT#8 ,  "enthaelt  ";USING  [5652] 

"  ####";  zz;:PRINT#8,"  Basiczeilen" 

62050  PRINT#8, "belegt  ";USING"#####";z  [3711] 
anf 1 -&1 70+2; :PRINT#8,"  Bytes  im  RAM" 

62060  PRINT#8 , "benutzt  die";USING"  ##";n  [3340] 
max; :PRINT#8,"  Variablen" 

62070  ZONE  1 5 : PRINT#8 : PRINT#8  [2477] 

62080  FOR  n=1  TO  nmax:  PRINT#8  ,  varnam$  (n)  "  [3453] 

"CHR$ ( 27 ) "="CHR$ ( 1 49 )CHR$ ( 0 ) "  :NEXT 
62090  PRINT#8  [343] 

62100  ZONE  15: PRINT#8 , STRING$ ( 2 ,CHR$ (10))"  [8563] 


Variable. .. .Typ", "wird  benutzt  in  den  Zeil 
en" : PRINT#8 , STRING$ ( 75 ,CHR$ ( 45 ) ) 

62110  WIDTH  70: ZONE  7 
62120  RETURN 
62130  ' 

62140  '  ***  Eingabe  *** 

62150  ' 

62160 
62170 
62180 
62190 
THEN 


nl =1 :i=3 
n=0 :s$="" 

LOCATE#  3 , nl +n , i : PRINT# 3 , CHR$ (143); 
i$=INKEY$ : IF  i$=”"  THEN  IF  breakflag 
RETURN  ELSE  62190 


[1184] 

[555] 

[117] 

[1674] 

[117] 

[321  ] 

[169] 

[2093] 

(3570) 


62200  IF  i$=CHR$ (127)  AND  n>0  THEN  S$=LEFT  [5108] 
$ ( s$ ,LEN( s$ ) -1 ) : LOCATE# 3, nl +n,i:PRINT#3, " 
n=n-1 :GOTO  62180 


62210  IF  ASC( i$ ) >31  AND  ASC(i$)<123  AND  LE  [6351] 
N( s$  )  <1 3  THEN  s$=s$+UPPER$(i$); LOCATE# 3, nl 
+n,i:PRINT#3,i$:n»n+1 

62220  IF  i$< >CHR$ (13)  THEN  62180  [986] 

62230  LOCATE# 3 , nl +n,i : PRINT# 3 , "  "  [1352] 

62240  RETURN  [555] 

62250  '  [117] 

62260  i$=UPPER$ ( INKEY$ ) : IF  i$=""  THEN  6226  [2109] 
0  ELSE  RETURN 

62270  1  [117) 

62280  '  *•**  Bildschirmausgabe  ****  [3080] 

62290  1  [117] 


Tips  & 


62300  CLS#4 :CLS#0 

62310  PRINT# 4, TAB(10)CHR$( 24) "VARDUMP  "CHR 
$(164)"  by  Dr.R.Nitsch  1 986"CHR$(24 ): PRINT 
#4, "Variable. .. .Typ","  wird  benutzt  in  d 
en  Zeilen" :PRINT#4, STRINGS ( 49, CHR$(1 54 ) ) ; 
62320  RETURN 
62330  * 

62340  '*••*  Break-Behandlung  **** 

62350  ' 

62360  PRINT#gnr:breakf lag=-1 : RETURN 
62370  *  ***•  Ende  Vardump  **** 

B  62280 

61790  IF  breakflag  THEN  61890 
61800  drkz=0:FOR  n=1  TO  nmax 


61810  PRINT#gnr, varnam$ (n) ; 

61820  nl =0 :FOR  i=1  TO  znr (ref 1 (n) , 0 ) 

61830  PRINT#gnr,USING"  #####"; znr( refl (n ) 
,i)+32768;:n1=n1+1 

61840  IF  n1=drksp  THEN  drkz=drkz+1 :GOSUB  6 
1 91 0:PRINT#gnr,TAB( 1 5 ) ; :n1  =0 
61850  NEXT  i 


61860  PRINT#gnr:drkz=drkz+1 :GOSUB  61910 

61870  IF  breakflag  THEN  61890 

61880  NEXT  n 

61890  RETURN 

61900  ' 

61910  IF  gnr=0  THEN  IF  drkz>17  THEN  drkz=0 
: PRINT#0 , STRINGS (49 ,CHR$ (210));: PRINT#0 , TA 
B(15)">>Taste  druecken<<" ; :GOSUB  62260:PRI 
NT#0 ,CHR$ ( 1 3 ) ; OHRS ( 20 ) ; 

61920  RETURN 
61930  ' 

61940  '•***  Druckerausgabe  **** 

61950  * 

61  960  CLS#1 : CLS#3 : PRINT# 3 , TAB ( 5 ) "Programmn 
ame" :GOSUB  621 40 : var$=s$ : PRINT#1 ,var$:PRIN 
T#1 

61970  CLS#3:PRINT#3, "Version  (z.B.  Datum)" 
:GOSUB  621 40 :typ$=s$: PRINT# 1 ,typ$:CLS#3 
61980  IF  breakflag  THEN  62120 
61990  CLS# 3: PRINT# 3, "Eingabedaten  ok?  (J/N 
) " ; :GOSUB  622 60: PRINT# 3 ,CHR$ ( 1 7 ) :IF  i$="N" 
THEN  61960 
62000  WIDTH  80 

62010  PRINT# 8 . SPACES ( 30 -LEN ( var$ ) / 2 )CHR$ ( 1 


Tricks 

[796  I 
[12001  ] 


1555] 

[117] 

[1157] 

[117] 

[1454  ] 

[1596] 

[746] 
[440] 
[1448] 
[734  ] 
[3859] 

[1961  ] 

[3751 

(1593] 

[746] 

[366] 

[5551 

[117] 

[11291  ) 


[555] 
[1171 
[861  ] 
[117] 
[4343] 


[6520] 

[748] 

[5982] 


[858] 

[5563] 


□□ 


Aber  für  gute  Programme  und  Tips  &  Tricks  umso  mehr! 


Für  den 
Programmhit 
des  Monats 

1  .OOO,— 


Und  für  den 
Top-Tip 
des  Monats 

500,— 


Das  sind  doch  gute  Argumente,  Ihr  Programm  auch 
einmal  zum  Mit  des  Monats  werden  zu  lassen. 

Bitte  richten  Sie  Ihre  Einsendungen  en: 

DMV  Daten  und  Medien  Verlagsgesellschaft  mbh  —  Fuldaer  Straße  6  —  3440  Eschwege 
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Das  Software-Experiment 

Teil  3: 


Von  Wölfen  und  Schafen 
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Simulationen  -  Nachbildungen  der 
Wirklichkeit  -  haben  sich  einen  festen 
Platz  unter  den  Standardanwendungen 
für  Computersysteme  erobert.  Sei  es 
bei  der  Ausbildung  von  Piloten  für  die 
Luft-  oder  Raumfahrt,  bei  wissen¬ 
schaftlichen  Forschungsprojekten  oder 
in  der  wirtschaftlichen  und  militäri¬ 
schen  Planung:  In  vielen  Bereichen 
sind  sie  überhaupt  nicht  mehr  wegzu¬ 
denken. 

Warum  bisher  keine  Computersimula¬ 
tion  die  verantwortlichen  Politiker  und 
Militärs  davon  überzeugen  konnte,  wie 
gefährlich  und  unsinnig  das  momen¬ 
tane  Wettrüsten  ist,  sei  allerdings  da¬ 
hingestellt  -  in  dieser  Folge  des 
Software-Experiments  werden  wir  uns 
mit  einem  anderen  Thema  beschäfti¬ 
gen,  das  ebenfalls  sehr  aktuell  ist.  Be¬ 
reits  in  der  letzten  Folge  wurde  mit  dem 
”Game  of  Life”  ein  Programm  vorge¬ 
stellt,  das  ansatzweise  ein  ökologisches 
System  simuliert;  und  diese  Idee  soll 
noch  etwas  weiter  verfolgt  werden. 


Bisher  haben  menschliche  Eingriffe 
in  die  außerordentlich  komplexe 
Dynamik  ökologischer  Systeme 
immer  wieder  zu  der  Erfahrung  ge¬ 


führt,  daß  die  Ergebnisse  oft  ganz  an¬ 
ders  aussehen,  als  es  eigentlich  ge¬ 
plant  war.  Insbesondere  die  langfristi¬ 
gen  Folgen  von  zunächst  sehr  erfolg¬ 
versprechenden  Maßnahmen  führen 
uns  vor  Augen,  daß  letztendlich  der 
Mensch  selbst  betroffen  ist,  wenn  er 
das  empfindliche  Gleichgewicht  der 
Natur  durch  unbedachte  Eingriffe 
zerstört. 

Der  Einsatz  von  chemischen  Mitteln 
verbessert  die  Emteerträge  -  so  sieht 
es  in  der  Tat  zunächst  aus.  Doch 
wenn  nach  einiger  Zeit  die  be¬ 
kämpften  Schädlinge  sich  als  resi¬ 
stent  erweisen,  ihre  natürlichen 
Feinde  dagegen  scharenweise  an  dem 
Gift  zugrunde  gehen  und  die  gesund¬ 
heitlichen  Folgen  der  Rückstände  in 
den  Nahrungsmitteln  für  den  Men¬ 
schen  nicht  mehr  zu  verantworten 
sind  -  was  dann? 

Die  Dynamik  ökologischer  Systeme 
wird  durch  eine  Vielzahl  ineinan- 
dergreifender  Regelkreise  und  sich 
überlagernder  Einflüsse  bestimmt. 
Es  ist  deshalb  kaum  möglich,  die  Fol¬ 
gen  von  Eingriffen  durch  einfache, 
kausale  ”Wenn-dann-Modelle”  zu 
erfassen  -  was  liegt  also  näher,  als 


sich  mit  Hilfe  von  Computersimulatio¬ 
nen  einen  Einblick  in  dieses  so 
wohlgeordnete  Chaos  zu  verschaf¬ 
fen?  Die  Geschwindigkeit  und  Spei¬ 
cherkapazität  moderner  Rechenan¬ 
lagen  erlaubt  es,  Entwicklungen,  die 
sich  in  der  Realität  über  Jahre  und 
Jahrzehnte  erstrecken,  in  wenigen  Se¬ 
kunden  ablaufen  zu  lassen  und  dabei 
durch  gezielte  Veränderung  der  Sy¬ 
stemparameter  eine  ganze  Palette 
von  Möglichkeiten  zu  erforschen. 
Doch  dabei  ist  Vorsicht  geboten:  Ein 
Abbild  der  Wirklichkeit  im  Speicher 
eines  Computers  ist  immer  eine  redu¬ 
zierte  Wirklichkeit.  So  wie  eine  Land¬ 
karte  zwar  verschiedene  Aspekte 
einer  Landschaft  wiedergeben  kann, 
aber  nie  die  Landschaft  als  Ganzes, 
so  kann  ein  Computermodell  nur 
eine  Auswahl  wichtiger  Faktoren  er¬ 
fassen  -  und  diese  Auswahl  muß  der 
Programmierer  treffen.  Deshalb 
sollte  man  die  Aussagekraft  von  Simu¬ 
lationen  nicht  überschätzen.  Sie  ge¬ 
ben  wie  Landkarten  einen  Überblick, 
aber  als  Propheten  taugen  sie  nicht. 
So  wird  ein  Computer,  der  die  Funktio¬ 
nen  eines  Kernreaktors  simuliert, 
zwar  zeigen  können,  auf  welche 
Weise  Störfälle  möglich  sind,  nicht 
aber,  daß  sie  unmöglich  sind! 
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Serie 


Mimmi 


Das  Wolf-Schaf-Gras-Modell 


Auch  viele  für  den  CPC  erhältliche 
Spiele  stellen  im  Prinzip  Simulatio¬ 
nen  dar,  Sportspiele  oder  das  Welt¬ 
raumabenteuer  "Elite”  wären  als  Bei¬ 
spiel  zu  nennen.  Doch  während  es  hier¬ 
bei  im  wesentlichen  auf  die  Qualität 
der  Grafik-  und  Soundeffekte  an¬ 
kommt,  werden  an  wissenschaftliche 
Simulationsprogramme  ganz  andere 
Anforderungen  gestellt.  Sie  sollen  mit 
möglichst  großer  Exaktheit  die  Wirk¬ 
lichkeit  quantitativ,  d.h.  in  Form 
von  Zahlenwerten  wiederspiegeln. 
Dieses  Material  stellt  für  den  For¬ 
scher  eine  geeignete  Basis  dar,  um 
neue  Erkenntnisse  zu  gewinnen  oder 
bestimmte  Theorien  zu  überprüfen  - 
doch  auf  den  Uneingeweihten  wirken 
lange  Zahlenkolonnen  oder  ver¬ 
schlungene  Bildschirmdiagramme 
im  allgemeinen  nicht  besonders 
aufschlußreich. 

Um  mit  solchen  Programmen  arbei¬ 
ten  zu  können,  sind  schon  recht 
solide  mathematische  Grundlagen 
erforderlich  (z.B.  Wachstumsfunktio¬ 
nen),  deren  Erörterung  den  Rahmen 
dieser  Serie  bei  weitem  sprengen 
würde.  Deshalb  werden  wir  als  Ein¬ 
führung  in  den  Themenbereich 
"Ökologie-Simulation”  ein  System 
behandeln,  das  zwar  keinen  An- 
snruch  auf  wissenschaftliche  Exakt¬ 
heit  stellt,  aber  trotzdem  eine  ganze 
Reihe  interessanter  Experimente  er¬ 
möglicht,  und  dabei  auch  etwas  fürs 
Auge  bietet:  Die  Zeitraffer-Darstel¬ 
lung  eines  künstlichen  kleinen  Le¬ 
bensraumes,  in  dem  das  Schicksal 
der  Individuen  nicht  nur  statistische 
Bedeutung  hat,  sondern  auch  einzeln 
beobachtet  werden  kann. 
Ausgangspunkt  ist  also  das  in  der 
letzten  Folge  besprochene  "Game  of 
Life”,  wobei  jedoch  einige  wesentli¬ 
che  Änderungen  vorgenommen  wer¬ 
den.  Zunächst  soll  jede  Zelle  des 
Spielfeldes  nicht  nur  zwei,  sondern 
vier  verschiedene  Zustände  anneh¬ 
men  können.  Um  die  Angelegenheit 
anschaulich  zu  gestalten,  werden  wir 
den  Zuständen,  repräsentiert  durch 
die  Zahlen  von  0...3,  sofort  eine 
konkrete  Bedeutung  geben: 

0  =  leer 

1  =  Gras 

2  =  Schaf 

3  =  Wolf 

Was  nun  während  des  Spielablaufs 
mit  dem  Inhalt  einer  Zelle  passiert, 
hängt  ähnlich  wie  beim  "Game  of 
Life"  von  der  unmittelbaren  Nachbar¬ 
schaft  ab;  als  Nachbarn  sollen  die 


vier  direkt  angrenzenden  Zellen 
(oben,  unten,  links  und  rechts)  gelten. 
Was  mit  einem  Schaf  passiert,  das 
sich  in  der  Nähe  eines  hungrigen 
Wolfes  befindet,  können  Sie  sich 
wahrscheinlich  schon  denken  -  doch 
zur  exakten  Formulierung  der  Spiel¬ 
regeln  kommen  wir  gleich.  Zunächst 
noch  ein  weiterer  wichtiger  Unter¬ 
schied  zum  "Game  of  Life”: 

Wie  bereits  in  der  letzten  Folge  er¬ 
wähnt,  ist  das  Modell  von  Conway 
streng  deterministisch  aufgebaut,  es 
gibt  dem  Zufall  keinen  Raum.  Über 
ein  echtes  ökologisches  System  kann 
man  jedoch  nur  statistische  Aussagen 
machen,  also  zum  Beispiel  über  die 
Häufigkeit  oder  Wahrscheinlichkeit 
bestimmter  Ereignisse.  Wann  und  wo 
genau  ein  Wolf  über  ein  Schaf  herfal¬ 
len  wird,  läßt  sich  nicht  berechnen, 
die  exakten  Koordinaten  der  Er¬ 
eignisse  in  Zeit  und  Raum  sind  im 
Unterschied  zum  "Game  of  Life"  voll¬ 
kommen  unbestimmt. 

Dieser  Tatsache  soll  in  unserem  Öko¬ 
logie-Experiment  Rechnung  getragen 
werden,  indem  die  Ereignisse  laut  Re¬ 
gelkatalog  nicht  mehr  simultan  auf 
dem  gesamten  Spielfeld  ausgeführt 
werden,  sondern  nacheinander,  wobei 
der  Rechner  den  Ort  des  Geschehens 
mit  Hilfe  der  RND-Funktion  jedes 
Mal  auswürfelt.  Daß  sich  ein  Schaf  in 
der  Nähe  eines  Wolfes  nicht  unbe¬ 
dingt  sicher  fühlen  kann,  ist  damit 
weiterhin  klar  -  nur  wann  es  gefres¬ 
sen  wird,  das  steht  in  den  Sternen. 


Fressen  und  gefressen  werden 

Hier  nun  also  die  Gesetze,  die  die 
Nachbarschaftsbeziehungen  in  unse¬ 
rem  WSG-Modell  regeln: 

1.  Eine  Leerzelle,  in  deren  Nachbar¬ 
schaft  sich  Gras  befindet,  wird  durch 
ein  neues  Grasbüschel  belegt. 

2.  Eine  mit  Gras  besetzte  Zelle  wird 
mit  einem  neuen  Schaf  belegt,  wenn 


sich  mindestens  ein  Schaf  in  der 
Umgebung  befindet. 

3.  Ein  Schaf  wird  durch  einen  neuen 
Wolf  ersetzt,  wenn  sich  mindestens 
ein  Wolf  in  der  Nachbarschaft  be¬ 
findet. 

4.  Hat  ein  Schaf  kein  Gras  in  seiner 
Umgebung,  so  wird  es  durch  eine 
Leerzelle  ersetzt. 

5.  Hat  ein  Wolf  kein  Schaf  als  Nach¬ 
bar,  so  wird  er  ebenfalls  durch  eine 
Leerzelle  ersetzt. 

6.  In  allen  anderen  Fällen  findet  keine 
Umwandlung  statt. 

In  den  Regeln  (2)  und  (3)  sind  also 
Fressen  und  Vermehrung  direkt  mit¬ 
einander  gekoppelt,  was  nicht  unbe¬ 
dingt  realistisch  ist,  aber  zu  sehr 
dynamischen  Abläufen  führt.  Die 
Regeln  (4)  und  (5)  liefern  Wölfe  und 
Schafe  dem  Hungertod  aus,  wenn  sie 
zu  gierig  werden. 

Der  CPC  kann  natürlich  mit  der 
sprachlichen  Formulierung  der  Ge¬ 
setze  nicht  viel  anfangen,  womit  die 
Frage  nach  einer  computergerechten 
Darstellung  des  Regelkatalogs  auf¬ 
taucht.  Die  Programmierung  einer 
Fallunterscheidung  mit  Hilfe  vieler 
IF...THEN-Statements  ist  zwar  na¬ 
heliegend,  wird  aber  schnell  unüber¬ 
sichtlich.  Auch  eine  nachträgliche 
Änderung  des  Katalogs  ist  auf  diese 
Weise  nur  sehr  umständlich  durch¬ 
zuführen. 

Für  unsere  Zwecke  ist  die  in  Bild  1 
dargestellte  Tabellenform  wesentlich 
besser  geeignet  Dieses  System  ist  je¬ 
denfalls  einfacher  zu  handhaben,  als 
es  auf  den  ersten  Blick  scheint:  Die 
ach  t  Spalten  au f  der  rechten  Seite  und 
die  mit  Fragezeichen  markierten  Zei¬ 
len  brauchen  uns  zunächst  nicht  inter¬ 
essieren,  da  sie  nur  für  ein  erweitertes 
System  mit  fünf  Zellenzuständen 
eine  Rolle  spielen;  und  die  Bedeu¬ 
tung  der  restlichen  Eintragungen  ist 
schnell  geklärt. 

Der  obere  Teil  der  Tabelle  stellt  alle 
möglichen  Nachbarschaftskonstella¬ 
tionen  dar,  die  in  dem  Spiel  auftau¬ 
chen  können.  Wer  sich  etwas  mit 
Maschinensprache  auskennt,  hat 
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Bild  1:  Der  Reqelkataloq  für  das  Wolf-Schaf-Gras-Modell 
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sicherlich  auf  den  ersten  Blick  festge¬ 
stellt,  daß  hier  die  Binärzahlen  von 
0...15  versammelt  sind,  und  zwar 
senkrecht  geschrieben.  Diese  Anord¬ 
nung  hilft  dem  Rechner,  nach  der 
Analyse  der  Nachbarschaft  die 
zuständige  Spalte  im  Regelkatalog  zu 
finden. 

Der  untere  Teil  der  Tabelle  enthält 
die  Umwandlungsanweisungen  für 
die  ausgewürfelte  Zelle.  Wenn  der 
Rechner  zum  Beispiel  ein  Schaf  er¬ 
wischt,  das  von  Gras  und  Wolf  umge¬ 
ben  ist,  so  muß  er  in  der  sechsten 
Spalte  von  links  nachschauen.  In  der 
für  Schafe  zuständigen  Zeile  2  in  der 
unteren  T abellenhälfte  findet  er  dann 
am  Kreuzungspunkt  eine  3,  das  arme 
Schaf  wird  also  durch  einen  neuen 
Wolf  ersetzt. 


Sie  können  sich  anhand  weiterer  Bei¬ 
spiele  davon  überzeugen,  daß  die  Ta¬ 
belleneintragungen  exakt  die  sechs 
Regeln  für  das  WSG-Modell  wieder¬ 
geben,  wenn  auch  in  recht  abstrakter 
Form.  Doch  mit  etwas  Übung  stellt 
die  Codierung  selbsterdachter  Ge¬ 
setze  kein  großes  Problem  dar. 

Für  ambitionierte  Programmierer 
wäre  es  vielleicht  eine  interessante 
Aufgabe,  eine  symbolische  "Öko- 
Sprache”  zu  erfinden  und  eine  Art 
Compiler  zu  schreiben,  der  daraus 
die  Tabellen  form  erzeugt. 


Das  Öko-Programm 


Das  Simulationsprogramm  ist  weit¬ 
gehend  modular  aufgebaut  und  mit 
zahlreichen  Kommentaren  versehen, 
um  auf  einfache  Weise  Änderungen 
zu  ermöglichen.  Achten  Sie  bitte 
beim  Abtippen  darauf,  daß  die 
Zeilennummern  unverändert  blei¬ 
ben  (kein  RENUM!),  damit  die  noch 
folgenden  Ergänzungen  integriert 
werden  können. 

Das  Hauptprogramm  zu  Beginn  hat 
nur  die  Aufgabe,  die  verschiedenen 
Module  in  der  richtigen  Reihenfolge 
aufzurufen.  Im  Initialisierungsteil  ab 
Zeile  1000  werden  die  verschiedenen 


Arrays  für  das  Spielfeld,  den  Regelka¬ 
talog  usw.  dimensioniert.  Die  eigent¬ 
liche  Definition  des  WSG-Modells 
erfolgt  ab  Zeile  2000.  Für  die  Darstel¬ 
lung  der  verschiedenen  Bewohner 
unseres  Öko-Systems  werden  Gra¬ 
fikzeichen  mit  doppelter  Höhe  er¬ 
zeugt,  die  ab  Zeile  2 1 50  mittels  einiger 
Steuerzeichen  zusammengesetzt  wer¬ 
den  -  sogar  die  dazugehörige  Farbe 
wird  mit  CHR$(15)  gleich  integriert. 
Damit  es  bei  der  Ausgabe  dieser 
Superzeichen  in  der  Nähe  des  rech¬ 
ten  Bildschirmrandes  keine  Pro¬ 
bleme  gibt,  täuscht  ein  POKE  im 
Initialisierungsteil  dem  CPC  die  Exi¬ 
stenz  von  40  Spalten  in  MODE  0  vor. 
Weitere  Informationen  zu  dieser  Pro- 
gammiertechnik  finden  Sie  in  Heft 
1/86  (”Der  gläserne  CPC”). 


Die  natürliche  Wolf/Schaf-Population 
kann  mittels  dieses  Software-Experimentes 
realistisch  simuliert  werden.  Wie  auf  unseren 
Screenshots  zu  sehen  ist,  haben  Wölfe  wie 
auch  Schafe  eine  recht  gleichmäßige 
Population. 


Auch  die  Regeltabelle  wird  in  diesem 
Programmteil  eingelesen;  sie  befin¬ 
det  sich  in  den  DATA-Zeilen  2300- 
2340.  Hier  können  Sie  beliebige  Än¬ 
derungen  vornehmen,  um  den  Ab¬ 
lauf  der  Ökologie-Experimente  zu 
beeinflussen.  Das  Unterprogramm 
ab  Zeile  3000  bereitet  den  Spielablauf 
vor,  indem  es  eine  Zufallsverteilung 
von  Wölfen,  Schafen  und  Gras  als 
Ausgangssituation  erzeugt.  Da  es  bei 
der  Erforschung  der  Nachbarschaft 
passieren  kann,  daß  das  Programm 
über  den  Rand  hinausschaut,  wird 
dem  Spielfeld  intern  noch  ein  Rah¬ 
men  verpaßt,  der  mit  der  Ziffer  9  be¬ 
legt  ist. 

Der  eigentliche  Spielablauf  findet  ab 
Zeile  4000  statt.  Zunächst  wird  auf 
einen  Tastendruck  als  Startsignal  ge¬ 
wartet,  und  danach  ein  Zeitintervall 
von  vier  Sekunden  (200  *  1/50  sec)  für 
die  regelmäßige  Bestandsaufnahme 
festgelegt,  die  vom  Unterprogamm  in 
Zeile  6000  vorgenommen  wird:  Es 
merkt  sich  die  jeweiligen  Populations¬ 
zahlen,  so  daß  sie  das  Modul  in  Zeile 
5000  als  Funktion  der  Zeit  grafisch 
darstellen  kann. 

Das  Unterprogramm  ab  Zeile  10000 
steht  den  anderen  Modulen  zur  Ver¬ 
fügung.  Es  führt  nicht  nur  die  Ände¬ 
rung  der  Zellinhalte  aus,  sondern 
bringt  dabei  auch  die  verschiedenen 


Zähler  auf  den  neuesten  Stand.  Als 
Parameter  werden  die  Koordinaten 
einer  Zelle  (x,y)  und  der  neue  Inhalt 
übergeben. 


Katastrophen  im  Computer 

Nach  dem  Programmstart,  der  Er¬ 
zeugung  der  Anfangsverteilung  und 
dem  Beginn  des  Spielablaufs  wird 
sich  ein  recht  munteres  Treiben  auf 
dem  Bildschirm  entfalten;  zusätzlich 
geben  noch  drei  Zähler  im  unteren 
Bildschirmbereich  über  die  aktuellen 
Populationszahlen  Auskunft.  Ein 
weiterer  Zähler  zeigt  laufend  die  An¬ 
zahl  der  vom  Rechner  ausgewürfel¬ 
ten  Ereignisse  an. 


Wie  sich  schon  nach  wenigen  Versu¬ 
chen  herausstellt,  ergeben  sich  voll¬ 
kommen  andersartige  Abläufe  als  beim 
”Game  of  Life”.  Während  das  in  der 
vorigen  Folge  beschriebene  Simula¬ 
tionsspiel  eine  Neigung  entwickelte, 
nach  einiger  Zeit  in  festen  Formen  zu 
stagnieren,  führt  die  zufallsgesteuerte 
Dynamik  des  WSG-Modells  leicht  zu 
"Katastrophen”,  bei  denen  eine  oder 
mehrere  Arten  vollkommen  ausster¬ 
ben. 

Zwar  sind  die  WSG- Gesetze  so  for¬ 
muliert,  daß  sie  extremen  Entwick¬ 
lungen  entgegenwirken:  Eine  starke 
Vermehrung  der  Schafe  zieht  zum 
Beispiel  auch  eine  entsprechende 
Vermehrung  der  Wölfe  und  Reduzie¬ 
rung  der  Nahrung  nach  sich.  Da  aber 
die  räumliche  Verteilung  der  Lebewe¬ 
sen  in  unserem  Spiel  eine  starke  Rolle 
spielt,  setzen  die  Regelmechanismen 
oft  erst  verzögert  ein,  und  es  entstehen 
mehr  oder  minder  starke  Schwan¬ 
kungen  der  Populationszahlen,  was 
sich  nach  dem  Abbruch  mit  <EN- 
TER>  sehr  schön  aus  den  gezeichne¬ 
ten  Kurven  ersehen  läßt. 
Insbesondere  bei  einem  beschränk¬ 
ten  Spielfeld  von  nur  200  Zellen 
kommt  es  leicht  zu  diesen  Fluktua¬ 
tionskatastrophen.  Wie  stark  in  der 
Tat  die  Elastizität  eines  ökologischen 
Systems  von  der  Größe  des  Lebens¬ 
raumes  abhängt,  soll  ein  weiteres 
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Experiment  zeigen.  Tippen  Sie  dazu 
das  Programm  "Erweiterung  1:  Auto¬ 
bahn"  ab  und  speichern  Sie  es  auf 
Kassette/Diskette,  wobei  CPC  464- 
Besitzer  mit  Floppy-Laufwerk  das 
ASCII-Format  benutzen  sollten 
(SAVE  "ERWl”,a),  um  den  Fehler  bei 
der  MERGE-Funktion  zu  umgehen. 
Laden  Sie  dann  das  Basisprogramm, 
und  integrieren  Sie  die  Erweiterung 
mit  MERGE  "ERWl”. 

Wie  der  Name  bereits  andeutet,  zer¬ 
legt  diese  Ergänzung  das  Spielfeld 
durch  eine  Autobahn  in  zwei  vonein¬ 
ander  isolierte  Teile.  Dazu  tritt  noch 
eine  neue  Regel  in  Kraft: 

7.  Schafe  und  Wölfe  in  der  Nachbar¬ 
schaft  der  Autobahn  werden  "über¬ 
fahren”,  also  durch  ein  Leerfeld 
ersetzt. 

Für  die  Darstellung  der  Autobahn 
wird  intern  die  Ziffer  4  als  fünfter  Zel¬ 
lenzustand  benutzt,  ein  Beispiel 
dafür,  daß  sich  mit  dieser  Codierung 
nicht  nur  "Lebewesen"  darstellen  las¬ 
sen.  Der  neue  Regelkatalog  für  das  er¬ 
weiterte  System  enthält  in  der  letzten 
Zeile  natürlich  nur  Vieren,  da  die 
Autobahn  nicht  umgewandelt  wer¬ 
den  kann.  Die  linken  acht  Spalten 
entsprechen  den  ursprünglichen 
WSG-Gesetzen,  die  rechten  acht 
Spalten  spiegeln  die  Änderungen 
wieder,  die  sich  in  direkter  Nähe  der 
Autobahn  ergeben. 

Wie  ein  paar  Versuche  zeigen,  ist 
zumindest  in  einem  der  beiden  Teil¬ 
bereiche  meist  schon  nach  kurzer 
Zeit  das  ökologische  Gleichgewicht 
zerstört.  Die  unmittelbare  Wirkung 
der  Autobahn  spielt  dabei  noch  nicht 
einmal  die  entscheidende  Rolle.  Viel 
schlimmer  wirkt  sich  die  herabge¬ 
setzte  Toleranzbreite  für  die  natürli¬ 
chen  Schwankungen  des  Systems 
aus.  Ein  kleines  System  ist  mit  einer 
Differenz  von  ±  20  Tieren  natürlich 
viel  eher  überfordert  als  ein  größerer 
Lebensraum  -  ein  statistischer  Effekt, 
der  bei  der  Landschaftsplanung 
leicht  übersehen  wird. 


Der  ökologische  Balanceakt 

Auf  der  anderen  Seite  stellt  sich  na¬ 
türlich  die  Frage,  welche  Maßnah¬ 
men  geeignet  sind,  um  solche  Ka¬ 
tastrophen  zu  verhindern.  Zwei  An¬ 
sätze  sollen  im  Folgenden  unter¬ 
sucht  werden: 

1.  Die  Verbesserung  der  Energiever¬ 
sorgung 

Unser  WSG-Modell  ist  ein  sogenann¬ 
tes  dissipatives  System,  das  zu  seiner 
Aufrechterhaltung  ständig  Energie 
umsetzt.  Diese  Energie  wird  durch 
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das  nachwachsende  Gras  repräsen¬ 
tiert  -  ohne  Graswuchs  haben  sowohl 
Schafe  als  auch  Wölfe  keine  Überle¬ 
benschance.  Eine  Verbesserung  der 
Energieversorgung  läßt  sich  sehr  ein¬ 
fach  erreichen,  indem  man  in  die  er¬ 
ste  DATA-Zeile  des  Regelkatalogs 
durchweg  Einsen  schreibt,  wonach 
die  Regel  (1)  lautet: 

-  Ein  Leerfeld  wird  auf  jeden  Fall  mit 
neuem  Gras  belegt. 

Damit  kann  das  Gras  also  an  jeder 
beliebigen  Stelle  neu  wachsen  (z.B. 
durch  Samenflug),  die  Nachbar¬ 
schaft  anderer  Pflanzen  ist  nicht 
mehr  notwendig.  Einige  Tests  zeigen 
schnell,  daß  auf  diese  Weise  in  der  Tat 
mehr  Stabilität  gegeben  ist;  das  Spiel 
läuft  im  Schnitt  wesentlich  länger 
"katastrophenfrei".  Allerdings  sind 
solche  idealen  Verhältnisse  nur  be¬ 
dingt  realistisch:  Ein  derart  unge¬ 
hemmtes  Pflanzenwachstum  wird  im 
allgemeinen  nur  zeitweise,  also  im 
Frühling  oder  Sommer  stattfinden. 

2)  Der  menschliche  Eingriff 
Eine  kritische  Situation  tritt  bei  dem 
WSG-Modell  oft  schon  kurz  nach  Be¬ 
ginn  auf:  Die  gute  Durchmischung 
der  Lebewesen  in  der  Startverteilung 
führt  zu  einem  starken  Anwachsen 
der  Wolfspopulation  und  einer  Redu¬ 
zierung  der  Vegetation,  wodurch 
prompt  die  Schafe  in  eine  Krise  kom¬ 
men.  Doch  Hilfe  naht:  Wir  werden 
mit  der  Erweiterung  2  ein  paar  Jäger 
ins  Feld  schicken,  um  den  Bestand  an 
Wölfen  knapp  zu  halten.  Gehen  Sie 
zu  diesem  Zweck  genau  wie  bei  der  er¬ 
sten  Erweiterung  vor:  Speichern  Sie 
die  Zeilen  auf  Kassette/Diskette  und 
integrieren  Sie  sie  mit  MERGE  in 
das  Hauptprogramm. 

Durch  die  neuen  DATA-Zeilen  wer¬ 
den  nun  folgende  Gesetze  eingeführt 

-  Eine  Leerzelle  in  der  Nachbarschaft 
eines  Wolfes  wird  mit  einem  Jäger 
belegt. 

-  Ein  Wolf,  der  einen  Jäger  als  Nach¬ 
barn  hat,  wird  durch  ein  Leerfeld 
ersetzt. 

-  Ein  Jäger,  in  dessen  Nachbarschaft 
sich  kein  Wolf  befindet,  verschwin¬ 
det  wieder. 

Die  Folgen  dieser  Ergänzung  sind  je¬ 
doch  sehr  drastisch:  In  den  meisten 
Fällen  werden  die  fleißigen  Jäger 
recht  schnell  ein  Aussterben  der 
Wölfe  bewirken,  was  zwar  den  Scha¬ 
fen  im  ersten  Moment  gut  tut,  aber 
nicht  dem  Gras:  Der  Bildschirm  wird 
regelrecht  kahlgefressen.  Nur  die  dar¬ 
aufhin  einsetzende  Hungerkatastro¬ 
phe  verhindert  mitunter  eine  totale 
Einöde. 

Wie  Sie  sehen,  ist  es  also  gar  nicht  so 
einfach,  ein  System  zu  gestalten,  daß 
sich  dynamisch  und  trotzdem  stabil 


verhält.  Wer  den  Ehrgeiz  entwickelt, 
durch  Herumbasteln  am  Regelka¬ 
talog  seine  Idealökologie  zu  ent¬ 
wickeln,  sollte  dabei  beachten,  daß 
sich  die  Tendenz  eines  Systems  im 
allgemeinen  erst  nach  mehreren 
Durchläufen  erkennen  läßt.  Durch 
den  starken  Einfluß  des  Zufalls  zeigt 
ein  einzelner  Spielablauf  immer  nur, 
was  passieren  kann,  aber  nicht,  was 
passieren  wird!  Aus  diesem  Grund  ist 
unser  Programm  zwar  recht  span¬ 
nend,  aber  in  der  vorliegenden  Form 
nicht  geeignet,  um  wissenschaftliche 
Theorien  zu  entwickeln:  Es  fehlt  die 
Reproduzierbarkeit  der  Versuchser¬ 
gebnisse. 


Software- Autor  gesucht 

Andererseits  bietet  unser  Öko- 
Experiment  jedoch  einen  Ansatz,  der 
bei  wissenschaftlichen  Programmen 
meist  nicht  gegeben  ist:  Es  läßt  sich  zu 
einem  recht  interessanten  Spielpro¬ 
gramm  ausbauen.  Bislang  bestand 
zwar  nur  die  Möglichkeit,  die  Regeln 
zu  definieren  und  sich  den  Ablauf 
passiv  anzuschauen,  doch  eine  dritte 
Erweiterung  soll  zeigen,  wie  eine 
direkte  Eingriffsmöglichkeit  pro¬ 
grammiert  werden  kann. 

Der  Programmteil  "Öko-Game”,  der 
genau  wie  die  vorherigen  Ergänzun¬ 
gen  mit  MERGE  eingebunden  wird, 
bringt  einen  Jäger  auf  das  Spielfeld, 
den  Sie  mit  Hilfe  der  Cursortasten  her- 
umwandem  lassen  können.  Bereits 
mit  Wölfen  oder  Schafen  besetzte 
Zellen  kann  er  natürlich  nicht  betre¬ 
ten,  und  da  er  weiterhin  das  Gras 
unter  seinen  Füßen  zertrampelt,  soll¬ 
ten  Sie  ihn  etwas  behutsam  durch  die 
Landschaft  bewegen. 

Auf  der  anderen  Seite  stehen  ihm  je¬ 
doch  auch  einige  Aktionsmöglichkei¬ 
ten  zur  Verfügung.  Wenn  Sie  die 
SPACE-Taste  gedrückt  halten  und 
zusätzlich  die  Cursortasten  betäti¬ 
gen,  wird  je  nach  Lage  der  Dinge  in 
der  entsprechenden  Richtung  ein 
Leerfeld  mit  Gras  bepflanzt  oder 
auch  ein  Wolf  oder  Schaf  abgeschos¬ 
sen.  Doch  nichts  ohne  Risiko:  Wie 
Sie  der  letzten  DATA-Zeile  entneh¬ 
men  können,  ist  der  Jäger  auch  als 
Futter  für  die  Wölfe  vorgesehen. 
Wenn  er  sich  in  der  Nachbarschaft 
eines  Wolfes  befindet  und  in  diesem 
Moment  zufällig  ausgewürfelt  wird, 
ist  es  um  ihn  geschehen! 

Auf  diese  Weise  können  Sie  also  regu¬ 
lierend  in  den  Ablauf  Ihrer  Ökologie- 
Experimente  eingreifen.  Für  einen 
echten  Spiele-Hit  fehlt  dem  Pro¬ 
gramm  zwar  noch  eine  spannungs¬ 
volle  Motivation,  doch  das  läßt  sich 
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mit  einigen  zusätzlichen  Ideen  än¬ 
dern.  Hier  ein  paar  Anregungen: 
-Benutzen  Sie  mehrere  Regel  kata- 
loge,  die  periodisch  oder  zufallsge¬ 
steuert  ausgetauscht  werden,  um 
Jahreszeiten  oder  Seuchen  zu  si¬ 
mulieren. 

-  Statten  Sieden  Jäger  mit  begrenzten 
Mitteln  aus  (Graspflanzen,  Muni¬ 
tion),  die  möglichst  sinnvoll  zur  Er¬ 
haltung  des  ökologischen  Gleich¬ 
gewichts  eingesetzt  werden  müssen. 

-  Gestalten  Sie  eine  Landschaft,  in 
der  die  Zellen  eine  unterschiedliche 
Lebensqualität  haben.  Zu  diesem 
Zweck  könnte  z.B.  ein  zusätzliches 
Array  lq(x,y)  definiert  werden,  das 
jeder  Zelle  des  Spielfeldes  einen 
Wert  zuweist,  der  auf  die  Überle¬ 
benschancen  der  Bewohner  Einfluß 
hat. 


-  Bevölkern  Sie  das  Spielfeld  mit 
weiteren  Pflanzen-  und  Tierarten. 
Der  letzte  Punkt  ist  allerdings 
programmtechnisch  nicht  leicht  in 
den  Griff  zu  kriegen,  da  die  Menge  m 
der  Eintragungen  in  der  Regeltabelle 
mit  der  Anzahl  z  der  möglichen  Zel¬ 
lenzustände  nach  der  Formel 
M  =  Z  *  2(Z‘° 

exponentiell  anwächst.  Hier  müßte 
man  also  eventuell  einen  geeignete¬ 
ren  Algorithmus  finden. 

Alles  in  allem  sollte  das  Ergebnis 
nicht  eines  der  herkömmlichen  Bal¬ 
lerspiele  sein,  sondern  auf  interes¬ 
sante  Weise  die  spielerische  Ausein¬ 
andersetzung  mit  dem  Thema 
’TJmweltdynamik”  fördern  -  eine 
sicherlich  anspruchsvolle  Program¬ 
mieraufgabe,  die  wir  an  unsere  Leser 
weitergeben  möchten.  Da  es  sich  um 


eine  vollkommen  neue  Spielidee 
handelt,  wären  wir  an  der  Veröffentli¬ 
chung  eines  gut  ausgearbeiteten 
Programmes  in  CPC  International 
oder  auf  Datenträger  sehr  interessiert 
-  natürlich  bei  entsprechendem 
Honorar.  Inwieweit  Sie  die  in  dieser 
Folge  vorgeschlagenen  Methoden 
weiter  verfolgen  oder  eigene  Ideen 
realisieren,  spielt  dabei  keine  Rolle  - 
das  Software-Experiment  soll  An¬ 
stöße  für  eigene  Projekte  geben  und 
zum  Mitmachen  auffordern,  und  wir 
hoffen,  es  ist  uns  diesmal  gelungen: 
Viel  Erfolg ! 

Literatur: 

Hartmut  Bossel:  Umweltdynamik, 
te-wi  Verlag 

Hans  Rauch:  Modelle  der  Wirklich¬ 
keit.  Heise  Verlag 

(M.  Uphoff) 
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2000 

2010 


SUB  System  definieren 


10  ■••••••••  oeko- 

Experiment  **»**•*•  (1198] 

20  '•••••*•••  Basisprogramm  **••••* 
30  ' 

40  GOSUB  1 000 :REM  Initialisierung 
50  GOSUB  2000 :REM  System  definieren 
60  GOSUB  3000 :REM  Startbelegung 
70  GOSUB  4000 :REM  Ablauf 
80  GOSUB  5000 :REM  Plotroutine 
90  END 
100  1 
110  * 


1000 

1010 

1020 

1030 

1040 

4,6: 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 


SUB  Initialisierung 


(14901 

[117] 


MODE  0 
BORDER  3 

INK  0,0:INK  1,9 : INK  2,25:INK  3,15:INK 
INK  5,13:INK  6,3 
DEFINT  a-z 

DIM  feld { 21 , 1 1 ) :REM  Spielfeld 

DIM  rk ( 1 5 , 4 ) : REM  Regelkatalog 

DIM  dx  ( 4  ) , dy ( 4 ) : REM  Richtungsoffset 

REM  oben,  unten,  links,  rechts: 

dy { 1 ) =-1 :dy(2)=1 :dx(3)=-1 :dx(4)=1 

DIM  z ( 4 ) : REM  Zaehler 

DIM  stat(10):REM  Status  Nachbarschaft 

DIM  gra$(4):REM  Grafikstrings 

DIM  anz (4,319) :REM  Merkfeld  f.  Plot 

POKE  &B28B, 40 :REM  fuer  CPC  464 

POKE  &B72C, 40 :REM  fuer  CPC  664/6128 

RETURN 


2020  leer=0:gras=1 :schaf =2:wolf =3:rand=9 
2030  REM  Zeichen  definieren 
2040  SYMBOL  AFTER  200 
2050  REM  Gras 

2060  SYMBOL  200,0,8,74,255,0,16,50,183 
2070  SYMBOL  201,255,0,16,20,92,125,255,255 
2080  REM  Schaf 

2090  SYMBOL  202,0,0,0,192,192,252,126,62 
2100  SYMBOL  203,62,54,34,34,34,0,0,0 
2110  REM  Wolf 

2120  SYMBOL  204,0,0,0,32,96,240,56,124 
2130  SYMBOL  205,63,62,54,34,34,34,0,0 
2140  ' 

2150  REM  Grafikstrings  zusammensetzen 
2160  gra$(leer)="  "+CHR$(8 )  +  CHR${1  0 )  +  "  " 
2170  gra$(gras )=CHR$( 1 5)+CHR${  1  )+CHR$(200) 
+CHR$ ( 8 ) +CHR$ ( 1 0 )+CHR$ (201  ) 

2180  gra$ ( schaf ) =CHR$ ( 1 5 )+CHR$ ( 2 )+CHR$ (202 
)  +CHR$ ( 8 ) +CHR$ (10) +CHR$ ( 203 ) 

2190  gra$ ( wolf ) =CHR$( 1 5 )+CHR$( 3 )+CHR$ ( 204 ) 
+CHR$ ( 8 ) +CHR$ ( 1 0 )+CHR$ { 205 ) 

2200  * 

2210  REM  Regelkatalog  einiesen 
2220  RESTORE  2300 
2230  FOR  zeile=0  TO  4 
2240  FOR  spalte=0  TO  15 
2250  READ  rk( spalte , zeile ) 


[117] 

(1  205  J 

[117] 

[1399] 

[1844  ] 

[1432  ] 

17571 

[1857] 

[1590  1 

[746] 

[2198  ] 

[1653  1 

[764  } 

(20391 

[1935] 

[1171 

[1372] 

[1824  ] 

[3298] 

(4203  ] 

13311  3 

[117] 
[1161  1 
[794  J 
[639] 
[13091 
[1208] 


[2425] 

[1053] 

12284] 

(23161 

2260 

2270 

2280 

2290 

NEXT  spalte 
NEXT  zeile 
RETURN 

I 

[4861 

[5581 

(5551 

[1171 

(16741 

(1101 

2300 

,0 

DATA  0 , 1 , 0 , 1 , 

0,1, 0,1, 

o 

o 

o 

o 

o 

o 

o 

110551 

[117] 

[117] 

2310 

,0 

DATA  1 , 1 , 2 , 2 , 

1,1, 2, 2, 

0,0, 0,0, 

0,0,0 

12078] 

[2837] 

2320 

,0 

DATA  0,2, 0,2, 

3, 3, 3, 3, 

o 

o 

o 

o 

0,0,0 

[1467] 

(1171 

[507] 

2330 

,0 

DATA  0,0, 3, 3, 

0,0, 3, 3, 

0,0, 0,0, 

0,0,0 

(1419 J 

11017] 
13183  ] 

[553] 

2340 

,0 

2350 

2360 

DATA  0,0, 0,0, 

i 

0,0, 0,0, 

0,0, 0,0, 

0,0,0 

[1923  J 

[117] 

[117] 

(13291 

[709] 

3000 

3010 

'•••*  SUB  Spielfeld, Startverteilung 

• 

(1196  ] 
[1171 

[2632]  3020  REM  Bildschirm  aufteilen  [3000] 

[1898]  3030  WINDOW#] ,1 ,20,21 ,25  [1415] 

[2060]  3040  PAPERffl ,6:CLS#1  (17931 

[934]  3050  '  M171 

12636]  3060  REM  Rand  vorbelegen  (12121 

[11751  3070  FOR  x=1  TO  20  [7531 

[1356]  3080  f eld(x,0 )=rand: feld(x, 1 1 ) =rand  [1361] 

[1674]  3090  NEXT  x  [356] 

[1946]  3100  FOR  y=1  TO  10  [1115] 

[555]  3110  feld(0,y)=rand:feld(21 ,y)=rand  [1127] 

[1171  3120  NEXT  y  [359] 
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Der  Data  Media 


COMPUTERCLUB 

Jetzt  gibt  es  eine  neuartige  Möglichkeit  zum  besonders  günstigen  Einkauf:  Den  Computerclub! 

SOFTWARE  -  HARDWARE  -  BÜCHER  -  PERIPHERIE  -  ZUBEHÖR 

für  die  Computersysteme 

...  Schneider  -  Commodore  -  Atari  -  MSX  ... 


Umsonst  ist  der  Tod...  aber  für  den  Jahresbeitrag  von  nur  60  -  DM  erhalten  Sie  als  Leistungen: 

-  die  Möglichkeit,  von  den  besonders  preiswerten  Einkaufsmöglichkeiten  des  Computerclubs  Gebrauch  zu  machen, 
so  oft  Sie  wollen;  entweder  durch  Bestellung  aus  den  Angeboten  des  Clubkataloges  oder  durch  direkten 
Einkauf  in  den  Club-Zentren. 

Die  Clubkarte  im  Scheckformat,  die  Sie  als  Clubmitglied  ausweist,  erhalten  Sie  nach  Zahlung  des  Jahresbei¬ 
trages. 

-  ein  Kaufzwang  oder  eine  bestimmte  Kaufverpflichtung  pro  Quartal  besteht  NIGHT!!  Sie  allein  bestimmen,  wie 
oft  Sie  von  den  Angeboten  Gebrauch  machen  wollen. 

-  pro  Quartal  senden  wir  Ihnen  den  umfangreichen  Clubkatalog  kostenlos  zu,  der  ständig  durch  zusätzliche 
Informationen  über  Neuerscheinungen  und  weitere  Sonderangebote  ergänzt  wird. 

-  Fachberatung  in  den  Club-Zentren  oder  über  den  Telefonservice  für  Clubmitglieder  über  die  Rufnummer 
0231/1 25074  und  1 25075,  in  der  Zeit  von  1 4  -  1 7  Uhr. 


DATA  MEDIA  Computerclub-Zentren  gibt  es  ab  1.  Mai  1986  in: 

1000  Berlin  44,  Emser  Str.  22 
4600  Dortmund,  Ruhrallee  55 

Geplant  sind  in  Kürze:  Hamburg,  Frankfurt,  München,  Stuttgart 

Wie  wird  man  Clubmitgiied? 

Die  Beitrittserklärung  kann  mittels  der  Postkarte  (im  Innenteil  dieser  Zeitschrift)  geschehen. 

Falls  Sie  vorher  zusätzliche  Informationen  und  den  Clubkatalog  wünschen,  bitte  anfordern  (DM  2,- für  Porto 
beifügen): 


Data  Media  Computerclub 

Data  Media  GmbH»  Ruhralle  5  5 , 4600  Dortmund 
Tel.!  (02  31)  12  50  71-3 


Bestellkarte  benutzen! 
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3130 

• 

(1  17  3 

3140 

REM  Zufallsverteilung  erzeugen 

(2552 ) 

3150 

RANDOMI ZE  TIME/PI 

(1610) 

3160 

FOR  x^1  TO  20 

(753) 

3170 

FOR  y=*1  TO  10 

(1115  3 

3180 

neu=INT(RND*4) 

(986  ) 

3190 

GOSUB  10000 

(101  4  ) 

3200 

NEXT  y 

(359) 

3210 

NEXT  x 

(356) 

3220 

RETURN 

(555) 

3230 

1 

(117  ) 

3240 

' 

(117) 

4000 

(826) 

4010 

(117) 

4020 

REM  Auf  Tastendruck  warten 

(1462  ) 

4030 

WHILE  INKEY$="":WEND 

(1607) 

4040 

REM  Zaehlintervall  setzen 

(201 6  ) 

4050 

zeit=Q 

(608) 

4060 

EVERY  200  GOSUB  6000 

(8741 

4070 

REM  Bis  jemand  ENTER  drueckt: 

( 1 35S  ) 

4080 

WHILE  a$  <  >CHR$ (13) 

(1953  1 

4090 

REM  Ereignisse  zaehlen 

(809) 

4100 

z  ( 0  )  =z  ( 0  )  +  1 

(900) 

4110 

PEN  5: LOCATE  16,25 

(842) 

4120 

PRINT  USING"  fttHrtttt" ;  z  (  0  ) ; 

(972) 

4130 

REM  Zelle  auswuerfeln 

(1003) 

4140 

X=INT(RND*20)+1 

(1  444  ) 

4150 

y= INT ( RND  * 1 0 )  + 1 

[14053 

41  60 

REM  Status  der  4  Nachbarzellen 

[2667  ) 

4170 

REM  ermitteln 

(776) 

4180 

FOR  art=1  TO  4 : sta t ( art ) =0 : NEXT 

(1912) 

4190 

FOR  ri=1  TO  4 

(1134) 

4200 

stat ( feld (x+dx(ri ) , y+dy (ri ) ) ) =1 

(18671 

4210 

NEXT  ri 

(399  ) 

4220 

REM  Regelkatalog  lesen 

(944) 

4230 

spalte=stat (1 )+2 *stat ( 2 ) +4 *stat ( 3 )+ 

(3930) 

8  *stat ( 4 ) 

4240 

zeile=feld(x,y) 

[752  ) 

4250 

neu=rk(spalte, zeile ) 

(748) 

4260 

REM  Umwandlung  ausfuehren 

[1  478  ) 

4270 

GOSUB  10000 

(101  4  ) 

4280 

a$=INKEY$ 

(278) 

4290 

WEND 

(390) 

4300 

zeit=REMAIN ( 0 ) 

(1252  ] 

4310 

RETURN 

(555) 

4320 

(117  ) 

4330 

' 

(117) 

5000 

'••*  SUB  Ablauf  grafisch  darstellen 

[2018  ) 

5010 

1 

(117) 

5020 

MODE  1 

(506) 

5030 

FOR  zeit=1  TO  319 

(1  569  J 

5040 

FOR  artsl  TO  3 

(638) 

5050 

MOVE  (zeit-1 ) *2 , anz ( art, zeit-1 ) *2 

(2754) 

5060 

DRAW  zeit *2, anz (art, zeit) *2, art 

(21  49  ) 

5070 

NEXT  art 

(581  1 

5080 

NEXT  zeit 

(425) 

5090 

RETURN 

(555) 

5100 

• 

(117) 

5110 

1 

(1173 

6000 

(1392  3 

6010 

1 

[117  1 

6020 

IF  zeit >31 9  THEN  RETURN 

[1162  3 

6030 

FOR  a=1  TO  4 

(784) 

6040 

anz (a, zeit )=z(a  ) 

(130  1 

6050 

NEXT  a 

(383  ) 

6060 

zeit=zeit+1 

(1945  ) 

6070 

RETURN 

(555  ) 

6080 

1 

(1171 

6090 

’ 

(1171 

10000  '****•  SUB  Aenderung  ausfuehren 

(2223  1 

10010  ' *****  und  Zaehler  aktualisieren 

(3024  J 

10020  ' 

(117  ) 

10030  alts=feld(x,y) 

(1057) 

10040  IF  alt=neu  THEN  RETURN 

(2040) 

10050  feld(x,y)=neu 

(901  1 

10060  LOCATE  x,y *2-1 : PRINT  gra$(neu) 

(834) 

10070  IF  alt  >0  THEN  z (alt ) =z (alt ) -1 : PEN  al  (4839) 
t : LOCATE  alt *4-3, 23: PRINT  USING"W' ; z ( alt 
) 

10080  IF  neu>0  THEN  z(neu) =z(neu)+1 :PEN  ne  (4841) 
u : LOCATE  neu *4-3, 23 : PRINT  USING"###" ; z { neu 

) 

10090  RETURN  (555) 


25  »•*•••  Ergaenzung  1: Autobahn  (1110) 

2025  bab=4  (195) 

2195  gra$ (bab) =CHR$ ( 15) +CHR$ ( 5 ) +CHR$ (218)+  (2550) 
CHR$ ( 8 ) +CHR$ (10) +CHR$ (216) 


2300 

2310 

,2 

DATA 

o 

o 

0,1, 0,1  , 

0, 1,0,1, 

0,1,0 

DATA 

1,1  ,2,2, 

1,1 ,2,2, 

1,1, 2, 2, 

1,1,2 

2320 

,3 

DATA 

0,2, 0,2, 

3, 3, 3, 3, 

0,0, 0,0, 

3,3,3 

2330 

,0 

DATA 

0,0, 3, 3, 

0,0, 3, 3, 

0,0, 0,0, 

0,0,0 

2340 

DATA 

4, 4, 4, 4, 

4, 4, 4, 4, 

4,4, 4,4, 

4,4,4 

,4 

321 1  ' 

3212  REM  Autobahn  bauen 

321 3  neu=bab 

3214  FOR  x=1  TO  20 

3215  FOR  y*5  TO  6 

3216  GOSUB  10000 

3217  NEXT  y 

3218  NEXT  X 


25  •***•*  Ergaenzung  2:  Jaeger 
2025  mann=4 

2135  REM  Mann 

2136  SYMBOL  206,0,24,60,24,24,8,56,24 

2137  SYMBOL  207,24,24,24,8,8,8,8,24 

21  95  gra$ ( mann ) =CHR$ (15) +CHR$ { 4 ) +CHR$ ( 206 ) 
+CHR$ ( 8 )+CHR$ ( 1 0 )+CHR$ ( 207 ) 


2300 

4 

DATA 

0,1, 0,1, 

4,4, 4,4, 

o 

o 

4,4,4 

2310 

,2 

DATA 

1,1  ,2,2, 

1,1, 2, 2, 

1,1, 2, 2, 

1,1,2 

2320 

,3 

DATA 

0,2, 0,2, 

3, 3, 3,3, 

0,2, 0,2, 

3,3,3 

2330 

,0 

DATA 

0,0, 3, 3, 

0,0, 3, 3, 

0,0, 0,0, 

0,0,0 

2340 

DATA 

0,0, 0,0, 

4, 4, 4, 4, 

0,0, 0,0, 

4,4,4 

,4 


25  Ergaenzung  3:  Oeko-Game 

2025  mann=4 

2135  REM  Mann 

2136  SYMBOL  206,0,24,60,24,24,8,56,24 

2137  SYMBOL  207,24,24,24,8,8,8,8,24 

21 95  gra$ (mann ) =CHR$ (15) +CHR$ ( 4 ) +CHR$ ( 206 ) 
+CHR$ ( 8 ) +CHR$ (10 )+CHR$ ( 207 ) 


2300 

,1 

2310 

,2 

DATA 

o 

o 

o 

o 

o 

o 

0,1,0 

DATA 

1,1, 2,2, 

1,1 ,2,2, 

1 ,1,2,2, 

1,1,2 

2320 

,3 

DATA 

0,2, 0,2, 

3, 3, 3, 3, 

04 

O 

04 

O 

3,3,3 

2330 

,3 

DATA 

0,0,3, 3, 

0,0, 3, 3, 

3, 3, 3, 3, 

3,3,3 

2340 

DATA 

4, 4, 4, 4, 

3, 3, 3, 3, 

4, 4, 4, 4, 

3,3,3 

,3 

3211  ' 

3212  REM  Mann  aufs  Spielfeld 

3213  xm=INT(RND*20 )+1 

3214  ym=INT(RND*10 )+1 

3215  x=xm:y=ym 

3216  neu=mann :GOSUB  10000 
4285  GOSUB  7000 

7000  '****•  SUB  Mann  bewegen  und  Aktion 
7010  ' 

7020  REM  Taste  gedrueckt  ? 

7030  IF  a$=""  THEN  RETURN 
7040  REM  Schon  gefressen  ? 

7050  IF  z(mann)=0  THEN  RETURN 
7060  REM  Richtung  bestimmen 
7070  ri=ÄSC(a$ ) -239 
7080  IF  ri <1  OR  ri>4  THEN  RETURN 
7090  x=xm+dx(ri  ):y=*ym+dy(ri ) 

7100  IF  INKEY ( 47 ) =0  THEN  7200 
7110  * 

7120  REM  Mann  bewegen 

7130  IF  feld(x,y) >gras  THEN  RETURN 

7140  neu=mann :GOSUB  10000 

7150  i=xm:xm=x:x=i 

7160  i=ym:ym=y :y=i 

7170  neu=leer: GOSUB  10000 

7180  RETURN 

7190  1 

7200  REM  Aktion  ausfuehren 
7210  i=*feld(x,y ) 

7220  IF  i=rand  OR  i=gras  THEN  RETURN 

7230  IF  i=leer  THEN  neu=gras 

7240  IF  i=schaf  OR  i=wolf  THEN  neu=leer 

7250  GOSUB  10000 

7260  RETURN 


(8781 

(2211  ) 

(1670) 

(1419) 

(1840) 

(1171 

(590) 

(372) 

(753) 

(587) 

(1014) 

(359) 

(356) 


(1795) 

(3741 

(6441 

(1618) 

(1645  ) 

(3828) 

(1588) 

(2211  ) 

(1350  ] 

(1419) 

(2334  ) 


(2117  ] 
(374) 
(644  ) 
(1618  ] 
(1645) 
(3828  J 

(878) 

[2211  1 

(1350) 

(1398) 

[1424  J 

(117) 

(1404  ) 

[1002  ) 

(983) 

(1070  J 

(9821 

(867) 

(1519) 

(117) 

(804  ) 

(1147) 

(1078  J 

(1608) 

(1179) 

(967) 

(1874  ) 

(2023) 

(551  ) 

1117) 

(961  ) 

(1161  1 

(982) 

(787) 

(379) 

(601  ) 

(555) 

1117) 

(1025) 

11004  ] 

(181  5) 

(917) 

(2388) 

(1014) 

(555) 
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Seit  es  das  „Golf  Construction  Set”  gibt,  kann  jeder  überall  Golf 
spielen.  Und  jeder  kann  jetzt  bei  der  1  Deutschen  Golf-Computer¬ 
meisterschaft  mitmachen.  Egal,  ob  er  das  Golfspiel  gekauft  hat 
oder  das  seines  Freundes  benutzt.  Aber  nur  der  Beste  gewinnt; 
die  Reise  zum  schönsten  englischen  Golfplatz.  Nähere  Infor¬ 
mationen  erhalten  Sie  beim  Fachhändler  und  bei  ariolasoft. 


Schicken  Sie  mir  bitte  sofort  die  Teilnahmebedingungen  und  ein 
Anmeldeformular  zu.  Und  bitte  auch  den  neuen  Katalog.  Danke. 


Name 

Straße 

PLZ  Ort 

— söft 

An;  ariolasoft,  Carl-Berlelsmann-Str.  161, 4830  Gütersloh. 

Von  Experten 
für  Experten. 

CPC  9/86 


Abenteuer 


Gamers 

Message 

Obgleich  viele  unserer  Leser  derzeit 
lieber  irgendwo  in  der  Sonne  liegen  und 
sich  rundum  knusprig  braun  braten  las¬ 
sen,  meldet  sich  hier  die  Gamers  Mes¬ 
sage  mit  Tips  und  Tricks  für  alle  dieje¬ 
nigen,  die  ein  heißes  Computerspiel¬ 
match  einer  Bräunungs-Saison  vorzie¬ 
hen. 


ANDROIDENSCHAFE  UND  DEREN 
BÄNDIGUNG 

Den  Anfang  machen  hier  die  zwan¬ 
zig  Codewörter  für  die  einzelnen  Le¬ 
vel  bei  "One  Man  and  his  Droid". 


1.  Kein  Name 

2.  EMPIRE 

3.  PREDATORY 

4.  RUMINATE 

5.  RYEGRASS 

6.  VACUUM 

7.  VAMPIRE 

8.  RAGOUT 

9.  GRAIN 

10.  AASVOGEL 

11.  BLIZZARD 

12.  CLOCHE 

13.  COLANTER 

14.  ECTOPLASM 

15.  ECOLOG Y 

16.  FEROCIOUS 

17.  FETLOCK 

18.  GOOSBERRY 

19.  GRAVITATE 

20.  UPANDAWAY 


Mit  diesen  Paßwörtern  kann  nun  je¬ 
dermann  in  jedem  Level  dieses  Spiels 
beginnen,  ohne  sich  vorher  durch  die 
davorliegenden  Stufen  zu  kämpfen. 


UNSTERBLICHE  SUCHER 

Wenn  Sie  sich  die  Mühe  machen  und 
anstelle  des  eigentlichen  Loaders  bei 
"Finders  Keepers”  das  nachfolgende 
kleine  Programm  zu  installieren,  ha¬ 
ben  Sie  keinen  Ärger  mehr  mit  zu 
wenig  Energie.  Die  steht  Ihnen  dann 
nämlich  unbegrenzt  zur  Verfügung. 
10  openout  ”d 
20  memory  &7ff 
30  load””,&800 
40  poke&20ce,0 
50  call&SOO 

Außerdem  noch  eine  kleine  Aufli¬ 
stung  der  Gegenstände,  die  mit  einem 
anderen  in  Verbindung  gebracht, 
einen  neuen  ergeben.  ”Pile  of  Mud"  +• 
"Spark  of  Life”  =  ”Mud  Monster”,  ”A 
Blacksmith"  +  ”A  broken  Sword”  = 
"Excalibur”,  ”A  empty  Bottle”  +  ”A 
Model  Boat”  =  ”A  Bottle  Ship",  ”A 
Lead  Bar”  +  "Sages  Stone”  =  "A 
Gold  Bar”.  Zu  guter  Letzt  können  Sie 
sich  aus  "Salpetre  +  "Sulphur”  + 
"Charcol”  +  "Magic  Flame”  Schieß¬ 
pulver  mixen,  und  damit  die  Katze 
vor  dem  Ausgang  wegsprengen.  Mit 
dem  Miniprogramm  und  den  Tips 
sollte  es  jetzt  eigentlich  jedermann 
schaffen,  dieses  Spiel  bis  zum  Ende 
zu  bringen. 

PROFESSOREN,  GOLDENE  ÄP¬ 
FEL  UND  ANDERES  ZEUG 

Für  ein  recht  neues  Spiel,  nämlich 
"Contraption”  von  Audiogenic,  ha¬ 
ben  wir  hier  ein  vergleichbares  klei¬ 
nes  Programm,  das  wie  das  von  "Fin¬ 
ders  Keepers”  gehandhabt  wird. 

10  openout” d” 

20  memory  1999 
30  load””, 15000 
40  call286500 
50  load””, 15700 
60  poke&5ec9,0 
70  poke&5eca,0 
80  poke&5ecb,0 
90  poke&5ecc,0 
100  call23700 


COM  ETEN  FINISH 

Als  kleine  Lockerungsübung  hier 
ganz  am  Rande  ein  Minitip  zu 
”Comet”. 

Um  ohne  große  Schlachten  in  das 
letzte  Bild  zu  gelangen,  brauchen  Sie 
lediglich  das  Spiel  zu  "pausep”,  und 
dann  gleichzeitig  die  Tasten  0  und  9 
niederzudrücken. 


DAS  PLUS  VON  SORCERY+ 

Eines  der  besten  CPC-Spiele  ist  nach 
wie  vor  Sorcery  und  das  "follow  up” 
Sorcery+.  Daß  es  in  diesem  Action- 
Adventure  so  manches  Rätsel  zu 
lösen  gilt,  versteht  sich  von  selbst.  Ste¬ 
fan  Achilles  ist  es  gelungen,  den 
üblen  NECROMANCER  zu  besie¬ 
gen.  Im  folgenden  verrät  er  nun  das 
”know  how”. 

Zuerst  sollte  man,  wenn  Sorcery-f  ge¬ 
löst  ist,  einen  ”GOBLET  OF  WINE” 
mitnehmen.  Es  erleichtert  Sorcery+ 
unheimlich.  Jetzt  betritt  man  die 
linke  obere  Tür  und  beginnt  mit  dem 
zweiten  Teil  des  Spieles.  Bei  "NEAR 
THE  GATEHOUSE"  kommt  man 
mit  dem  Goldenen  Schlüssel,  der  vor 
der  Tür  liegt,  herein.  Dann  ist  man 
"IN  THE  GATEHOUSE”,  geht  mit 
der  "STRANGELOOP  CASSETTE” 
in  die  linke  untere  Tür.  jetzt  befindet 
man  sich  "UNDER  THE  GA¬ 
TEHOUSE”,  befreit  das  Herz  mit  der 
"STRANGELOOP  CASSETTE", 
bringt  dieses  in  Sicherheit  und  holt 
den  Silbernen  Schlüssel.  Dann  geht 
man  wieder  heraus,  in  die  obere 
rechte  Tür  und  kommt  dann 
"UNDER  THE  BELFRY”  (mit  dem 
Kreuz  kann  man  einen  von  den  bei¬ 
den  Dämonen  töten).  Jetzt  geht  man 
in  die  linke  obere  Tür,  holt  sich  eine 
Glocke;  dann  muß  man  den  ganzen 
Weg  zurückgehen  bis  vor  das  Haus 
”NEAR  THE  GATEHOUSE”.  Man 
geht  durch  die  untere  linke  Tür  (Vor- 


Unsterblichkeit  und 
wissen,  wie ’s  geht  - 
ein  Traum  aller  Fin¬ 
ders  Keepers-Spieler, 
der  endlich  wahr 
wird.  Wie  Sie  aus 
der  Burg  Spriteland 
wieder  herauskom¬ 
men,  hat  für  Sie 
unsere  Spieletruppe 
ausgeknobelt. 
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Aktuelle  CPC  Buchhits 


BRUCKMANN  ENGLISCH 

GfflITS  SINGERS 

— 

mummm»  iMim 

. rrtTTTHüLt 

CPC  f 

BASIC 

CPC  ! 

Ml 

MASCHINENSPRACHEBUCH  : 

664/1)128 

BUCH 

TIPS  STRICKS  i 

PDP 

INTERN 

EIN  DATA  BECKER  BUCH 

CPC  6128 

EIN  DATA  BECKER  BUCH 

oiaiBmin'«HW  l 

EIN  DATA  BECKER  BUCH  i 

LrL 

EIN  DATA  BECKER  BUCH 

Ein  Muß  für  jeden,  der  sich  professionell 
mit  dem  CPC  6128  oder  dem  CPC  664 
beschäftigt.  Einführung  in  dos  System,  den 
Prozessor,  das  Gate  Array,  den  Video-Con¬ 
troller,  den  Schnittstellenbaustein  8255, 
den  Soundchip,  die  Schnittstellen.  Mit  Dis¬ 
assembler  und  ausführlichen  Kommenta¬ 
ren  zu  den  Routinen  von  Interpreter  und 
Betriebssystem.  Ein  Superbuch,  wie  olle 
Titel  der  INTERN-Reihe! 

CPC  6128/664  Intern 
456  Seiten,  DM  69,- 


Woilen  Sie  in  BASIC  wie  ein  Profi  program¬ 
mieren?  Dieses  Buch  macht  es  Ihnen 
leicht.  Themenbereiche:  Variablen,  Zahlen¬ 
systeme,  Bits  und  Bytes,  Tokens,  String¬ 
bearbeitung,  Sortierung,  Laufschrift,  selbst¬ 
definierte  Zeichen,  Windows,  Rundungen, 
Fehlerbearbeitung,  Kopierschutz,  Grafiken, 
Joystick,  Soundprogrammierung,  relative 
Dateien  u.v.m.  Viele  Beispielprogramme 
finden  Sie  in  den  entsprechenden  Kapiteln. 
Das  große  BASIC-Buch  zum  6128 
276  Selten,  DM  39,- 


Der  2.  Band  CPC  Tips  &  Tricks  ist  für  alle 
CPC  Besitzer  interessant.  Ob  sie  nun  einen 
464, 664  oder  6128  besitzen!  Aus  dem 
Inhalt:  Menuegenerator,  Maskengenerator, 
BASIC-Befehlserwelterungen,  Programmier¬ 
hilfen  wie  Dump,  BASIC-Zeile  von  BASIC 
aus  erzeugen,  wichtige  Systemroutinen  und 
deren  Nutzung,  Beschleunigung  von  Pro¬ 
grammen  u.v.m.  Wer  noch  mehr  über  sei¬ 
nen  CPC  wissen  will,  der  kommt  an  diesem 
Buch  nicht  vorbei! 

CPC  Tips  &  "Ricks  Band  II 
259  Seiten,  DM  39.- 


Erlernen  Sie  die  Maschinensprache  ihres 
CPC.  Von  den  Grundlagen  der  Programmie¬ 
rung  über  die  Arbeitsweise  des  Z80-Prozes- 
sors  und  einer  genauen  Beschreibung  sei¬ 
ner  Befehle  bis  zur  Benutzung  von  Sysfem- 
routinen  ist  alles  ausführlich  und  mit  vielen 
Beispielen  erklärt.  Alle  Hilfsroutinen,  wie 
Assembler,  Disassembler,  Monitor  und  Ein¬ 
zelschrittsimulator,  sind  als  Usfings  zum 
Abtippen  enthalten.  So  wird  der  Einstieg 
leicht  gemacht. 

Das  Maschinensprachebuch  zum  CPC 
333  Selten,  DM  39,- 


Einsteiger  und  Profis  erfahren  olles  über 
die  Arbeit  mit  der  Floppy.  Nützliche  Routi¬ 
nen,  wie  eine  komfortable  relative  Datei- 
verwalfung,  ein  Dlsk-Monilor  und  ein  Disk- 
Manager  sind  als  Listings  zum  Abtippen 
enthalten.  Eine  Fundgrube  verschiedener 
Programme  und  Hilfsroufinen  mit  ausführli¬ 
cher  Dokumentation  der  ROM-Einsprung- 
adressen.  Stark  erweiterte  und  überarbei¬ 
tete  Neuauflage. 

Das  groBe  Floppy-Buch  zum  CPC 
422  Seiten,  DM  49,- 


Endiich  CP/M  beherrschen!  Von  grundsätz¬ 
lichen  Erklärungen  zu  Speicherung  von 
Zahlen,  Schreibschutz  oder  ASCII,  Schnitt¬ 
stellen  und  Anwendung  von  CP/M-Hilfspro- 
grammen.  Für  Fortgeschrittene:  Fremde 
Diskettenformate  lesen.  Erstellen  von  Sub- 
mit-Datelen  u.v.m.  Dieses  Buch  berücksich¬ 
tigt  die  Versionen  CP/M  2,2  und  3.0  für 
Schneider  464, 664  und  6128. 

Das  CP/M-ttainingsbuch  zum  CPC 
260  Seiten,  DM  49,- 


DFÜ  für  Jedermann  mlf  dem  CPC  bietet 
eine  ausführliche  und  verständliche  Einfüh¬ 


rung  in  das  Gebiet  der  Datenfernübertra¬ 
gung:  was  ist  DFÜ,  BTX,  DATEX,  Maiibox. 
Alles  über  Modems  und  Koppler.  Begriffs¬ 
erklärung:  Originate,  Answer,  Haif-Duplex 
usw.  Eine  serielle  Schnittstelle  am  CPC,  RS 
232/V.24  simuliert,  Mailboxsoftware  - 
selbstgestrickt,  Postbestimmungen  u.v.m. 
Steigen  Sie  mit  diesem  Buch  in  die  Welt 
der  Datennetze  und  Datenfernübertragung 
ein.  DFÜ  für  Jedermann  zum  CPC 
303  Seiten,  DM  39,- 


Speziell  für  den  Hobbyelektroniker,  der 
mehr  aus  seinem  CPC  machen  möchte! 

Von  nützlichen  Tips  zur  Platinenherstellung 
über  Adreßdecodierung,  Adapterkarten  und 
Interfaces  bis  zu  EPROM-Programmier- 
boord  und  -Programmiernetzfeil  oder 
Moforsfeuerung  für  Gleich-  und  Schritt¬ 
schaltmotoren  werden  machbare  Erweite¬ 
rungen  ausführlich  und  praxisnah 
beschrieben.  Am  besten  gleich  anfangen! 
CPC  Hardware-Erweiterungen 
445  Selten,  DM  49,- 


LOGO 

BUCH 

CRC 

EIN  DAT»  BECKER  BUCH 


für  Einsteiger 


£  IN  DATA  BECKER  BUCH 


Dieses  Buch  führt  Sie  Schritt  für  Schrift  in 
die  Benutzung  des  Joyce  ein.  Diese  Einfüh¬ 
rung  geht  von  der  Installation  der  Geräte 
über  eine  Einleitung  in  LocoScripf  bis  hin 
zur  Programmerstellung  in  BASIC  und 
LOGO,  Auch  die  wichtigsten  Befehle  des 
Betriebssystems  CP/M  3.0  werden  leicht 
verständlich  beschrieben.  Der  ideale  Ein¬ 
stieg  mit  dem  Joyce! 

Joyce  für  Einsfeiger 
248  Seilen,  DM  29,- 


OuMn  StmAanburg 


Das  große 


Buch 


EIN  DATA  BECKER  BUCH 


Und  wo  informieren  sich  CPC- 
Anwender  über  News  & 
Trends,  neue  Software, 
neue  Computer  und  aktuelle 
Tips  &  Tricks?  In  der 


DATA  WELT  9/86 


Wo  denn  sonst! 
DATA  WELT9/B6 
jetzt  am  Kiosk. 


LOGO,  eine  Spracho,  die  immer  beliebter 
wird  für  alle  CPC-  und  JOYCE-Anwender. 

LOGO  ist  einfach  zu  erlernen,  aber  vielsei¬ 
tig  in  der  Programmierung.  Das  Buch 
befaßt  sich  unter  anderem  mit  folgenden 
Themen:  Rechnen  mit  LOGO,  Grafikpro¬ 
grammierung,  Wörter-  und  Listenverarbei- 
fung,  Prozeduren  und  Rekursionen,  Sortier¬ 
routinen,  Maskengenerafor,  Datenstruktu¬ 
ren  und  Künstliche  Intelligenz. 

Das  große  LOOO-Buch  zu  CPC  und  JOYCE 
ca.  300  Seifen,  DM  39,- 

DATA 

Merowingerstr.  30  •  4000  Düsseldorf  Tel.  (0211)  31 0010 


Das  Superbuch  für  Jeden  Joyce-Anwender. 
Alles  über  die  Textverorbeifung  LocoScript 
und  über  das  Betriebssystem  CP/M;  Bedie¬ 
nung,  Anwendung  und  Lösungen  für 
dBase,  Mulflplan  und  Wordstar;  BASIC- 
Routinen  wie  Menü-  und  Maskengenerafor 
und  rekursive  Grafikprogrammierung 
LOGO. 

Das  große  JOYCE-Buch 
Hardcover.  424  Seiten,  DM  59.- 
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Der  absolute  CPC-Hit  ist  noch  nicht  vergessen.  Sorcery+,  die  Auseinandersetzung  mit  dem  bösesten  und  gemeinsten  aller  fiesen  Zauberer  steht 
bevor.  Der  Necromancer  erwartet  Sie.  Was  dieser  aber  nicht  weiß.  Sie  kommen  nicht  mis  leeren  Händen.  Denn  wir  verraten  Ihnen,  wie  er  zu 
besiegen  ist. 


sicht  vor  dem  Schlamm)  und  holt  sich 
mit  der  Glocke  die  "COPY  OF 
AMSTRAD  USER”.  Dann  geht  man 
zurück  und  holt  sich  die  ”GLASS 
BOTTLE”  und  kehrt  zurück,  öffnet  die 
Schlammwand.  Danach  wird  der  Sil¬ 
berne  Schlüssel  wieder  geholt,  mit 
ihm  geht  man  durch  die  hinter  der 
Schlammwand  befindliche  Tür.  Dort 
kann  man  erst  einmal  wieder  neue 
Energie  tanken  (zieht  niemals  ab). 
Jetzt  holt  man  sich  einen  Stock 
"WOODEN  CLUB”  und  geht  durch 
eine  der  drei  unteren  linken  Türen 
(mehrmals  versuchen,  Tür  klemmt). 

Nun  ist  man  "ON  THE  BRIDGE”. 
Mit  dem  Stock  können  Sie  nun  die 
Schlammwand  öffnen.  Danach  holt 
man  sich  einen  weiteren  Stock  und 
geht  in  die  linke  Tür  (Vorsicht,  der 
Steg  ist  auf  der  anderen  Seite  gebro¬ 
chen).  Mit  dem  Stock  berührt  man  die 
Pflanze  und  schon  öffnet  sich  die 
Tür.  In  dem  nächsten  Bild  sollte  man 
ilicht  auftanken  (zieht  immer  ab). 
Jetzt  ist  es  an  der  Zeit,  das  Herz  und 
die  Copy  of  Amstrad-User  nachzuho¬ 
len.  In  diesem  Bild  ”NEAR  THE 
HIDEOUT”  können  Sie  beide  Teile 
liegen  lassen  und  fünfmal  durch  die 
linke  obere  Tür  gehen.  Dabei  besor¬ 
gen  Sie  sich  einen  Silbernen  Schlüs¬ 
sel.  Dann  müßten  Sie  bei  ”NEAR 
THE  HIDEOUT”  angekommen  sein 
und  zweimal  durch  die  linke  untere 
Tür  gehen.  Jetzt  sind  Sie  ”AT  THE 
HIDEOUT  ENTRANCE”,  gehen 
durch  die  rechte  Tür  ”NEAR  THE 
NECROMANCER”  und  nehmen  die 
zwei  Herzen. 

Dann  gehen  Sie  wieder  nach  rechts 
”THE  MAIN  HALL”  und  drücken  den 
Feuerknopf.  Jetzt  holen  Sie  das  dritte 
Herz  und  den  ”COPY  OF  AMS¬ 


TRAD-USER”  hierhin.  Mit  dem 
"COPY  OF  AMSTRAD-USER”  geht 
man  ”AT  THE  HIDEOUT  ENT¬ 
RANCE"  durch  die  Schlammwand 
(läßt  sich  nur  mit  GLASS  BOTTLE 
öffnen).  Dann  sind  Sie  im  "DESER- 
TED  CELLAR”  und  gehen  durch  die 
linke  Tür  (können  vorher  auftanken). 
Nun  befindet  man  sich  ”JUST  IN 
TIME”  und  holt  sich  "Roland".  Dann 
verläßt  man  den  Raum,  geht  in 
”DESERTED  CELLAR"  in  die 
rechte  untere  Tür,  wo  man  Roland 
per  Feuerknopf  ins  Wasser  wirft  und 
ein  viertes  und  letztes  Herz  erhält. 
Damit  geht  man  wieder  zur  "MAIN 
HALL”  und  SorceryT  wäre  damit 
gelöst. 

Z-Z-Z-ZORRO 

Wer  würde  Zorro  nicht  gerne  dabei 
helfen,  seine  schöne  Senorita  aus  den 
Klauen  des  üblen  Oberst  Garcia  zu 
befreien. 

Für  das  Vorgehen  in  diesem  Spiel 
hier  einige  nützliche  Tips. 

Im  ersten  Bild  sammeln  Sie  das  Ta¬ 
schentuch,  das  die  Senorita  fallen 
läßt,  ein.  Danach  muß  man  in  den 
Brunnen  steigen  und  von  dort  über 
den  unterirdischen  See  ins  nächste 
Bild  springen.  Dazu  benutzt  man  die 
auf  dem  Wasser  treibenden  Bälle.  Im 
folgenden  Bild  befinden  sich  einige 
Lifts,  an  denen  Sie  vorbei  auf  den 
Boden  des  Bildes  gelangen  müssen. 
Von  dort  aus  weiter  zum  nächsten 
Screen.  Auch  in  diesem  Bild  wieder 
hinunter  bis  auf  den  Boden  und  von 
dort  aus  nach  rechts.  Sie  finden  einen 
kleinen  Baum  in  einem  Blumentopf, 
diesen  sammeln  Sie  ein  und  kehren 
zu  dem  Bild  mit  den  Lifts  zurück. 
Klettern  Sie  die  Leitern  hoch,  schie¬ 
ben  Sie  den  runden  Felsblock  auf  den 
Lift,  steigen  Sie  nun  zu  dem  Felsblock 


auf  den  Lift  und  legen  dort  den  Baum 
ab.  Der  Lift  wird  ein  weiteres  Stück 
nach  unten  sinken. 

Sie  werden  dann  eine  offene  Tür  fin¬ 
den,  diese  ist  im  späteren  Verlauf  des 
Spieles  hilfreich.  Kehren  Sie  nun 
zurück  in  das  Brunnenbild,  und  von 
dort  aus  zwei  Screens  nach  rechts. 
Dort  finden  Sie  einen  Raum  mit 
einem  Schlüssel,  einer  Flasche  und 
einem  Sofa.  Sie  nehmen  den  Schlüs¬ 
sel,  springen  auf  das  Sofa,  federn 
einen  Moment  darauf  herum,  bis  Sie 
hoch  genug  fliegen,  und  hüpfen  von 
dort  aus  nach  rechts.  Klettern  Sie  bis 
zum  oberen  Rand  und  kehren  zurück 
nach  rechts.  Mit  dem  Schlüssel  kom¬ 
men  Sie  nun  durch  die  schwarze  Tür. 
Die  in  diesem  Raum  befindliche  Fla¬ 
sche  sollte  mitgenommen  werden. 
Nun  begeben  Sie  sich  auf  den  Boden 
des  Bildes  und  nach  links;  dort  sitzt 
ein  Mann  an  der  Bar.  Wenn  Sie  jetzt 
auf  den  Feuerknopf  drücken,  überge¬ 
ben  Sie  ihm  die  Flasche;  dadurch 
wird  er  betrunken. 

Versuchen  Sie  nun  mit  ' Hilfe  des 
Mannes,  die  Leiter  auf  der  linken 
Seite  des  Bildes  zu  erreichen.  Aber 
Vorsicht!  Am  Ende  der  Leiter  erwar¬ 
tet  Sie  bereits  eine  Wache,  mit  der  Sie 
kämpfen  müssen.  Zwingen  Sie  die 
Wache  über  die  Balustrade.  Beim  Her¬ 
unterfallen  wird  er  auf  den  Candela- 
ber  fallen  und  diesen  mit  sich  herun¬ 
terziehen.  Dadurch  wird  im  Boden 
eine  Öffnung  sichtbar,  durch  die  Sie 
in  den  Raum  mit  dem  runden  Fels¬ 
block  gelangen. 

HILFEN  FÜR  HAARFÜSSIGE 
HOBBITS 

”THE  HOBBIT”  ist  auf  dem  Aben- 
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Abenteuer . 


teuersektor  ein  richtiger  Oldtimer,  al¬ 
lerdings  einer,  an  dem  noch  so  man¬ 
cher  Kopf  heiß  läuft.  Um  passionier¬ 
ten  Abenteurern  durchwachte  Näch¬ 
te  zu  ersparen,  hier  die  komplette 
Lösung.  In  diesem  Zusammenhang 
noch  der  Hinweis  auf  die  interaktiven 
Charaktere.  Diese  machen  es  notwen¬ 
dig,  manche  Befehle  öfter  zu  wieder¬ 
holen.  Wie  bei  vorangegangenen 
Komplettlösungen  ist  auch  diese  wie¬ 
der  auf  den  Kopf  gestellt, 
open  ehest  -  north  -  north  -  wait  (day 
dawns)  -  south  -  get  key  north  - 
unlock  door-  open  door-  enter  cave- 
get  sword  -  get  rope  -  south  -  south  - 
say  to  elrond  "read  map”  -  east  -  east 
wait  (bis  Goblins  Sie  gefangen 
nimmt)  -  dig  sand  -  smash  trap  door 
(ein  paarmal)  -  say  to  Gandalf 
(Thorin)  "open  the  window”  - 
..."carry  me”  -  ...”go  west”  -  ...”drop 
me”  -  Southwest  -  down  -  north  - 
southeast  -  east  -  take  ring  -  wear  ring 

-  ZWISCHENDURCH  IMMER 
"WEAR  RING”  -  north  -  Southwest  - 
northwest  -  north  -  down  -  south  - 
west  -  east  -  open  door  -  up  -  east  - 
east  -  north  -  east  -  east  -  east  -  throw 
rope  across  -  pull  rope  -  clib  into  boat 

-  climb  out  -  east  -  smash  web  -  north- 
east  -  north  -  examine  magic  door  - 
northeast  -  south  -  get  red  key  -  open 
barrel  -  clib  into  barrel  -  close  barrel  - 
east  -  say  to  bard  ”go  north”  -  north 
north  -  say  to  bard  ”up”  -  ..."shoot 
dragon”  take  treasure  -  south  -  south 

-  south  -  down  -  south  -  south  wait  - 
unlock  red  door  -  open  red  door  -  go 
red  door  -  north  wear  ring  -  examine 
magic  door  -  wait  -  west  -  west  -  west  - 
west  -  Southwest  -  west  -  west  -  west  - 
west  -  Southwest  -  go  -  drop  treasure 
in  ehest 

Wenn  etwas  nicht  gleich  gelingt,  z.B. 
"smash  trap  door”,  ist  eine  öftere  Ein¬ 


gabe  nötig,  und  alle  vier-  bis  fünfmal 
"wear  ring”. 

HISTORISCHE  BAUDENKMÄLER 

Daß  wir  seit  einiger  Zeit  auch 
Software  unter  dem  Label  ”Die  gol¬ 
dene  7”  herausbringen,  hat  sich  si¬ 
cherlich  schon  herumgesprochen. 

In  dieser  Sammlung  von  Spielen  sind 
auch  Adventures  enthalten.  "Die  alte 
Burg"  ist  eines  davon.  Die  trickreiche 
Lösung  wird  hier  ans  Licht  gebracht. 
Osten  -  Osten  -  Osten  -  Osten  - 
Süden  -  Süden  -  Westen  -  Westen  - 
nimm  Pulver  -  Osten  -  Osten  -  Osten 

-  Süden  -  Westen  -  zünde  Pulver  - 
Süden  -  Osten  -  Osten  -  Osten  - 
untersuche  Kamin  -  nimm  Streich¬ 
hölzer  -  Westen  -  Westen  -  Westen  - 
Süden  -  Osten  -  oben  -  Norden  - 
Westen  -  nimm  Kerze  -  Osten  - 
Süden  -  unten  -  zünde  Kerze  -  We¬ 
sten  -  unten  -  Norden  -  Norden  - 
Norden  -  Norden  -  öffne  Sarg  - 
untersuche  Sarg  -  untersuche  Leiche 

-  nimm  Schlüsselbund  -  Süden  - 
Osten  -  Norden  -  Westen  -  Süden  - 
Süden  -  oben  -  Osten  -  oben  -  Süden 

-  Süden  -  lege  Kerze  -  nimm  Axt  - 
Norden  -  Norden  -  Norden  -  Norden 

-  Norden  -  benutze  Schlüsselbund  - 
öffne  Tür  -  oben  -  öffne  Truhe  - 
untersuche  Truhe 

PRAKTISCHE  AMNESIE 

"Mindshadow”  ist  eines  der  interes¬ 
santesten  und  wohldurchdachtesten 
Abenteuerspiele  überhaupt.  Logik 
und  Kombinationsgabe  werden  hier 
in  besonderem  Maße  gebraucht.  Da 
es  auch  keine  Zauberer,  Hexen  oder 
ähnliches  übernatürliches  Volk  gibt, 
ist  alles,  was  in  diesem  Spiel  vor¬ 
kommt,  nach  den  uns  allen  bekann¬ 
ten  Naturgesetzen  berechenbar. 


Trotzdem,  ein  harter  Brocken,  der 
einiges  an  Hirnschmalz  verbraucht. 
Zum  Mogeln  und  für  andere  sinn¬ 
volle  Anwendungen,  der  komplette 
Lösungsweg. 

TEIL  A  -  AUF  DER  INSEL 

get  shell  -  north  -  go  hut  -  get  straw  - 
east  -  east  -  get  Steel  -  east  -  get  vine  * 
west  -  west  -  south  -  east  -  trop  shell, 
straw,  Steel  -  tie  vine  to  rock  -  down  - 
west  -  dig  -  get  map  -  get  stone  -  east  - 
up  -  get  all  -  west  -  north  -  examine 
map  -  north  -  north  -  east  -  north  - 
east  -  east  -  south  -  south  get  rum  - 
west  -  north  -  north  -  west  -  west  - 
south  -  west  -  south  -  south  -  south  - 
bang  Steel  with  rock  -  give  rum  to 
captain 

AUF  DEM  PIRATENSCHIFF 
north  -  north  -  west  -  west  -  south  - 
south  -  examine  boat  -  get  canvas  - 
south  -  south  -  east  -  east  -  north  - 
north  -  north  -  west  -  south  -  kick 
man  -  south  -  get  cleaver  -  north  - 
north  -  east  -  south  -  south  -  south  - 
west  -  cut  chain  with  cleaver  -  east  - 
north  -  north  -  east  -  east 

TEIL  B  -  IN  EUROPA 

drop  rock,  map,  Steel,  cleaver  -  east  - 
east  -  east  -  south  -  search  man  -  get 
hat  -  north  -  west  -  north  -  east  -  give 
hut  -  examine  drink  -  follow  man  - 
remember  tycoon  -  south  -  west  -  get 
hut  -  west  -  south  -  west  -  south  -  buy 
pole  -  north  -  west  -  fish  junk  -  look 
paper  -  remember  areman  -  drop  pa- 
per  -  north  -  bribe  man  -  south  -  east 

-  north  -  north  -  east  -  chandralt  - 
buy  ticket  -  west  -  south  -  south  -  west 

-  north  -  north  -  go  plane  -  north  - 
drop  ticket  -  north  -  north  -  go  hotel  - 
up  -  north  -  west  -  duck  -  get  all  -  exa¬ 
mine  parchment  -  east  -  south  -  down 


Nicht  nur  für  Actionspiele,  sondern  auch  für  die  klassischen  Adventures  Hobbit  und  Mindshadow  haben  wir  interessantes  Material  zusammen¬ 
getragen.  Unter  Zuhilfenahme  dieser  Tips  sollte  es  jedem  möglich  sein,  diese  Adventures  zu  meistern. 


9  ’86  CRC  137 


. Abenteuer . 


1 1  <  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■■ 1 1 1 


immmiHiMiiimmiiiim  iiiih 


HIN  I  I  II 


iiMimiiiimiiiiniiiiiiiMiimiii 


Monty  on  the  Run  und  3D-Slar  Strike  sind  zwar  im  Grunde  genommen  zwei  total  verschiedene  Programme,  aber  beide  haben  eines  gemeinsam. 
Mittels  eines  einfachen  Tricks  lassen  sich  beide  Programme  in  einen  speziellen  Test-Mode  versetzen.  Wie  Sie  in  diesen  sogenannten  Cheat-Mode 
gelangen,  steht  in  dieser  Gamers  Message. 


-  east  -  east  -  east  -  south  -  south  - 
east  -  dig  -  get  all  -  drop  parchment 
and  shall  -  examine  leallet  -  west  - 
north  -  north  -  west  -  west  -  south  - 
west  -  an  11649  -  examine  box  -  get 
gun  -  drop  box  and  leaflet  -  east  - 
south  -  west  -  look  hat  -  booth  1 1  - 
drop  hat  -  search  man  -  examine  id  - 
remember  bob  -  drop  id  -  examine 
note  -  remember  jared  -  drop  note  - 
east  -  east  -  north  -  north  -  west  -  up  - 
north  -  north  -  north  -  north  -  east  - 
fire  man  -  get  message  -  read  message 

-  remember  William 

Damit  hätten  Sie  dann  ”Mind- 
shadow”  gelöst. 

POKE’O’MANIA 

Zwar  sind  nicht  alle  Tips,  die  hier  ge¬ 
geben  werden,  echte  Pokes,  allerdings 
sind  sie  in  ihrer  Wirkung  sehr  ähn¬ 
lich.  Sie  erleichtern  das  Spielen  unge¬ 
mein.  Wenn  Sie  bei  "Monty  on  the 
run”  gefragt  werden,  wie  Sie  heißen, 
tippen  Sie  ein:  I  want  to  cheat.  Mit  al¬ 
len  Leerzeichen.  Danach  wählen  Sie 
Freedom-Kit.  Aus  diesem  Sortiment 


benötigen  Sie  Nummer  2,4,12,13.14, 
um  das  Spiel  zu  beenden. 

Wenn  Sie  bei  "Starstrike"  dieselbe 
Prozedur  mit  "1  wanna  cheat”  vollzie¬ 
hen,  haben  Sie  unendliche  Shields. 
Damit  möchte  ich  mich  für  diesen 
Monat  verabschieden  und  noch  allen 
einen  schönen  Sommer  wünschen. 

(HS) 

Crafton  &  Xunx 
Hints  &  Tips 

Eines  der  interessantesten  Programme, 
die  uns  in  der  letzten  Zeit  erreichten,  ist 
das  französische  Spiel  ”Crafton  & 
Xunx”,  oder,  wie  es  in  England  heißt, 
”Get  Dexter”.  Bei  diesem  brillianten 
Arcade-Adventure  werden  sicherlich 
einige  unserer  Leser  das  eine  oder  an¬ 
dere  Problem  haben.  Nach  einer  ausge¬ 
dehnten  Nachtschicht,  die  ich  vor  die¬ 
sem  Spiel  verbrachte,  ist  es  mir  gelun¬ 
gen,  einige  interessante  Informationen 
dazu  zusammenzutragen. 


Eine  verwirrende 
Vielfalt  von  Gegen¬ 
spielern  stellen  sich 
dem  abenteuerlusti¬ 
gen  Spieler  entge¬ 
gen,  wenn  er  ver¬ 
sucht,  die  geheimen 
Codes  der  in  der 
Computeranlage  le¬ 
benden  Wissen¬ 
schaftler  in  Erfah¬ 
rung  zu  bringen.  Zu 
seiner  Unterstützung 
liegt  eine  Vielzahl 
unterschiedlicher 
Gegenstände  herum. 


Am  besten  beginnen  wir  mit  allge¬ 
meinen  Infos.  Bedauerlicherweise  ist 
mir  bei  meiner  Review'  ein  kleiner 
Fehler  unterlaufen.  Die  Wissen¬ 
schaftler,  die  die  einzelnen  Codes 
wissen,  müssen  nicht  bestochen,  son¬ 
dern  mittels  einer  Injektion  betäubt 
werden.  Wenn  dies  geschehen  ist.  ver¬ 
raten  sie  die  Codes. 

Bitte  beachten  Sie,  daß  diese  Gegen¬ 
stände  jeweils  nur  bei  bestimmten 
Robotern  wirken. 

Die  Punks  können  mittels  der  grünen 
Flaschen  außer  Gefecht  gesetzt  wer¬ 
den.  Die  Krankenschwestern  sind 
mit  den  Blumensträußen  zu  be¬ 
schwichtigen.  Der  Gegenstand,  der 
wie  eine  Tellermine  aussieht,  ist  ein 
Ultraschallgenerator,  der  alle  Robo¬ 
ter  für  eine  kurze  Zeit  Jähmt.  Die 
Magneten  können  in  Räumen  mit 
Robotern  abgelegt  werden.  Sobald 
ein  Robot  diesen  berührt,  wird  er 
davon  festgehalten  und  kann  sich 
nicht  mehr  frei  bew'egen. 

Sie  sollten  jeden  Raum  peinlich 
genau  untersuchen,  denn  teilweise 
sind  Gegenstände  unter  Betten.  Bän¬ 
ken  oder  anderem  Mobiliar  verbor¬ 
gen.  Auch  hinter  Schränken  sollten 
Sie  nachsehen,  denn  dort  verbergen 
sich  manchmal  Türen. 

Überall  im  Spiel  verteilt  laufen  eine 
ganze  Menge  Roboter  herum,  die  zur 
Absicherung  des  Komplexes  dienen. 
Diesen  Robots  ist  mit  verschiedenen 
Gegenständen  beizu kommen. 

Diese  Gegenstände  sind: 

1.  Die  Kerze  mit  dem  grü¬ 
nen  Kerzenhalter 

2.  Der  Bunsenbrenner 

3.  Die  Säureflasche 

So,  mit  diesen  Hinweisen  sollte  es 
nun  jedermann  schaffen,  mit  "Crafton 
&  Xunx”  fertig  zu  werden. 

(HS) 
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5  erscheint  am  1.7.1986,  DM  18, 


Schwerpunktthema:  Interface-Techniken  und  Ergonomie.  Mit  der  Schaltung  eines  hochauflösenden  Maus-Interfaces  (12  Bit) 
und  einer  Software  Maus  für  den  C64.  Und  dazu  noch  ein  Seibstbau  Plotter. 

65816/ EC-65K:  Software  vom  Betriebssystem  bis  zu  Compilern  gibt  es  bereits  für  den  neuen  65816-Prozessor  Näheres  in  ec  5. 
Dazu  passend:  Die  neue  SRAM-Karte  für  den  EC-65K.  Beliebig  oft  im  System  einsetzbar,  wahlweise  64  KByte  oder  256  KByte 
pro  Karte. 

EC-65  und  EC-65K:  Jetzt  ist  sie  da  die  Z80-CP/M- Karte.  Wahlweise  4,  6  oder  8  MHz,  Speicher  wahlweise  von  64  KByte  bis 
1  MByte,  RAM-Floppy,  Software-Spooler  usw.  sind  gleich  "eingebaut".  Und  eine  Menge  Software  gibts  kostenlos  dazu! 

Das  UCSD-p-System  wird  in  einem  ausführlichen  Artikel  beschrieben. 

V30:  der  8086-Kompatible  Prozessor  von  NEC  -  in  ec  5  beginnen  wir  mit  seiner  Beschreibung.  Für  den  EC-65(K)  ist  eine  Karte 
mit  diesem  Prozessor  in  Vorbereitung  —  MS-DOS  auf  dem  EC-65IK)  heißt  die  Perspektive. 

Weitere  Themen  in  ec  5:  64  KByte  Zusatzspeicher  für  Kolorator  und  andere  Anwendungen,  Auto-Dial  (automatisches  Wählen) 
fürs  Mini-Modem,  Datenbank-Systeme  unter  FLEX,  FORTH  auf  dem  EC  65,  Assembler-Programmierung  unter  CP/'M. 

Und  zum  guten  Schluß  ein  komfortables  Modem-Programm  für  den  EC-65(K)  und  andere  6502-  und  65816-Computer! 
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Obere  Münsterstr  33  4620  Castrop  -  Rauxel  (02305)3770, 


Düsseldorf 


Schneider 

mal  itc o  rm  ncmi\i 
in  uilS  uipiuiuii 


LU 

BOD 

BÜRO-ORGANISATION 

DATENTECHNIK 

Frieüenslraße  13  4000  Düsseldorf  1 
Tel  0211/308071 


Freiburg 


Südbadens 

kompetenter 

Computer-Partner. 


:7800 


Kaiser- Joseph-Str.  232  \ 
Freiburg,  Tel:  0761/2180225 


Jetzt  auch  bei  uns: 

Joyce  und  CPC  464  +  6128 

Anwenderprogramme  z.B.  für  Joyce: 
Wordstar  3.0,  d  Base  II,  Multiplan, 
Finanzbuchhaltung,  Business  Pack, 
DR  DRAW,  DR  GRAPH,  Schach 


Große  Auswahl  an  Spiel-  und 
Anwenderprogrammen,  Zubehör  und 
Uteratur  für  SCHNEIDER  und 
COMMODORE. 

Eänncrstr  5  -  2B0C  Hamburg  2D  •  Tel  42D  46  21 


C— Schneider 

^COflPUTEROmtOn 

autorisierter  FachhämUer 


gSOFT. 

iWARE 


LADEN 


Löhne/Ostwestfalen 


Schneider  Vertragshändler  &  Senricecenter 
Hard-  &  Software  von  A-Z  für  Ostwestfalen 

FRITZ  OBEHMEIER 
*Computer*HiFi*Video*TV* 
alles  für  Schneider  vom  464  -  Joyce 

m  Naupllikifcil  •  Bludar  Str.  20  •  4172  lllll  1  *  Ttl.  08712/124« 


Nürnberg 


Computer  slore 


HochslraDe  11 
8500  Nürnberg  80 
Tel  0911/28  90  28 


_ C-^  Schneider _ 

9 conpuTEnomion 

Wir  (Uhren  zu  den  original  SCHNEIDER-Produkien  Sofiware,  Bücher  und 
Zubehör  verschiedener  Firmen  wie  DATA  BECKER.  VORTEX.  CUMANA. 
ISS,  RUSHWARE,  MARKT  &  TECHNIK,  SY8EX,  VOGEL-Verlag  usw  1 


Rüsselsheim 


commodore  cDSchnekJer- 
Dipi.  Ing.  Nauderth  -Computer 

Frankfurter  Str  23/Friedensplatz,  6090  Rüsselshelm 
Tel  (C  61  42)  6  84  55,  Tx  viele  d  4  182  982 


WUrzburg 


HALLER  GmbH.  Wirzburg 
dar  Spazlallst  für  all«  Sebnaldar-Campiitir. 
Hardware  -  Software  -  Zubehör  -  Sarvlco 
Büttner  Str.  Zfl  (blitor  Hanfbau  Hortla) 
Tolafan:  0931/16705 
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Schweiz 


Zürich 


Computers 


«ntal  «i  Seebach  Schatfhause'  St'  473,  805?  Ztriclt. 
Telefon  01-302  26  00 
Versandkalatog  antordern 


Österreich 


Traun 


«a  ING.  agU5EHct£KTROW,><  O 

III  Schnotder  ATARI  cammodore 
II"  vortex  ater  EPSON  imnaon 

A-4050  TRAUN  SIE8ENBDRGERSTR  19  07229/40  18 


In  dieses 

Händlerverzeichnis 
können  sich  alle 


Computer-Händler 


eintragen  lassen. 

Für  telefonische  Anfragen 
steht  Ihnen  Herr  Schnell 
gern  zur  Verfügung. 
Telefon:  05651/8702 


Anzeigenschluß 
für  die  nächste 
Ausgabe  (10/86) 
von 

Schneider  CRC 
International 
ist  der 
28.08.86 

Erscheinungstermin 
ist  der 
24.09.86 


Achtung! 

An  alle  CPC- User-Clubs! 
Suchen  Sie  noch  Mitglieder 
oder  wollen  Kontakte  zu  ande¬ 
ren  C  PC- Usern  oder  Clubs 
knüpfen? 

Dann  schreiben  Sie  uns  doch 
einfach.  Wir  veröffentlichen 
jede  Anschrift  eines  CPC-User- 
Cubs  gratis! 

Falls  auch  Ihr  User-Club  sich 
einmal  vorstellen  möchte 
(evt.  mit  Foto),  nutzen  Sie 
unsere  Zeitschrift  als  Verbin¬ 
dungsglied  und  Kontaktadresse! 


CPC-Nutzerclub  "Fehler  im  System" 
sucht  weitere  Mitglieder  aus 
Ostwestfalen  &  Südniedersachsen 
Näheres  bei: 

Fritz-Peter  Nonnenbruch, 
Splittenbrede  1  1, 

4800  Bielefeld  1 , 

Telefon-.  (05  21)  88  79  70 

oder 

Gerd  Engelbarth, 

Aschener  Weg  1 , 

4509  Dissen, 

Telefon:  (0  54  21}  51  83 


IAC  —  International  Amstrad  Club 

Kölner  Straße  66, 

5630  Remscheid  1 1, 

Telefon:  (0  21  91)6  51  21 


Syntax  Error 
Computerclub  Nordhorn 

(alle  Systeme) 

Infos  bei; 

Fred  Weber, 

Laarstraße  23, 

4460  Nordhorn 

Telefon:  (0  59  21)  1  31  49 

oder; 

Heinz  Elbers, 
Württemberger  Straße  1, 
4460  Nordhorn, 

Telefon;  (0  59  21)  7  54  78 


Märkischer  Kreis  MK 
"Ernsthafte"  CPC  664/464  Anwender 
zum  Erfahrungsaustausch  und  zur 
evtl.  CPC-Clubgründung  sucht; 
Antonius  Gusik  DU  DK, 

Bromberger  Straße  31, 

5880  Lüdenscheid, 

Telefon:  (0  23  51)  8  39  1  1 


CPC-Club  MAGIC  KEY 

sucht  Mitglieder  im  Raum  Bremen. 
Infos  bei: 

Michael  Hollmann, 

Starnberger  Straße  46, 

2800  Bremen  1 


ROMSOFT 

sucht  Kontakt  zu  anderen  CPC-Clubs 
und  -Usern. 

Geschäftsführer: 

Michael  George, 

Waldstraße  1  3, 

6630  Saarlouis  5, 

Telefon:  (0  68  31)67  01 


A.N.W.U.C. 

sucht  Kontakt  zu  anderen  CPC-Clubs 
C.  Heyliger  (President), 

41  Millwall  Close, 

Gorton,  Manchester. 

Ml 8  8LL. 


JOYCE  USER-CLUB  NÜRNBERG 

Suche  Kontakte  zu  einem  Joyce- 
User-Club  in  Nürnberg  bzw. 
Interessenten  zur  Gründung  eines 
solchen. 

Ansgar  Zerfaß, 

Ammanstraße  26, 

8500  Nürnberg  40, 

Telefon:  (09  1  1)  43  67  78 


Kontakt  zu  Schneider  CPC  464- 
Besitzern  im  Raum  Hamm  gesucht. 

Henrik  Hünerhoff, 

Caldenhofer  Weg  44, 

4700  Hamm  1 


Schneider  Computerclub  Hamburg 

sucht  Mitglieder  in  ganz  Europa. 
Alexander  Scharf, 

Heimfelderstraße  60, 

2100  Hamburg  90, 

Telefon:  (0  40)  7  90  93  53 


CPC-User  in  Rüsselsheim 
suchen  noch  andere  CPC-User 
zwecks  Erfahrungsaustausch- 
Bei  Interesse  bitte  melden  bei; 
Markus  Jösf, 

Amorbacher  Straße  52, 

6090  Rüsselsheim, 

Telefon:  (0  61  42)  3  33  31 


Berliner  User  Club 

sucht  Mitglieder,  auch  weibliche, 

jeden  Alters. 

Infos  von: 

Wolfgang  Windorpski, 
Gritznerstraße  38, 

1000  Berlin  41, 

Telefon:  (0  30)  8  22  77  50 


CPC  Clubgründung  angestrebt 

für  Kreis  Borken. 

Interessierte  bitte  melden  bei; 
Dominique  Weiß, 

Südring  6, 

4282  Velen  -  Ramsdorf 


Schneider  User  Club  Heilbronn 

sucht  noch  Mitglieder 

aus  dem  Großraum  Heilbronn, 

Bitte  melden  bei: 

Mirko  Pecoroni, 
Deutschherrenstraße  6, 

7107  Bad  Friedrichshall-4, 
Telefon:  (0  71  36/67  01 


S.C.C.N-H 

Schneider  Computer  Club 
Neunkirchen- Herdorf 
Infos  bei: 

Oliver  Thiele, 

Am  Kirchweg  49, 

5908  Neunkirchen  5, 
Telefon:  (0  27  35)  31  66 


JOYCE-Userclub  Neugründung 

Saarland 
Kontakt  und  Info; 

Arthur  Boren  s. 

Im  Technologieparfc  Dillingen, 
Postfach  1 1 05, 

Telefon:  (0  68  31)7  30  52, 
D-6638  Dillingen/Saar 

Schneider-Computerclub  e.V. 

Abt.  Ostwestfalen/Lippe 

Info;  Computer- Freunde/Löhne  e.V. 

Postfach  1101 

Telefon;  05732/3396 

4972  Löhne  1 
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Biete  an  Software 


SYSTIMWECHSEL!  ★  Hard-  +  Softw 
günstig  zu  verk  ★  Liste  gegen 
Rückumschlag  bei  N  Kiesel, 
Föhrenstr.  14,  7600  Offenburg 


★  ★  ★  SCHNEIDER  CPC  464  ★  ★  ★ 

★  Hannovers  ★ 

★  SOFTWARETHEK  Nr.  1  ★ 

★★★★★★★★★★★★ 

Mastertronic- Games  aC  9  90 
Warlord/Centre  Court  a  C  29. — 
Music  Composer/Death  Pit  a  C  32. — 
Fighting  Warrior  a.C  36. — 

Hyper  Sports  C/D  42  -/54. — 
The  woy  of  the  Tiger  C/D  36.— /52. — 
Yie  ar  Kung  Fu  D  52  — 

Colossus  4  Chess  D  59. — 

Hi  Rise/The  Devils  Crown  a.D  52. — 
Textomat  plus  CPC  61 28  D  198  — 
Graphics  LIGHTPEN+Softw.  98  — 
sofort  CSJ  NEWS  anfordem 

★  ★  CSJ  COM  PUTERSOFT  JONIGK  ★  ★ 

★  An  der  Tiefenriede  27, 3000  Hannover!  ★ 

★  ★  ★  Tel.:  0511/886383  ★  ★  ★ 


Börsenprogramm  für  Profis! 

Chart,  Zoom,  gl  Durchschnitt,  Linien, 
Balken,  Überlagerung,  Optionsscheine, 
Seriendruck.  Info  1 DM, 

Disk  200—  DM.  Winfried  Schmitt, 
Enzianweg  24,  8134  Pöcking 


TEXTOMAT  und  DATAMAT 

original  mit  Handbüchern 
zus.:  1  10,-  DM,  “BP  06724/485 


CPC  464  ★  1.  Plotstor  1.3,  z  Au  sw  v 

Daten;  Menüs,  vers.  Liniendiag  bis 
5  Kurven  je  Diagr.,  Harde  ,  Statistikf , 
uva.  DM  20,-  auf  Kass  Vorrz. 

★  2.  3D-Kristall+Molekül-Plot.  f 
Schule  u  Studium,  viele  Funktionen 
DM  20,—  a  Kass  W  Sievers, 
Kleinenberger  Wg.  5,  4790  Paderborn 


★  ★  ★  AXON  ★  ★  ★ 

Konstruieren  3-dimens.  Objekte  in 
Vektorgrafik.  Möglichkeiten:  9  versch. 
Axonometrien  (Persp.)  verkl.,  vergr. 
verschieben,  drehen,  Projektionen  auf 
3  Ebenen,  Ausdruck.  Einfache  Bedienung. 

Erhältlich  bei  Grunhofer  Georg, 
Berliner  Ring  86,  6780  Pirmasens. 
Auf  3"-Disc  für  CPC  464  u  6128 
gegen  48,50  DM  Nachn.  o  Scheck 


Sorcery-f /Fighter  Pilot  on  Disc 

je  29,-  DM  ff  0931/94227 


Joyce-Graphik  Programm 

Punkte  und  Liniengraphik 
Eingabe  von  Hand  oder  einfaches 
Erstellen  der  Quelldatei  mit  Mallard- 
Basic;  Disk  70,-  DM 
Martin  Sfoll,  Brunnenwiesen  42  d 
7000  Stuttgart  75,  ff  07 1 1  /478708 


CPC- Anwender-Software  z.B.  Text, 
Adressen,  Überschuß,  Rechnungen, 
Kasse,  Lager,  Außenstände.  Info; 
Fa  Grein,  Pf  1513,  3550  Marburg 

G 


★  WEIT-DER-SPRACHEN-I  ★ 

Engl ,  Franz.,  Ital  je  200,—  DM;  Menü 
ausbauf.  3"  28,—  DM,  5  25"  23,—  DM 
U  Herk,  Buchen  2 1, 8501  Veitsbronn 


★  ★  3  Programme  DM  140,-  ★  ★ 

Schneider  Textverarbeitung  TopData 
und  org.  Textomat 
ff  08131/85989  ab  18  Uhr 


JOYCE-Slatistik 

Ausreißer,  Verteilung,  Klassen, 
Vertrauensbereich,  nichtlineare 
Regression  (alles  mit  Graphik), 
f-  und  t-Test  —  alles  MS 
Michael  Maßler,  Gneisenaustr  2 
5000  Köln  60 
ff  0221/7604759 


WORDSTAR  f.  6128  m.  Handb.  orig. 

DM  110,-  z.  verk.  ff  04534/7934 


SPRITCONTR01  Tankdatenverwalt 
Cass./Disc  Info;  Fleckenstein, 
Am  Hainhop  6,  31  60  Lehrte  8 


STAR-WRITER  (original)+  Sicherh.- 
Disk,  Vers  2.0,  wg.  Systemwechsel 
für  130,- DM,  ff  06150/84423 


Lohn/Gehallsabrechming  JOYCE 

Nach  neuestem  Steuerrecht  86 
Stammdafen  /  Urlaubsverwaltung 
Ausdruck;  Gehaltsabrechnung,  Steuer¬ 
karte,  Uberweisungsli  DM128,- 
Info/Best.  D  Maelders 

Versand  nur:  DienethalerStr  22 

V-Scheck/NN,  5408  Nassau  2 

G 


★  Biete  SUPER  CHEMIEPROGRAMM  ★ 

★  20  DM  Cos.  30  DM  Disc,-  Ho.  Groß  ★ 

★  Ginsterberg  1 3,  6630  Saarlouis  ★ 


Programme  aus  Eigenentwicklung 

für  alle  CPC's.  Gratisinfo  anfordern 
bei  Friedrich  Neuper,  8473  Pfreimd, 
Postfach  72  ß 


Mit  FINANZ  (CPC  464)  verwalten  Sie 
komfortabel  Ihre  Finanzen  1  0  Einn.-/ 
30  Ausg.-/1  0  Schuld-  u  1  Forderungs- 
Posten  buchen;  alle  Posten  frei 
benennbar;  Listen  blättern  (Jahresliste 
ist  Balkengrafik);  Fälligkeit  d.  Ausg  / 
Ratenhöhe  d.  Schulden  festleg-  u. 
anzeigber,-  belieb  Posten  gegen 
Buchung  sperrbar;  bei  Buchung  d. 
Ausgaben  erfolgt  autom  Buchung  bei 
gleichnamigen  Schuld-Posten  uvm 
(8s.  Anleitg.) 

C  49,—  DM  (Geld-Zurück-Garantie) 
J  Herrmann,  j  Schmidt-Str  16, 

1  000  Berlin  44, 

Telefon:  P  (030)  685  12  12 


★  NEU  ★  CHEMIE  ★  NEU  ★ 

Datenb  /m.  Ch  -Test/Lernsoftw  /PSE/ 
Atommodell/Elektronensyst ,  4  Progr 
(!  m  als  80  KB  !)  30,-  DM  K  / 
40,-  DM  D/Typ?/lnfo  2,-  DM  Bfmk 

★  U  Hox,  Ackerstr  65, 4 1  90  Kleve  ★ 


Zustandsgleichungen  von  Gasen 

Lehr-  und  Lernprogramm 
Berechnung  und  Graphik  der 
Van-der- Waal' sehen  Gleichung 
Cassette  50,-  DM,  Disc.  3"  65,-  DM 
Tel  :  0214/93642  ab  18  Uhr 


★  ★  ★  Schaltbild-CAD  1  ★  ★  ★ 

Schaltbilderstellung  mit  dem  CPC 
alle  gängigen  Bauteile  in  der 
Bauteilebibliothek  mit  Hardcopy  f 
Epson  C/D  45, -/55,-  DM 

★  ★  ★  BANK  111  ★  ★  ★ 

als  Bankkontenführung,  Haushalts- 
Kassenbuch  oder  kl  Gewinn rechnung 
max  400  Buchungen  je  Abrechnung 
C/D  30,— /40,— DM,  Preise  bei  Vork 
od  zuzg.  NNgeb,  Software  D  Thiesen, 
Rathausstr  70,  5410  Höhr-Grhsn 


Amateurfunkprogramme  unter  CPM  für 

JOYCE  8256  (Sat-Bahnen,  QTH- 
Berechnurtg,  Antennenberechnung) 
Info  anfordern  M.  Maday,  DC9ZP, 
Postsdamerstr  5, 

5412  Ransbach-Baumbach 


+  +  +  FINANZBUCHHALTUNG  (PC  +  +  + 

+  28  Bilanz,  200  Aufw  +Erfr  Kto  + 
+  4544  Buchungen  p.  Periode,  Ab-  + 
+  schlußbuch  selbstst  Eig  + 
+  Entw.  progr.  f.  Kto  rahmen,  auch  + 
+  während  Periode.  Rel.  Zugriff  ~r 
+  + ff  064  31/420  22, 17-18Uhr-t-  + 


Für  Ihren  JOYCE  haben  wir  einiges: 

CYRUS  II  3-D  Chess  52,90 

Bafman  (starke  Grafik!)  NEU  47,90 
Hitchhikers  Guide  to  the  79,90 

Fairlight  (Action-Adv )  NEU  47,90 
dBase,  Wordstar,  Multiplan  je  1 99, — 
DR  Draw  Grafikprogr)  nur  199, — 
Diskettenbox  3"  f.  40  Disks  33,90 
Lighfpen  Elect.  Studio  NEU  249,90 
Außerdem  jede  Menge  Software  für 
die  CPC's!  Kostenloser  Katalog  von: 
SUNSHINE-Software,  A  d  Schilde  14, 
5270  Gummersbach,  T,  02261/75752 

G 


CPC  International  3/85  -  5/86  + 

70  original  Prog  ff  04161/62282 


JOYCE  PCW  8256 

FAKTURA-CONTROL,  3"-Disk  89,-  DM 

Fakturieren  m.  Adreß-Verw.  u  autom 
Mahnprogr.,  offene  Posten  je  Kunde 
FAKTURA-CONTROL  PLUS,  3"-Disk  139  -  DM 
zusätzl  mit  Artikel-Bestandsdatei, 
Umsatz-  u.  Mindestbestandskontrolle 
BAUFINANZIERUNG,  3"-Disk  189,-  DM 
Für  Finanzierungsberater/Makler. 
Indiv.  Programme  zum  Festpreis. 
HASHAGEN,  Tel.:  06073/61993 
Eckstr  11,6113  Babenhausen  3 


RISSCNAUSWAHl 

MAP  Software,  Potthoff 
Postfach  1290,4543  Lienen 

G 


★  ★  ★  BILLIGE  SOFTWARE 

★  ★  ★ 

-  Vocpack  Version  1  0 

(Vokabel-Trainer) 

49,- 

-  Lexipack  Version  1  0 

(Lexika  1  prog  ramme) 

89,- 

—  Etatpack  Version  1  0 

(Haushaltsprogramm) 

39,- 

J+J-Soft,  Forsthausweg  i  5, 

6424  Grebenhain  2 

G 

Viele  preiswerte  Spiele,  Mathe, 
Anwend.  (z.B  MINIVISICALC.TOTO) 
von  2-28  DM!  Katalog  geg  1  DM 
SCHNEIDERSOFT,  Andreas  Wagner, 
Gartenstr  4,  8201  Neubeuern 


DIAS  ORDNEN  MIT  DEM  CPC/J0YCE 

bis  30000  Dias,- Suchzeit  ca  1  Sekunde. 
Info  gegen  Rückporto. 

W  Grotkasten,  Birnenweg  6, 
7060  Schorndorf,  Tel  .07181  /42846 

G 


TAIFUN  Basic-Compiler-  Test  im  CPC  2/86 
80,-  DM  ff  07524/7399 


Wichtiger  Hinweis  für  alle  Kleinanzeigeninserenten: 


Der  Verlag  behält  sich  vor,  bei  Softwareangeboten  indizierte  Spiele  ersatzlos  zu  streichen. 
Folgende  Video-  und  Computerspiele  sind  indiziert: 


Battlezone 
Beach  Head 
Beach  Head  II 
Blue  Max 


(BPS-Report  —  Juni  —  3/1986  S  40) 


Desert  Fox 
F  15  Strike  Eagle 
Green  Beret 
Paratrooper 


Raid  over  Moscow 
Rambo,  First  Blood  Part  II 
River  Raid 
Seafox/Seawolf 


Skyfox 
Speed  Racer 
Stalag  I 
Tank  Attack 
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Verk.  o.  tausch«:  Elite/Hacker/ 
Wintergames/Mindshadow  u  v  m. 
T  Steinküller,  W  0212/71287 


CPC  DT  —  das  Schriftsatzprogramm  für 

alle  Schneider  CPC's 

Cass.  DM  69-,  3"- Disk  DM  89- 

Info  DM  0,80  bei 

Ossip  Groth  Software 

Möllers  Park  3,  2000  Wedel 


JOYCE  QUALITÄTS-SOFTWARE: 

★  WINDOW-KASSE  DM  98,- 

★  WINDOW-ADRESS  DM  98,- 

★  WINDOW-LAGER  DM  1 98,- 
Finanzbuchhalfung  DM  194,- 

-  Sprachen  -  Textverarb.  -  Utility  - 

-  Zubehör  für  alle  CPC  u  JOYCE! 
TASWORD  3"-Disk-CPC  DM  59,90 
MicroM  -Worms,  4780  Lippstadt, 
Johannes-Westermann-Platz  1 

“m  0  29  41/5  92  90  G 

★  Händleranfragen  erwünscht  ★ 

Programmierer  erstellt  Software 

auf  eigenem  Rechner  zu  Festpreis 
MS-DOS,  CPC's,  Joyce,  dBase 
Telefon:  (0  68  51)  57  27 


Original  DATAMAT  75,—;  Star  Writer  150,-, 

ELO-Hefte  1/75-7/84  =109 
Hefte  150,—;  Niederhoff,  Hoven  15, 
51  40  Erkelenz,  Tel :  0  24  31/78  44 


Suche  Software 


Joyce-Anwend.  sucht  Kontakte  u.  evtl. 
Softwore'rausch;  W  Fundus,  Wasmann- 
str.  31,2000  Hamburg  60,  691  1027 


Suche  Programme  über  Maschinenbau 

auf  3"+5'/c"- Diskette 
Andreas,  Tel :  0  61  42/6  21  46 


Suche  CPC-lnt.  Heft  Nr.  3  u.  7/85 

Tel :  07431/52770  nur  abends 


Biete  an  Hardware 


CPC  464,  grün+PIO+Softw.+Lit  == 
525  -  DM;  K.-E.  Kiel,  Tel  =  05746/8160 


Gelegenheit:  Neuer  Schneider  „Joyce" 
Computer,  2  Laufwerke,  10  %  unter 
Neupreis  zu  verkaufen, 
Telefon:  08363/5867 


Neuwertiger  Lightpen  (Müller) 
mit  Diskettensoftw  abzugeben 
W  0  63  08/8  10  (nachm.) 


JOYCE  PCW  8256  mit  2.  Laufwerk 

+  Turbo  Pascal  3.0 
6  Monate  alt,  Festpreis  2000,-  DM 
nur  an  Selbstabholer. 

W.  Otto,  Telefon:  0  63  51/33  82 


CPC  464  CPC  664  CPC  6128-Userl 
Lichtgriffel  mit  Programmen  und  dt. 
Anleitung  nur  DM  49,- 
Versand  gegen  Scheck/Nachnahme 
Info  gratis!  Fa  Schißlbauer, 
Postfach  1 1  7 1  S,  8458  Sulzbach, 
Telefon:  0  96  61/65  92  bis  21  Uhr 

G 


1MB  für  CPC  6128.  Verkaufe  Vortex 
Fl  -X  +  Software  +  Disk 
Preis:  VS,  Tel.-  05357/1273 


Verkaufe  CPC  Grünmonitor  GT6S 

für  100,—  DM  plus  Versandspesen 
Tel.:  071 93/883 1  (1 8.00  -  20  00  Uhr) 


□  ★  ★  SP  5)2  KIT  *  ★  □ 

Aufrüstkit  für  VORTEX  SP  64  auf 
5 1 2  KByte.  Original!  nur  1  98  —  DM; 
Tel,  09 1 35/1 252  ab  8  9  nach  1 4.00 


Drucker  NLQ  401  —  300,  dBase,  Word¬ 
star,  Multiplan  je  100  (3"  464) 
Literatur  50%;  Tel:  05121/131  158 


SCHNEIDERWARE 

ATARl-Maus  an  CPC,  Uhr  mit  Termin¬ 
kalender,  Eprom-Programmer,  Eprom- 
Bank,  parallele  Schnittstelle,  weitere 
Hard-  und  Software  für  CPC,  Infor¬ 
mationen  gegen  frankierten  Rück¬ 
umschlag  an: 

BURKHARDT  DATENTECHNIK, 
Schwabstr.  13,  7250  Leonberg 

G 


Biele  an:  HARDWARE 

CPC  464  Farbe  +  DDI  +  SP51  2 

DM  1 500,- 

Graphikpad  ungebraucht 
IBM-Gehäuse  DM  1  50,— 

Datamaf,  Textomaf,  je  DM  50,- 
BASF- Floppy  6138  DM  350,-  (Vortex) 
Telefon:  07152/22195 

G 


Schneider  CPC  464  mit  Farbmonitor  zu  verk. 

VB:  1  000,-  DM; 

'S  02385/2099  ab  14.00  Uhr 


★  ★  ★  CPC-SOMMERHITS  ★  ★  ★ 
VORTEX-Speichererw.  SP-256  295,-  DM 
SP-S12  395,- DM 
VORTEX- Floppy  F-1X  698,-  DM 

FI-XRS  798,- DM 
3"  Fioppy-Laufwerk  1  99-  DM 

5,25”  Floppy-Station  399,-  DM 

NEU  -  NEU  -  NEU  -  NEU  -  NEU 
ECB-BUS-ADAPTER  Bausatz  188,-  DM 
Baustein  288,-  DM 
Busverbindung  zum  Profi-Standard 
für  alle  Schneider  CPC 
.und  die  passenden  ECB-KARTEN: 
EIN*/ AUSGABEKARTE  Bausatz  1 89-  DM 
4  Centronics,  2  ser.  Schnittstellen 
ECB-SPEICHERERWEITERUNGEN 
(auch  für)  128  kB  Bausatz  299,-  DM 
(CPC  6128)  1  MB  Bausatz  599,-  DM 

EPR0M-0ISC  256  kB  Bausatz  325,- DM 
Komplette  Info's  gegen  2,—  DM  Porto 
User-Sprechstunde  Di.  u.  Do.  ab  1 8  Uhr 
SOFTWARE-SERVICE-RETHEMEIER 
Vlothoer  Str.  65a,  4900  Herford 
Telefon:  0  52  21/8  67  98  G 


Schneider  JOYCE  neu  m.  Garantie 

VB:  1 495-  DM  Star- Writer  1  80,-  DM 
Telefon:  09  21/4  1  7  48  ab  18  Uhr 


NLQ  401,  wenig  benutzt,  DM  495,— 
Telefon:  (02  28)  34  87  98 


Drucker  NLQ  401  +  Traktor  400,—  DM 
1  Jahr  alt,  Tel .  06226/8825 


CPC  464  +  Software  600,-  DM 

u.a.:  Compiler-Taifun,  Elite, 
Assembler,  Fighter  Pilot, 

Hexenküche,  Ghosbusters 
Telefon:  089/433232  ab  1 8.00  Uhr 


Akustikkoppler  und  CPC  Hardware 

Drucker,  Floppy,  Software, 
Reparaturservice,  Demo  für  Finanz-, 
Lohn-  und  Hausverwaltungen, 
Manfred  Kobusch,  ßergenkamp  8, 
4750  Unna,  Tel.:  02303/13345 

G 

3"-Zweitlaufwerke  178,-  ★  5V/12V 
Netzteile  48,-  ★  Mica,  dBase  II, 
DevPac,  Sorcery+,  Hacker  u.v.m, 
Preis  VB.  Thomas  Krämerkämper, 
Telefon:  0  23  67/2  50 


Zweitlaufwerk  464  od.  664  300,- 

Klein  Körnerstr  45,  6800  MA  51 


Schneider  3"-Zweitfloppy  350,-  DM 

Telefon:  (05  1  1)  75  02  84 


CPC  464  Grün  +  neues  DDI-1  + 
Zubehör  DM  650,-,-  Tel  .  069/885424 


CPC  464  Grün+Joys+Bücher+Pro- 
gramme+ Abdeckhauben  1 000,-; 
Telefon:  0571/41524  nachm, 


Verk.  6128,  NLQ  401  m.  Textom.+  Datam. 
+Wordst.  u.a;  Preis  1 650,-,-  069/576306 


Suche  Hardware 


Suche  Akustikkoppler  Datophon  S21D 

Telefon:  (00  43)  42  42/4  1  9  45 


Stellengesuche 


Hobbyprag,  mit  langjähriger  Z80 
Assemblersprache-  Erfahrung 
entwickelt  Maschinenprogramme. 
Adresse/  1  Berlin  21/P/D  210611 


Tausch 


Grünmonitor  GT64  +  170,— gegen 
Farbmonitor!  Tel.:  .06201/72426 


Tausche  kostenlos  Programme 

für  CPC  664.  M  Eibisch,  Birkenstr  16, 
8068  Pfaffenhofen  1 


Verschiedenes 


VERKAUFE  CPC  5/85  -  4/86 

Preis  nach  Vereinbarung! 

Auch  einzeln. 

Roland  Sackl, 

Hohe  Munde  Str.  589,  A-6 1 00  Seefeld 


!!!  BESUCHEN  SIE  UNS  II! 
ELEKTRONIK  l  COMPUTERTAGE  SAAR 

Verkaufs-Informationsmesse  5.  -  7.9. 

Kongresshalle  Saarbrücken. 

Info:  PF  1 0 1  260,  6620  Völkingen, 

G 


EDV-Profi  mit  eigener  Firma  sucht 

Kapitalanleger  zwecks  Gründung 
eines  Software-/Systemhauses  ouf 
GmbH-Basis.  Anfragen  werden 
diskret  behandelt. 

Chiffre.-  040886  G 


Etiketten  genau  passend  für  3"*Disketten 

Bedruckt  mit  A-  u  B-Seite  . 

30  Stck.  nur  1 0,-  DM  inkl.  Porto 
Nur  gegen  Vorkasse  Schein/Scheck 
E-H-E,  Schroerstraße  34, 

4390  Gladbeck  G 


Das  ist  Ihre  Chance. . . 
schon  eine  Kleinanzeige 
bringt  oftmals  großen  Erfolg 
und  hilft  neue  Kontakte 
knüpfen. 

Nutzen  Sie  unser  Angebot 
und  profitieren  Sie  von  der 
Tatsache,  daß  unsere  Zeit¬ 
schrift 

»Schneider  CPC 
International « 
jeden  Monat  von  mehreren 
zig-tausend  Computer- 
Interessierten  gelesen 
wird. 

Möchten  Sie  etwas  verkau¬ 
fen,  tauschen  oder  suchen 
Sie  das  »Tüpfelchen  auf 
dem  i«  —  dann  sollten  Sie 
die  eigens  hierfür  bestimm¬ 
te  Bestellkarte  im  Heft  aus¬ 
füllen  und  an  unseren  Ver¬ 
lag  absenden. 

Ihre  Annonce  erscheint 
dann  in  der  nächsterreich¬ 
baren  Ausgabe. 

Wir  möchten  ausdrücklich  darauf 
Hinweisen,  daß  wir  keine  Anzeigen 
veröffentlichen,  aus  denen  ersicht¬ 
lich  ist,  daß  es  sich  hierbei  um  Ver¬ 
äußerungen  von  Raubkopien  han¬ 
delt. 

Des  weiteren  machen  wir  darauf 
aufmerksam,  daß  indizierte  Com¬ 
puterspiele  nicht  in  Form  von  Anzei¬ 
gen  beworben  werden  dürfen 

Die  Redaktion 
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"Programme . 

0X1 

für464-664-6l28 


Der  Spieler  übernimmt  in  diesem  Spiel  die  Rolle  von  Oxi 
(siehe  Titelbild).  Dieser  lebt  mit  Frau  Oxinne  und  Tochter 
Oxinchen  unter  der  Erde. 

Ziel  des  Spiels  ist  es,  als  Oxi  möglichst  viele  Punkte  an 
einem  Tag  zu  sammeln.  Nach  der  Eingabe  des  Levels  (Le¬ 
vel  3  ist  der  einfachste  Schwierigkeitsgrad)  und  dem 
darauf  folgenden  Sonnenaufgang  beginnt  das  eigentliche 
Spiel 

Bei  jedem  Zusammentreffen  mit  Oxinchen  erhält  Oxi 
einen  Punkt  (Vorsicht  ist  geboten,  da  Oxinchen  sehr 
quirlig  ist).  Wenn  Oxi  es  schafft,  zu  der  Hundehütte  an  der 
Erdoberfläche  zu  gelangen  und  dann  zu  Oxinchen,  ohne 
vorher  auf  Oxinne  zu  stoßen,  erhält  er  3  Pluspunkte 
dazu. 

Zusammentreffen  mit  Oxinne  sind  zu  vermeiden,  da  dar¬ 
aufhin  ein  Punkt  abgezogen  wird.  Falls  Sie  dies  dennoch 
nicht  vermeiden  können,  werden  Sie  als  Oxi  danach  auto¬ 
matisch  von  Oxinne  weggestoßen. 

Wenn  Sie  sich  an  der  Erdoberfläche  befinden,  versucht  Sie 
der  Hund  aus  der  Hütte  mit  apfelähnlichen  Gebilden  ab¬ 
zuschießen.  Sie  müssen  daraufhin  versuchen,  durch  recht¬ 
zeitigen,  aber  nicht  zu  frühen  Druck  auf  den  Feuerknopf 
über  diese  Hindernisse  zu  springen.  Ansonsten  brauchen 
Sie  sich  an  der  Erdoberfläche  um  nichts  zu  kümmern. 
Gespielt  wird  mit  dem  Joystick. 

Joystick  links  =  Oxi  geht  nach  links 

Joystick  rechts  =  Oxi  geht  nach  rechts 

Joystick  vorn  =  Oxi  springt  nach  oben  (wenn  dies  geht) 

Joystick  hinten  =  Oxi  springt  nach  unten  (wenn  dies 

geht) 

Wichtige  Variablen: 

ende 

gibt  die  Länge  leveibedingter  Verzögerungsschleifen  an 
futter 

futter=l  Oxi  konnte  die  Hundehütte  erreichen 
xo,yo 

Koordinaten  von  Oxi 
xi,yi 

Koordinaten  von  Oxinne 
xn,yn 

Koordinaten  von  Oxinchen 


Die  Aufgaben  der  anderen  wichtigen  Variablen  sind  am 
Namen  erkennbar. 


ANMERKUNG: 

Dieses  Spiel  wurde  auf  einem  CPC  6128  mit  Grünmonitor 
geschrieben.  Dies  führt  bei  Farbmonitorbesitzern  natür¬ 
lich  zu  Farbunschönheiten. 

PROGRAMMBESCHREIBUNG: 

Die  REM-Bemerkungen  (')  können  beim  Ab  tippen  wegge¬ 
lassen  werden. 

10  -  40: 

Vorspann  sowie  diverse  Initialisierungen 
50  -  60: 

Leveiabfrage 

70  -  130: 

Definitionen  und  Bildschirmaufbau 

140: 

Sonnenaufgang 


150: 

Hauptprogramm  (Steuerprogramm),  welches  die  wichtig¬ 
sten  Unterprogramme  aufruft 
160  -  200: 

Nachspann 
1000  -  8900: 

Unterprogramme 


In  den  Zeilen  1630-  1650  sind  die  Koordinaten  derLücken 
der  unterirdischen  Labyrinthe  in  Form  von  x-  und  y-Ko- 
ordinaten  (xl,yl,x2,y2,x3,y3...)  festgelegt. 

Diese  können  für  selbsterdachte  Labyrinthe  natürlich  ver¬ 
ändert  werden.  Dabei  ist  zu  beachten,  daß  das  erste  Paar 
(3,14)  auf  keinen  Fall  verändert  wird,  da  Oxi  iihmer  durch 
dieses  Loch  wieder  in  den  Untergrund  gelangt 
Weiterhin  darf  die  maximale  x-Koordinate  in  der  obersten 
Reihe  (y=  14)  höchstens  7  sein!  Werden  mehr  oder  weniger 
Koordinaten  in  die  Data-Zeilen  eingefügt  als  gegeben, 
dann  muß  die  Zählvariable  in  der  entsprechenden  Steuer¬ 
zeile  (1600  -  1620)  verändert  werden.  (S.  Weiher) 

10  CLS :CLEAR: DEFINT  a-z:PAPER  0 :BORDER  0:M  [3235] 

ODE  0 : GOSUB  2000 : GOSUB  3000:GOSUB  4000 

30  FOR  x  =  1  TO  19  STEP  2:FOR  y=1  TO  25  STEP  [6312] 

2: PEN  ( ( x+y ) / 2  MOD  8)+1:LOCATE  x,y: PRINT 
oxi$ :NEXT:NEXT 

40  FOR  a=1  TO  30  : SOUND  1,20+600  MOD  a,70-  [8561] 
2*a,10,1 ,1 ,30-a:FOR  i=1  TO  9:INK  i ,INT(RND 
*16+9): NEXT :FOR  w=1  TO  200 : NEXT :NEXT 
50  LOCATE  2,9: PRINT"LEVEL ( 1 -3 ) =" ; : level=VA  [2242] 

L( INKEYS) 

60  IF  level >3  OR  level<1  THEN  GOTO  50  [2712] 

70  ende= ( level-1 ) *1 00  [569] 

80  GOSUB  3000 :CLS  [1845] 

90  xw(1 )=8:yw(1 ) =3 :xw ( 2 ) =1 7 :yw( 2 ) =6 :xw( 3 ) =  [4355] 

9 :yw( 3 ) =4 

100  xo= INT (RND* 20+1 ) :yo=23 :xi=INT(RND*20+1  [3906] 

) :yi=17 :xn=INT(RND*20+1 ):yn=19 

110  LOCATE  xi, yi: PEN  6:PRINT  oxinneS : LOCAT  [7522] 

E  xn ,yn: PEN  7 : PRINT  oxinchen? : LOCATE  11,25 
: PRINT" SCORE" ;: LOCATE  1 , 25 : PRINT"TIME" ; 

120  GOSUB  1500  [91 1 ) 

125  PAPER  0 : INK  0,0:INK  1 , 8 : INK  2,17:INK  4  [2832] 

, 6 : INK  6,20: INK  7,21 

130  GOSUB  1 800 :score=0 :GOSUB  6000  [1978] 

140  FOR  i=0  TO  1 1 : INK  5,i:INK  3,2*i+4:FOR  [1670] 

warte=1  TO  1 800 :NEXT:NEXT 

150  FOR  zeit=0  TO  400: PEN  7: PAPER  0:LOCATE  [9454) 

5 ,25: PRINT  zeit;: GOSUB  1000: FOR  warte=0  T 
O  ende: NEXT: GOSUB  3500 .-GOSUB  1000: GOSUB  50 
00:  FOR  warte =0  TO  ende: NEXT: NEXT 


160  Sl=1 :s2=5:s3=2:GOSUB  7000  [1736] 

170  FOR  warte=1  TO  2200:NEXT  warte:LOCATE  [63111 
2,8: PEN  6: PAPER  4 : PRINT"NOCHEINMAL? ( j /n ) 

190  ant$=LOWER$ ( INKEY$ ) : IF  ant$<>"j"  AND  a  [2013] 
nt$  <  >"n"  THEN  GOTO  190 

200  IF  antS="n"  THEN  END  ELSE  RUN  [1342] 

999  1 Joystickabf rage*  [1710] 

1000  j o=JOY ( 0 ) :ON  jo  GOTO  1020,1030,1010,1  [2718] 
040,1010,1010,1010,1050 

1010  GOSUB  6500 :GOSUB  2500:RETURN  [2666] 

1020  IF  TEST ( xo*32-2 ,418-16  *yo ) <  >1  THEN  GO  [6680] 
SUB  1 900 :yo=yo-2 : IF  yo<>13  THEN  GOSUB  1800 
: GOSUB  6500  ELSE  GOSUB  8000 

1025  RETURN  [555] 

1030  IF  TEST(xo*  32-2 ,398-16  *yo ) <  >1  THEN  GO  [5106] 
SUB  1 900:yo=yo+2:G0SUB  1800:GOSUB  6500 
1035  RETURN  (555] 

1040  IF  xo>1  THEN  GOSUB  1 900  :xo=xo-1  .-GOSUB  [3251] 
1 800 : GOSUB  6500 

1045  RETURN  [5551 

1050  IF  xo<20  THEN  GOSUB  1 900 : xo=xo+1 : GOSU  [3911) 
B  1800 :GOSUB  6500 

1055  RETURN  [555] 

1499  1 Bildschirmauf bau  *  [1146] 


1500  PAPER  0.-PEN  1  :FOR  zeile  =  14  TO  24  STEP  (5408  ) 
2: LOCATE  1 , zeile: PRINT  mauer$:NEXT 
1510  FOR  linie  =  1 92  TO  398  STEP  2.-MOVE  1  , 1  i  [5096  ] 
nie:DRAW  639 ,  linie,  5  .-NEXT 

1520  PAPER  5: PEN  3:LOCATE  xw[1 ) ,yw( 1 ) : PRIN  [7356] 
T  wolke$(1  ).:  LOCATE  xw ( 2  ) , yw(  2 ) :  PRINT  wolke 
$ ( 2 ) : LOCATE  xw{ 3 ) , yw ( 3 ) : PRINT  wolke? (3) 
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1530  PAPER  5 : LOCATE  1 9 , 1 1 : PEN  1 : PRINT  CHR$ 
(214)  +CHR$  (143); 

1540  PEN  2 : LOCATE  2Q,13:PRINT  CHR$(143); 
1550  LOCATE  20,12:PRINT  CHR$(143); 

1560  FOR  linie=1 92  TO  232  STEP  8:MOVE  610, 
linietDRAW  638 , linie, 0 :NEXT 
1570  MOVE  578,224: DRAW  610,224:MOVE  594,23 
2 : DRAM  610,232 

1580  PAPER  0:PEN  7: LOCATE  1,1: PRINT  "LEVEL 
=  level 

1590  ON  level  GOTO  1620,1610,1600 
1600  RESTORE  1630: PAPER  0:FOR  var=1  TO  22: 
READ  ze,sp: LOCATE  ze,sp: PRINT"  " : NEXT :RETU 
RN 

1610  RESTORE  1640:PAPER  0:FOR  var=1  TO  26: 
READ  ze,sp : LOCATE  ze, sp :PRINT"  ":NEXT:RETU 
RN 

1620  RESTORE  1650: PAPER  0:FOR  var=1  TO  29: 
READ  ze,sp: LOCATE  ze,sp: PRINT"  ":NEXT:RETU 
RN 

1630  DATA  3,14,7,14,1,16,5,16,12,16,18,16, 
3, 18, 7, 18, 11  , 18, 15, 18, 19, 18, 2, 20, 6, 20, 10, 2 
0,14,20,10,20,1 ,22,5,22,8,22,13,22,16,22,2 
0,22 

1640  DATA  3,14,1,16,4,16,8,16,11,16,15,16, 
19, 16, 2, 18, 6, 18, 9, 18, 12, 18, 14, 18, 17, 18, 20, 
18,1,20,5,20,8,20,11,20,15,20,19,20,2,22,6 
,22,9,22,12,22,16,22,20,22 

1650  DATA  3,14,1,16,3,16,6,16,9,16,12,16,1 

5. 16. 19. 16. 2. 18. 5. 18. 9. 18. 11. 18. 14. 18. 17.1 

8.20.18.1 .20.4.20.7.20.10.20.12.20.16.20.1 
9,20,1,22,3,22,6,22,9,22,13,22,17,22,20,22 

1799  'Zeichnen  der  neuen  Position  von  Oxi' 

1800  PAPER  0:PEN  2: LOCATE  xo,yo: PRINT  oxi$ 
; RETURN 

1899  'Ausloeschen  der  alten  Position  von  0 
xi ' 

1900  PEN  0: LOCATE  xo,yo: PRINT"  ": RETURN 

1999  ‘Definieren  von  Zeichen* 

2000  SYMBOL  AFTER  248 

2010  SYMBOL  250,195,36,24,60,102,231,126,3 
6:oxi$=CHR$ ( 250  ) : ‘Oxi ' 

2020  SYMBOL  251 , 255 , 68 , 68 , 255 , 1 7 , 1 7 , 255 :ma 
uer$=STRING$ (20,251 ) : 'Mauer' 

2030  SYMBOL  252 ,0 , 48 , 56 ,254 , 1 27 , 28 :wolke$ ( 
1 )=CHR$<252): '1 .Wolke' 

2040  SYMBOL  253 , 24 , 236 , 246 , 207 , 62 , 60 , 8 : wol 
ke$ ( 2 ) =CHR$ ( 253 ) : ' 2. Wolke ' 

2050  SYMBOL  254,0,124,254,239,227,127,124, 
1 6 :wolke$ ( 3 ) =CHR$ ( 254 ) : ' 3 .Wolke ' 

2060  SYMBOL  255,195,165,90,60,36,102,126,3 
6:oxinne$=CHR$(255): 'Oxinne' 

2070  SYMBOL  249 , 0 , 0 , 0 , 1 02 , 90 , 36 , 1 26 , 36 :oxi 
nchen$=CHR$ < 249 ) : 'Oxinchen' 

2080  SYMBOL  248 , 0 , 0 , 52 , 8 , 60 , 78 , 1 26 , 60 : ball 
$=CHR$( 248): 'Ball' 

2300  RETURN 

2499  'Wolken  verschieben' 

2500  r=INT( 3 *  RND)  +  1 : PAPER  5: LOCATE  xw(r), 
yw(r): PRINT"  " 

2510  rn=INT( 2  *RND ) 

2520  IF  rn=1  AND  xw(r)<20  THEN  LET  xw(r)=x 
w(r )+1 :GOTO  2560 

2530  IF  rn=1  AND  xw(r)=20  THEN  LET  xw(r)=1 
2540  IF  rn=0  AND  xw(r)>1  THEN  LET  xw(r)=xw 
( r ) -1 :GOTO  2560 

2550  IF  rn=0  AND  xw(r)=1  THEN  LET  xw(r)=20 
2560  PEN  3 : LOCATE  xw(r ) ,yw(r ): PRINT  wolke$ 
(r) 

2570  RETURN 

2999  'Farben  auf  0  setzen1 

3000  FOR  i=0  TO  15:INK  i,0: NEXT: RETURN 

3499  'Bewegung  von  Oxinne' 

3500  PAPER  0:PEN  0: LOCATE  xi,yi: PRINT  "  " 
3510  IF  yo<yi  AND  TEST(xi*32-2 , 41 8-1 6 *yi ) < 
>1  AND  yi >1 5  THEN  yi=yi-2:GOTO  3560 

3520  IF  yo>yi  AND  TEST(xi*32-2 , 398-1 6*yi ) < 

>1  THEN  yi=yi+2 :GOTO  3560 

3525  IF  xi=xo  THEN  3560 

3530  IF  xo<xi  THEN  xi=xi-1  :GOTO  3560 

3540  IF  xo>xi  THEN  xi=xi+1 

3560  PEN  6: LOCATE  xi,yi: PRINT  oxinne$ 

3570  IF  xi=xo  AND  yi=yo  TUEN  GOSUB  4500 
3580  RETURN 

3999  'Def initionnen  Ton* 

4000  ENT  -1 ,5, 15, 4, 4, -5, 5 
4010  ENV  1 ,5, 10, 2, 6, -2, 5 
4020  ENV  2,10,10,2,12,-2,5 
4030  ENT  3,5,20,4 


12900  ] 

4040  ENV  3, 5, 6, 4 

(371  ] 

4100  RETURN 

[555] 

12925) 

4499  'Oxinne  hat  Oxi  eingefangen' 

[2519] 

[1863  ) 

4500  futter=0: SOUND  1 , 1 20 , 40 , 1 2 , 1 , 1 , 30 : SOU 

(5524  1 

[4089 ) 

ND  1 ,300,80,10,2,1 :score=score-1 :GOSUB  600 

0 

4510  FOR  a=1  TO  3: LOCATE  xo,yo:PBN  2: PRINT 
oxi$ :FOR  warte=1  TO  1 50  *level :NEXT  warte: 

13568) 

[10301  ] 

[3958) 

LOCATE  xo,yo:PEN  6: PRINT  oxinne$:FOR  warte 
=1  TO  250: NEXT  warte :NEXT  a 

[1899] 

4520  IF  xo>1 0  THEN  GOTO  4530  ELSE  GOTO  454 

[3820] 

[5534  } 

0 

4530  FOR  i=xo-1  TO  xo-4  STEP  -1;LOCATE  i,y 
o: PEN  2: PRINT  oxi$:FOR  warte=1  TO  200:NEXT 

(8087] 

[5434  ) 

warte: PEN  0: LOCATE  i,yo: PRINT  "  " :NEXT  i: 
PEN  2: LOCATE  i,yo: PRINT  oxi$ : xo=i : RETURN 

4540  FOR  i=xo+1  TO  xo+4:LOCATE  i,yo:PEN  2: 

[9025] 

(5160) 

PRINT  oxi$:FOR  warte=1  TO  200:NEXT  warte: P 
EN  0: LOCATE  i,yo: PRINT  "  " : NEXT  i : PEN  2:LO 
CATE  i,yo: PRINT  oxi$ : xo=i :RETURN 

(4547  ) 

4999  'Bewegung  Oxinchen* 

(16491 

5000  IF  xn*xo  AND  yn=yo  THEN  GOTO  5010  ELS 
E  PAPER  0:PEN  0: LOCATE  xn,yn: PRINT  "  " 

[4025  1 

5010  r= INT ( RND * 4 )  + 1 : ON  r  GOTO  5020,5030,50 

[1517] 

[6944  ) 

40,5050 

5020  IF  TEST (xn* 32 -2, 418-16* yn)=0  AND  yn>1 

5  THEN  yn=yn-2  ELSE  GOTO  5010 

(5090  ) 

5025  GOTO  5070 

(3491 

[7207) 

5030  IF  TEST (xn* 32 -2 , 3 98-1 6 *yn) =0  THEN  yn  = 
yn+2  ELSE  GOTO  5010 

[3048] 

5035  GOTO  5070 

[349  ] 

5040  IF  xn <20  THEN  xn=xn+1  ELSE  GOTO  5010 

(2433 ] 

[4096  ] 

5045  GOTO  5070 

[349] 

[2563) 

5050  IF  xn >1  THEN  xn*xn-1  ELSE  GOTO  5070 

[2514] 

5070  IF  xn*xo  AND  yn=yo  THEN  RETURN  ELSE  P 

[4845  I 

[31131 

APER  0:PEN  7: LOCATE  xn,yn: PRINT  oxinchen$ : 
RETURN 

[1991  ) 

5999  'Score' 

[627] 

(2101  1 

6000  PAPER  0: PEN  7: LOCATE  16, 25: PRINT  scor 

[4930  1 

(14161 

e ; : RETURN 

(3179) 

6499  'Begegnung  Oxi-Oxinchen* 

[2317] 

6500  IF  xn=xo  AND  yn=yo  THEN  score=score+1 

(8163  ] 

[4058  ] 

:GOSUB  6000: SOUND  1 , 1 00 , 20 , 1 0 , 1 , 1 , 3 : IF  fut 
ter=1  THEN  score=score+2 : GOSUB  6000: SOUND 

[4604] 

1 ,80,20,12,3,1 :futter=0 

6900  RETURN 

[5551 

[4066  ] 

6999  'Sounds' 

[843] 

7000  FOR  a=s1  TO  s2  STEP  s3:SOUND  1,201 *a, 

[7889] 

[3737] 

80/a, 8, 2,1 ,a *6: SOUND  1 ,100*a,40,9+a,1 ,1,26 
+a: SOUND  1 ,127*4/a,40*a,8+a,2,1 :NEXT  a:RET 

(4612) 

URN 

7999  'Oxi  ueber  der  Erde' 

[11191 

[4819  ) 

8000  ya=*1  3 :  PAPER  5 

(14801 

8010  LOCATE  xo,yo:PEN  4: PRINT  oxi$ 

128371 

(2779) 

8020  FOR  xb*xo  TO  8: FOR  warte=1  TO  600;NEX 
T  warte: LOCATE  xb,yo:PRINT"  " : LOCATE  xb+1 , 

(66331 

(555) 

yo: PEN  4: PRINT  oxi$:NEXT 

[1637  ] 

8080  FOR  xo=9  TO  14 

[10591 

(2909) 

8090  hoch=0: LOCATE  xo,yo:PEN  4: PRINT  oxi$ 
:FOR  warte=0  TO  1 00 *INT(RND*1 0 ) : NEXT  warte 

[4047  1 

(242) 

8100  FOR  xa=1 9  TO  1  STEP  -1 

[1321  1 

[3039 1 

8200  LOCATE  xa,ya:PEN  6:PRINT  ball$ 

[2836  ] 

8210  IF  xa=xo  AND  yo=13  THEN  score=scor 

[94971 

[1383] 

e- 2 : GOSUB  6000 : PAPER  5:SOUND  1,826,60,12,1 

12299] 

,1:FOR  warte=1  TO  400 : NEXT: LOCATE  x!o,yo:PE 
N  4: PRINT  oxi$ :GOTO  8880 

[1530] 

8220  jo=JOY( 0 ) : IF  JO>15  AND  hoch<level 

[10897 

[2277  ] 

THEN  LOCATE  xo,yo: PRINT  "  ":yo=1 2: LOCATE  x 
o,yo:PEN  4: PRINT  oxi$:hoch=hoch+1  ELSE  LO 

1555] 

CATE  xo, 12; PEN  5: PRINT  "  ":yo=1 3: LOCATE  xo 

(15071 

,yo:PEN  4: PRINT  oxi$ 

[2191  } 

8400  LOCATE  xa,ya:PEN  5: PRINT  "  " 

[2353] 

(1932  1 

8500  NEXT  xa 

(395  ] 

[2276  ) 

8600  LOCATE  xo,yo: PRINT  "  " 

[2974  ] 

[4413  ) 

8610  NEXT 

[350] 

8620  FOR  xo=1 4  TO  19 

[1118] 

(3515) 

8630  LOCATE  xo,yo:PEN  4:PRINT  oxi$ 

[2837  ] 

8640  FOR  warte=1  TO  400: NEXT 

(2257  ] 

(1771  ] 

8650  LOCATE  xo,yo: PRINT  "  " 

[2974  J 

(1885  1 

8660  NEXT 

[350] 

[880  1 

8670  SOUND  1,20,20,11,3,3 

[1539  ) 

12152) 

8680  xo=18 

(521  ) 

[2784  ] 

8690  futter=1 

(575  ) 

(555) 

8880  FOR  xb=xo  TO  3  STEP  -1 : LOCATE  xb,yo:P 

(5391  ] 

[1041  ] 

EN  4: PRINT  oxi $: FOR  warte=1  TO  600:NEXT  wa 

[1113] 

rte: LOCATE  xb,yo: PRINT  "  " :NEXT  xb:xo=3 

(770) 

8890  yo=yo+2: LOCATE  xo,yo: PAPER  0:PEN  2: PR 

[2634] 

(11891 

INT  oxi$ 

(653) 

8900  RETURN 

[555] 

9 '86  CPC  145 


■/—1'WO'  / 


Locate  and  Print  ein  Zeichen  am 
Bildschirm 


Lies iein.  Zeichen  von  Bildschirm- 
Position 


&BDD9 


Zeichen-  oder  Steuer-Code  am  Bild¬ 
schirm  darstellen,  ohne  Steueraktion 


&BDDC 


Plotten  eines  Pixels 


&BDDF 


Pixeltest  am  Bildschirm 


V  c 

Referenzkarte:  Calls  &  Pokes 

Dieses  Mal  finden  Sie  in  unserer  Referenzkarte  die  restlichen  Einsprünge  für  die  MC-Roufinen 
sowie  die  Indirections  der  Firmware.  Indirections  sind  Firmwareumleitungen,  die  vom  Anwender 
gepatched  werden  können  und  so  eine  Manipulation  der  Firmwareroutinen  ermöglichen.  Im  Gegen¬ 
satz  zu  den  normalen  Firmwareroutinen  werden  diese  Indirections  bei  einem  Jump-Restore  nicht 
initialisiert,  sondern  bleiben  bestehen. 


MC-Routinen: 
Adresse 
&BD31 


Bemerkung: 

Zeichen  an  Centronics  Port  senden 


&BD34 


&BD37 


Indirections: 

&BDCD 


&BDD0 


&BDD6 


Syntax 

Einsprung: 

A  enthält  Zeichen 
(BIT  7  ignored) 
Aussprung: 

Carry  On 

A  und  Flags  zerstört 
Einsprung: 

A  enthält  Register 
C  enthält  Daten 
Aussprung: 

AF,  BC  zerstört 
Einsprung: 

Keine  Bedingung 
Aussprung: 

AF,  BC.  DE,  HL  zerstört 


Einsprung: 

Keine  Bedingung 
Aussprung:  AF  zertört 
Einsprung: 

Keine  Bedingung 
Aus  Sprung: 

AF  zerstört 
Einsprung: 

A  enthält  Zeichen 
H  —  X-Koordinate 
L  =  Y-Koordinate 
Aussprpng: 

AF,  BC,  DE,  HL  zerstört 
Einsprung: 

H  =  X-Koordinate 
L  =  Y-Koordinate 
Aussprung: 

Zeichen  gefunden: 

Carry  ON 
A  =  Zeichen 
Kein  Zeichen  an  Position 
Carry  OFF 
a  =  0 

Ein  Sprung: 

A  enthält  CHRS 
Aussprung: 

AF,  BC,  DE,  HL  zerstört 
Einsprung: 

DE  =  X-Koordinate 
HL  =  Y-Koordinate 
Aussprung: 

AF,  BC.  DE,  HL  zerstört 
Einsprung: 

DE  =  X-Koordinate 
HL  =  Y-Koordinate 
Aussprung: 

A  =  Ink 

BC,  DE,  HL  zerstört 


Daten  an  Sound-Chip  senden 


Wiederherstellen  der  Standard 
Fi  rmware-T  a  belle 


Cursor-Symbol  am  Bildschirm 
darstellen 

Cursor  vom  Bildschirm  löschen 


Erstellen  Sie  fJhrel 

eigenen 

G  raf  i  k- Abe  n  te  iie  rJ 


Mit  dem  flexiblen,  leicht  anzuwendenden 
Grafik-Adventure-Creator. 


Tfffl 


pr 


Mit  dem  GAC  ist  das 
Erzeugen  von  Grafiken, 
wie  diesen,  auf  einfach¬ 
ste  Art  möglich. 

Im  Grafik-Editor  sind 
Funktionen  wie  Line, 
Dot,  Circle,  Ellypseund 


765  Verben  und  Sub¬ 
stantive  in  ein  Abenteu¬ 
er  einzubauen,  alphabe¬ 
tisch  zu  überprüfen  und 
zu  sortieren. 


m 


Fast  Fill  enthalten.  Es 
ist  möglich,  Bilder  mit¬ 
einanderzu  kombinieren 
oder  in  einem  Bild  Schritt 
für  Schritt  vor-  und  zu¬ 
rückzublättern. 
Weiterhin  ist  es  möglich, 


Flexible  Textgestaltung 

erlaubt  ihnen  umfangreiche  Beschreibungen  Ihrer  Lokationen 
und  das  Erstellen  Ihrer  eigenen  Kommentare.  GAC  formiert  diese 
Kommentare  und  Texte  nach  Textverarbeitungsprinzip,  so  daß 
Ihr  eigenes  Adventure  "professionell"  aussieht. 

Der  "Graphik-Adventure-Creator"  wurde  speziell  für  die  Schneider 
CPC  Rechner  entwickelt,  um  es  Ihnen  zu  ermöglichen,  schnelle 
und  kompakte  Grafik-Abenteuerspiele  mit  voller  Ausnutzung  der 
Rechnermöglichkeiten  und  einem  minimalen  Aufwand  an  Pro¬ 
grammierkenntnissen  zu  erstellen. 

Kompletter,  Intelligenter  Kommando-Interpreter  (Parser) 

Der  Parser  versteht  komplexe  Sätze  und  Mehrfach-Kommandos. 
Sie  werden  nicht  auf  Zwei- Wort- Kommandos  wie  "geh  Nord"  be¬ 
schränkt.  GAC  "versteht”  auch  Eingaben  wie  z.B.  "nimm  die 
Truhe  und  öffne  sie  vorsichtig.  Untersuche  das  Medallion  und  lege 
es  in  die  Truhe." 

Der  Parser  erkennt  bis  zu  fünf  Buchstaben  eines  Kommandos  und 
kann  auch  ähnlich  klingende  Worte  unterscheiden. 


P.S.: 

Abenteuer,  die  Sie  mit  GAC  erstellt  haben,  laufen  völlig  unabhän¬ 
gig  vom  Creator.  Das  heißt,  daß  Sie  Ihre  Abenteuer  verschenken 
oder  vermarkten  können. 

GAC-Abenteuer  können  einfach  mit  Run  gestartet  werden,  also 
ohne  den  eigentlichen  Creator  zu  benötigen.  Außerdem  enthält 
der  GAC  eine  komplette  deutsche  Bedienungsanleitung. 

Geld  verdienen  mit  dem  GAC 

Mit  diesem  Programm  ist  es  möglich,  Abenteuer  professioneller 
Qualität  zu  entwickeln.  Programme,  die  mit  dem  GAC  erstellt 
wurden,  laufen  ohne  den  Creator  "Stand  allone”.  Sie  können 
Ihre  Programme  also  professionell  vermarkten  und  verkaufen. 
Lassen  Sie  Ihrer  Phantasie  freien  Lauf  mit  dem  Graphic-Ad- 
venture-Creator. 

Wenn  Sie  ein  spannendes,  lustiges  oder  gruseliges  Abenteuer 
mit  dem  GAC  geschrieben  haben,  lassen  Sie  es  uns  wissen. 

Vertrieb  in  Deutschland,  Österreich  und  der  Schweiz 
über:  DMV-Verlag  -Leserservice-,  Fuldaer  Str.  6, 

3440  Eschwege,  Telefon:  (0  56  51)  87  02, 

Telex  993  210  dmv  d 

Bitte  benutzen  Sie  die  Bestellkarte! 

Händleranfragen  willkommen! 


Floppykurs 

Teil  3 


Im  dritten  Teil  unseres  Floppykurses 
wollen  wir  uns  mit  dem  Inhalt  des 
Controller-ROM  und  mit  den  Auswir¬ 
kungen  auf  das  normale  Locomotive- 
Basic  beschäftigen. 

Im  ROM  befindet  sich  ein  Programm, 
das  die  Steuerung  der  Floppy- 
Hardware  für  den  Anwender  über¬ 
nimmt.  Dieses  Programm  stellt  sozu¬ 
sagen  die  Schnittstelle  zwischen  dem 
User  und  der  Floppy-Hardware  dar. 
Im  Gegensatz  zu  den  Programmen, 
die  mit  RUN  gestartet  werden,  verhält 
sich  der  Floppy-Controller  wie  ein 
sogenanntes  Hintergrund-ROM. 

Die  Hardware  des  CPC  kann  zwi¬ 
schen  verschiedenen  ROM-Typen 
unterscheiden.  Das  eigentliche  Be¬ 
triebssystem  des  Rechners  sowie  das 
Basic,  gelten  als  Vordergrund-ROM’s 
und  haben  höchste  Priorität  beim 
Einschalten  des  Rechners.  Ein  Vor¬ 
dergrund-ROM  kann  in  einem  belie¬ 
bigen  Adressbereich  liegen.  (Adresse 
&0000  bis  Adresse  &FFFF). 
Nachdem  dieses  Vordergrund-ROM 
erkannt  und  gestartet  wurde  -  dieser 
Vorgang  findet  beim  Einschalten  des 
Rechners  statt  -  übernimmt  es  die 
Steuerung  des  Rechners.  Zunächst 
werden  Keyboard,  Bildschirm  und 
Druckerschnittstelle  für  den  Ge¬ 


brauch  vorbereitet.  Danach  die  Ein¬ 
schaltmeldung  ausgegeben  und  eine 
sogenannte  Sprungtabelle  aufgebaut. 
Auf  diese  Sprungtabelle  kommen  wir 
später  noch  einmal  zu  sprechen. 
Außerdem  ”guckt”  das  Vordergrund¬ 
programm  noch  einmal  nach,  ob 
noch  irgendwelche  anderen  ROM’s 
am  Expansion-Port  stecken  und  ini¬ 
tialisiert  alle  die  er  findet.  Diese  ande¬ 
ren  ROM’s  sind  die  sogenannten 
Hintergrund-ROM’s,  zu  denen  auch 
das  Floppy-ROM  gehört.  Dieses 
Floppy-ROM  hat  die  Nummer  7  der 
insgesamt  255  möglichen  Hintergrund- 
ROM's. 

In  diesem  ROM  befindet  sich  wie¬ 
derum  eine  Basicerweiterung  sowie 
eine  Sammlung  von  MC-Routinen. 
Diese  Basicerweiterung  und  die  MC- 
Routinen  ermöglichen  dem  Anwen¬ 
der  die  komfortable  Kommunikation 
mit  der  Floppy. 

Außerdem  werden  beim  Einschalten 
noch  die  Befehle  des  Kassettenrecor¬ 
ders  so  modifiziert,  daß  die  entspre¬ 
chenden  Funktionen  jetzt  mit  der 
Floppy  ausgeführt  werden. 

Das  war  bis  hierhin  eine  ganze 
Menge  technischer  Kram,  der  nur  in 
den  Grundzügen  erläutern  soll,  was 
eigentlich  beim  Einschalten  Ihres 
Rechners  passiert  und  welchen 


Bezug  das  alles  auf  den  Floppy- 
Controller  hat. 

Interessant  sind  für  uns  in  dieser 
Folge  zunächst  einmal  die  Basic- 
Befehle,  die  bereitgestellt  werden.  Zu 
den  MC-Routinen,  die  uns  das 
Floppy-ROM  bietet  und  zu  CP/M 
kommen  wir  später. 

Die  Befehle  für  Basic  spalten  sich 
zunächst  einmal  in  zwei  Gruppen. 
Da  gibt  es  zum  einen  Basic-Patches 
und  sogenannte  RSX-Befehle. 

Die  Basic-Patches  entsprechen  den 
umgeleiteten  Basic-Befehlen  für 
LOAD.  SAVE,  OPENIN,  OPENOUT, 
MERGE,  CHAIN  und  CAT. 

Diese  Befehle  entsprechen  den  von 
Basic  her  bekannten  und  können 
auch  genauso  angewandt  werden. 
Einzige  Änderung  besteht  im  Aufbau 
der  möglichen  Dateinamen,  die  nur 
noch  aus  maximal  acht  Buchstaben 
und  keinen  Sonderzeichen  bestehen 
dürfen. 

Wollen  Sie  ein  bestehendes  Programm 
auf  Floppy  anpassen  und  Ihnen  be¬ 
gegnet  dabei  ein  BAD  COM M AND 
Fehler,  so  überprüfen  Sie  zunächst 
einmal,  ob  die  oben  angegebenen  Be¬ 
dingungen  von  den  Dateinamen  oder 
Nachladebefehlen  erfüllt  werden. 
Anders  verhält  es  sich  mit  den  RSX- 
Befehlen. 
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immmtimimiiimmi 


imniiiiiinimi 


■Kurse 


immmmi 


Diese  sind  vollkommen  neu  und  be¬ 
dienen  sich  einer  eigenen  Syntax  bei 
der  Eingabe.  Alle  Befehle  müssen 
markiert  werden,  damit  sie  vom  Be¬ 
triebssystem  erkannt  werden.  Dies  ge¬ 
schieht  dadurch,  daß  allen  Befehlen 
ein  sogenanntes  RSX-Zeichen  voran¬ 
gesetzt  wird.  Ein  RSX-Zeichen  be¬ 
steht  aus  einem  senkrechten  Strich, 
der  durch  gleichzeitiges  Drücken  von 
[SHIFT]  und  [@]  erreicht  wird. 
Außerdem  müssen  alle  übergebenen 
Parameter  mit  einem  Komma  vom 
Befehl  getrennt  werden. 

Noch  komplizierter  verhält  es  sich 
bei  der  Übergabe  von  Zeichenketten. 
Diese  müssen  erst  in  einen  String  ge¬ 
schrieben  werden  und  danach  über 
den  Variablen-Descriptor  an  den  Be¬ 
fehl  angehängt  werden.  Was  ein  Va- 
riablendescriptor  ist,  braucht  Sie 
zunächst  nicht  zu  interessieren,  er 
sieht  auf  jeden  Fall  so  aus:  [<§>]. 

Die  korrekte  Eingabe  für  einen  RSX- 
Befehl  ist  also: 

IBEFEHL,PARAMETER,  PARAME¬ 
TER,.... 

und  bei  der  Übergabe  von  Strings  (z.B. 
Dateinamen): 

A$=”DATEIN AME”  IBEFEHL,  A$ 

Diese  RSX-Befehle  haben  mit  den 
eigentlichen  SAVE-  und  LOAD-Rou- 
tinen  nichts  zu  tun,  steuern  aber  im 
wesentlichen  den  Controller.  Die 
RSX-Befehle  finden  Sie  in  Tabelle  1. 
Ihre  Funktion  und  Auswirkung  in  der 
nachfolgenden  Anleitung. 


Die  RSX-Befehle  der  Floppy 


BEFEHL:  A 

EINGABESYNTAX  :  IA 
AUSWIRKUNG: 


Nach  Eingabe  des  Befehls  IA  bezie¬ 
hen  sich  alle  nachfolgenden  Befehle 
auf  Laufwerk  Nummer  1 

BEFEHL:  B 
EINGABESYNTAX:  IB 
AUSWIRKUNG: 

Nach  Eingabe  des  Befehls  IB  bezie¬ 
hen  sich  alle  nachfolgenden  Befehle 
auf  Laufwerk  Nummer  2. 

BEFEHL:  CPM 
EINGABESYNTAX:  ICPM 
AUSWIRKUNG: 

Nach  Eingabe  des  Befehls  ICPM, 
wird  CP/M  von  Diskette  gebootet. 
Dazu  muß  sich  eine  Diskette  mit  den 
CP/M-Systemspuren  in  Laufwerk  A 
befinden. 

BEFEHL:  DISC 
EINGABESYNTAX:  IDISC 
AUSWIRKUNG: 

Die  gepatchten  Basic-Befehle  für 
SAVE-  und  LOAD-Operationen  be¬ 
ziehen  sich  ausschließlich  auf  die 
Diskette. 

BEFEHL:  TAPE 
EINGABESYNTAX:  ITAPE 
AUSWIRKUNG: 

Die  gepatchten  Basic-Befehle  für 
SAVE-  und  LOAD-Operationen  be¬ 
ziehen  sich  ausschließlich  auf  das 
Kassettenlaufwerk. 

BEFEHL:  DISC.IN 
EINGABESYNTAX:  IDISC.IN 
AUSWIRKUNG: 

Alle  gepatchten  Basic-Befehle  für 
LOAD-Operationen  (LOAD,  MERGE, 
CHAIN,  OPENIN,  CAT,  RUN”, 
EOF,  INPUT#9)  beziehen  sich  auf 
das  Diskettenlaufwerk. 

BEFEHL:  TAPE.IN 
EINGABESYNTAX:  ITAPE.IN 
AUSWIRKUNG: 

Alle  gepatchten  Basic-Befehle  für 


LOAD-Operationen  beziehen  sich 
auf  das  Kassettenlaufwerk. 

BEFEHL:  DISC.OUT 
EINGABESYNTAX:  IDISC.OUT 
AUSWIRKUNG: 

Alle  gepatchten  Baisc-Befehle  für 
SAVE-Operationen  (SAVE,  PRINT 
#9,  OPENOUT,  CLOSEOUT,  LIST 
#9,  usw.)  beziehen  sich  auf  das 
Diskettenlaufwerk. 

BEFEHL:  TAPE.OUT 
EINGABESYNTAX:  ITAPE.OUT 
AUSWIRKUNG 

Alle  gepatchtejryBasic-Befehle  für 
SAVE-Operatiön&n  beziehen  sich 
auf  das  Kassettenlaufwcrk. 

BEFEHL:  DRIVE 

EINGABESYNTAX:  A$=”A”  oder 
A$— ”B”  IDRIVE,  a$ 
AUSWIRKUNG: 

Der  Befehl  DRIVE  hat  die  gleiche 
Auswirkung  wie  IA  oder  IB.  Hier 
kann  das  ausgewählte  Laufwerk  al¬ 
lerdings  über  eine  Variable  bestimmt 
werden. 

BEFEHL:  ERA 

EINGABESYNTAX:  A$=”NAME 
.BAS”  IERA,  A$ 

AUSWIRKUNG: 

Mit  dem  Befehl  ERA  können  auf  der 
Diskette  befindliche  Dateien  gelöscht 
werden.  In  A$  müssen  sowohl  der  Da¬ 
teiname  als  auch  die  Dateikennzeich¬ 
nung  übergeben  werden.  Wildcards 
können  benutzt  werden. 

Dies  soll  fürs  erste  reichen.  Im  näch¬ 
sten  Teil  erfahren  Sie  die  restlichen 
Befehle,  die  zwar  weniger  benutzt 
werden,  aber  auch  ihre  Funktion  ha¬ 
ben.  Außerdem  hören  Sie  noch  etwas 
über  eine  nette  Einrichtung,  die  sich 
WILDCARDS  nennt. 

Bis  dahin  viel  Spaß! 

(TM) 


Inserentenveraelchnls  Nr.  9 


Activision . 45 

Algo . 73 

Ariolasoft . 51, 133 

Byte  me . 99 

Comal . 75 

CBS . 89 

Computer  Max . 87 

Computer  Studio  Erding . 55 

CSE  Schauties. . 13 

Dastmobil . 89 

Data  Becker . 69,  135 

Data  Media.! . 131 

D+G  Datentechnik . 75 


Dobbertin . 43 

EDV  Partner . 11 

Elektor . 139 

GAI . 91 

G+W . . . 91 

Gerdes . 65 

GFA  Systemtechnik . 2 

Hailer  +  Gensberger . 59 

Heimcomputer  Shop . 103 

Mükra . 123 

Peter  West  Records . 65 

PiZie  Data . 101 

SFK . 43 


Sunnyline . 9 

Sybex . 6 

Schneider  Computer . 152 

Schneider  Data . 23 

Schuster . 38,  39 

Star  Division . 26,  27 

Star  Micronics . 15 

TG  Soft . 105 

Vogel  Verlag . 31 

Vortex . 76,  77,  109 

Weeske . 61 

Werder . 11 
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Vorschau . 
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„Schneider  CPC  10/86’* 
erhalten  Sie  ab  24.  September 
bei  Ihrem 

Zeitschriftenhändler 


Aus  464  mach  664/6128!  Unser  Tip  des 
Monats  entledigt  Sie  vieler  Kompatibilitäts¬ 
probleme  -  zumindest  was  Software  anbe¬ 
langt.  Befehle  wie  Fill,  Clear  Input,  Frame  etc. 
sind  nun  auch  auf  dem  CPC  464  verfügbar. 


Joyce: 


Nützliche  Anwenderprogramme  für 
den  Joyce  fristeten  bis  vor  kurzem  noch 
ein  Dasein,  das  man  als  Stecknadel 
im  Heuhaufen  bezeichnen  könnte. 
Kurzum,  diese  Zeit  ist  vorbei  -  mehre¬ 
re  neue  Produkte  werten  den  Einsatz¬ 
bereich  des  Joyce  erheblich  auf. 

Wir  stellen  Ihnen  die  neuesten  An¬ 
wenderprogramme  vor  und  sagen 
Ihnen,  welche  Teslergebnisse  diese 
Software  hervorbrachte. 

Des  weiteren  war  ein  Produkt  aus 
dem  Genre  Hardware  auf  dem  CPC- 
Prüfsland  angetreten  -  der  Typenrad¬ 
drucker  SD- 15  für  den  Joyce.  Ob  der 
SD- 15  alle  LocoScript-Funkfionen  er¬ 
füllt,  erfahren  Sie  in  der  nächsten 
Ausgabe. 


Hardware: 


Irh  Rahmen  der  Schneiderware  prä¬ 
sentieren  wir  Ihnen  einen  echten  Lek- 
kerbissen  für  alle  Hardware-Freunde. 
Wir  "verpassen '  dem  CPC  eine  Echt¬ 
zeituhr,  die  ständig  eingeblendet 
werden  kann.  Damit  ist  auch  Ihr 
Computer  immer  "Up  to  date". 

Wie  bereits  angekündigt,  bietet  EMR 
inzwischen  ein  Midi-Interface  für  die 
CPC-Serie  an.  Was  Midi  ist  und  wie 
es  funktioniert,  wird  unser  großer 
Testbericht  aufzeigen.  Selbstverständ¬ 
lich  stellen  wir  Ihnen  auch  die  ent¬ 
sprechende  Software  zum  Ansteuern 
der  Synthesizer  vor. 


Tips  +  Tricks. 


CPC  464-Besitzer  aufgepaßt!! 

-  CPC  International  präsentiert  den 
CPC-Emulator,  der  Ihren  464  soft¬ 
warekompatibel  zum  664/6128  macht 
Befehle  wie  z.B.  Fill,  Clear  Input 
usw.  sind  nun  endlich  kein  Problem 
mehr,  der  CPC-Emulator  macht' s 
möglich. 


Computer  und  Musik  -  ein  immer  interessan¬ 
tes  Thema.  Mit  einem  sogenannten  Midi- 
Interface  ist  nun  auch  der  CPC  in  der  Lage, 
mit  einem  Synthesizer  gekoppelt  zu  werden. 
Das  Midi-Interface  von  EMR  stellen  wir 
Ihnen  ausführlich  vor. 


Wenn  auch  Sie  in  den  Genuß  dieser 
Super-Erweiterung  kommen  wol¬ 
len,  sollten  Sie  die  nächste  CPC 
International  auf  gar  keinen  Fall 
versäumen. 


Zusätzlich  gibt  es  natürlich  wieder 
jede  Menge  nützlicher  und  hilf¬ 
reicher  Routinen  für  alle  CPC’s,  die 
die  Programmierung  und  Hand¬ 
habung  Ihres  Computers  wesentlich 
erleichtern. 


Software  Reviews: 


Nodes  of  Yesod 
Mission  Elevator 
Core 

Locksmith  4- 

Copyshop 

u.v.m. 


Serie: 


Matthias  Uphoffs  Software-Experi¬ 
ment  scheint  sich  -  jedenfalls  was  die 
Leserreaktion  an  betrifft  -  als  Top- 
Serie  zu  etablieren. 

Das  nächste  Experiment  wird  für 
einen  Computer  vom  Schlage  des  CPC 
verblüffende  Ergebnisse  hervorbrin¬ 
gen,  u.a.  werden  Sie  ein  Gobang-Spiel 
kennenlernen,  das  Sie  mit  Sicherheit 
begeistern  wird. 

Doch  mehr  verraten  wir  noch  nicht  - 
Sie  dürfen  gespannt  sein! 


Pascal-Kurs: 


Die  Verwendung  von  Prozeduren  und 
Funktionen  in  Pascal.  Wie  man  die 
Programmiersprache  selbst  erweitert, 
ist  Thema  unseres  nächsten  Teils. 


Floppy-Kurs: 


Die  Amsdos-Befehle,  deren  Bedeu¬ 
tung,  Handhabung  und  Programmie¬ 
rung  wird  Ihnen  anhand  mehrerer 
Beispiele  verdeutlicht. 

Des  weiteren  erfahren  Sie  einiges 
über  die  sogenannten  Wild  Cards. 


1 50  CPC  9  '86 


Software  von  Lesern  -  für  Leser 


DIE  GOLDENE  $*■ 


Schatz 

Als  Hubschrauberpilot  für  besonders  brenzlige  Einsätze  bekommen  Sie  den  Auftrag,  durch  ein 
verzwicktes  Höhlensystem  bis  zu  einem  legendären  Schatz  vorzudringen  und  mit  diesem  wieder 
heil  zurückzukehren. 

Aber  Vorsicht  ist  geboten,  der  Schatz  ist  schwer  und  die  Höhlen  verwinkelt  und  eng. 


Garten  Manager 

Als  Gärtner  hat  man  es  nicht  leicht.  Versorgen  Sie  das  Grünzeug  in  Ihrem  Garten  richtig,  dann  kann 
gar  nichts  passieren.  Abgesehen  davon,  daß  Sie  überall  das  Unkraut  jäten  und  die  Blumen  gießen 
müssen,  geht  fast  alles  wie  von  selbst. 

Doch  das  Unkraut  wuchert  wie  wild  und  die  Blumen  brauchen  immer  mehr  Wasser.  Haben  Sie  einen 
grünen  Daumen? 


Die  Bezeichnung 
»Goldene  Sieben« 
steht  künftig  für  gute 
Software,  die  von  den  Le¬ 
sern  unserer  Zeitschrift  erstellt 
worden  ist,  und  nicht  als  Listing  im 
Heft  abgedruckt  werden  kann,  da 
hierfür  nur  einbegrenzter  Raum  vorhanden  ist,  und 
Ihre  "Schneider  CPC  International"  kein  reines  Li- 
stingblättchen  sein  soll! 

Jeweils  sieben  tolle  Programme  sind  auf  der 
Kassette  bzw.  Diskette  für  wenig  Geld  enthal¬ 
ten. 

Preise: 

Kassettenversion  20—  DM 

3"-Diskettenversion  30,—  DM 

zuzüglich  3,-  DM  Porto/Verpackung 
(Im  Ausland  5 ,-  DM) 

Bei  Nachnahme  kommt  noch  die 
die  Nachnahmegebühr  hinzu. 

Ihre  Bestellung  richten  Sie  bitte  an: 


Berg  der  Monster 

Grauenerregende  Ungeheuer  ter¬ 
rorisieren  einen  abgelegenen 
Landstrich  in  den  Bergen.  Als 


DMV  Verlag 
-  Leserservice  - 
Postfach  250 
3440  Eschwege 

Bitte  Bestellkarte 
benutzen! 


Lehensherr  dieser  Provinz  bekom¬ 
men  Sie  vom  König  den  Auftrag, 
wieder  Ruhe  und  Ordnung  zu 
schaffen.  Als  Sie  sich  zu  Ihrer 
Mission  aufmachen,  werden  Sie 
von  einem  Schneesturm  überrascht. 

Nach  dem  Unwetter  stehen  Sie 
ohne  Ausrüstung  und  Hilfe  alleine 
inmitten  der  Berge. 

Gelingt  es  Ihnen  trotzdem,  Ihren 
Auftrag  zu  erfüllen? 

Poker 

Kartenspieler  hergehört:  wollen  Sie 
ganze  Nächte  durchzocken,  ohne 
Muttis  Haushaltsgeld  zu  verspie¬ 
len?  Bitte  sehr,  unser  Computer¬ 
poker  macht's  möglich.  Gewinnen 
können  Sie  zwar  nichts,  aber  frai 
nieren  läßt  sich  mit  diesem  Spiel 
umso  besser. 

Super  Chance 

Verwandeln  Sie  Ihren  CPC  in  einen 
einarmigen  Banditen.  Mit  dieser 
Spielhallensimulation  holen  Sie 
sich  ein  Stück  Las  Vegas  in  Ihr 
Wohnzimmer.  Mit  Jackpot  und 
Superchance. 

Captain  Sfarships  Test 

Begleiten  Sie  Captain  Starlighl 
auf  seiner  Weltraumexpedition. 

Doch  zuerst  müssen  Sie  beweisen, 
daß  Sie  die  notwendigen  Quali¬ 
täten  mitbringen.  Ein  kniffeliger 
Intelligenz-  und  Reaktionstest  steht 
Ihnen  bevor.  Sind  Sie  in  der  Lage 
zu  bestehen? 

o;i  Willi 

Sie  sind  der  nette  Heizölhändler, 
der  alle  Bewohner  seines  Stadtvier¬ 
tels  mit  Heizöl  versorgt.  Aber  die 
meisten  Bestellungen  sind  sehr  eilig. 

Und  wenn  Sie  nicht  schnell  genug 
liefern,  so  bestellen  sich  die  Leute 
ihr  Öl  eben  anderswo.  Da  kann 
man  schon  ganz  schön  ins  Schwit¬ 
zen  geraten. 


5^-  Auch  weiterhin  ist  die  "Goldene  7"  Nr.  1  mit  den  Programmen  Secret  of  Wizard, 

-Turlen,  Zodora,  3-D  Labyrinth,  Die  alte  Burg,  Space- Race  und  Galaxis  erhältlich. 
^  Bitte  benutzen  Sie  die  Bestellkarte! 

% 


e3  Schneider 


Wo  gibt’s 
denn  sowas:* 
Preisknüller 
des  Jahres 


;hneiderCPC6^ 

TmÄundOran. 


Ich  möchte  mehr  wissen  über 
den  Preisknüller  des  Jahres 


ac  absatz-communication 
Pauck  +  Partner  GmbH  +  Co. 
Widenmayerstraße  34 


DES  JAHRES 

ComoufP 


komplett 
jetzt  nur  noch 


8000  München  22 
CPC/8 


unverbindliche 
Preisempfehlung 

*  Sowas  gibt’s  überall 
im  guten  Fachhandel,  in  den 
Fachabteilungen  der  Warenhäuser 
und  bei  den  führenden  Versendern. 

Schweiz  ir  999  -  /  Österreich  öS  8  999- 1  Belgien  otr  2Z990.-  /  Niederlande  hfl  1.399  -  und,  Solhvnre  im  Wert  von  250  -  hfl) 


